Max's Home Page!
Thank you for Visiting my Webpage
I made images or GIF animations 3-12, 14, and 15. I took screen-shots of 9, 10, and 14.
FMS logo is a free program you can download off the internet, just Google FMS Logo. Some of the commands might be different so you might want to look up how to do certain things if they are not working; for example, go to the tutorial under help and type pen color, it will show you results for how to change pen color. When 3d is turned on, you can't always see everything so there is a way to change the angle at which you are looking at something and the light source. FMS Logo also uses xyz-coordinates (only in 3d).
";" starts a comment in Logo, a comment is a line of words started by some sort of symbol(s) that is ignored by the computer, you should pay attention to the comments you make. Practically all programming languages have forms of comments.
LOGO
;Here's a program to create polygons instantly:
to polygon :sides :length
repeat :sides [fd :length rt 360/:sides]
end
;Here's a circle with the turtle in the middle:
to circle :r
pu fd :r rt 90 pd repeat 360 [fd :r*6.283185307179586476925286766559/360 rt 1] pu lt 90 bk :r pd
end
;Here's how to make an unfinished circle:
to arc :r :a
repeat :a [fd :r*6.283185307179586476925286766559/360 rt 1]
end
;Here's a stickman for FMS Logo:
to stickman :angle :size
circle :size
pu bk :size*2 pd
rt 45 bk :size/100*70 fd :size/100*70 lt 90 bk :size/100*70 fd :size/100*70 rt 45
fd :size/100*80
rt :angle/2 fd :size/100*70 bk :size/100*70 lt :angle fd :size/100*70 bk :size/100*70 rt :angle/2
fd :size-:size/100*80 pu fd :size pd
end
;Here's how to make multi-color lines
to color :size
repeat :size*10 [fd 0.1 setpc random 255]
end
;The instructions and procedures for image #15
;it requires the circle function if you are using IMACS logo
to tri10
rt 90 fd 5 lt 120 repeat 2 [fd 10 lt 120] fd 5 lt 90
end
to tri160
lt 90 fd 40 rt 90 tri80 rt 90 fd 80 lt 90 tri80 rt 90 fd 40 lt 120 fd 80 lt 60 fd 40
rt 90 tri80 lt 90 fd 40 rt 120 bk 80 rt 60 fd 80 lt 90 pu fd 46.18802154 pd circle 23.09401077 pu bk 46.18802154 pd
end
to tri20
rt 90 fd 10 lt 120 repeat 2 [fd 20 lt 120] fd 20 lt 120 fd 10 lt 60 fd 5 lt 90 tri10
rt 90 fd 5 rt 120 bk 10 rt 60 fd 10 lt 90
end
to tri320
lt 90 fd 80 rt 90 tri160 rt 90 fd 160 lt 90 tri160 rt 90 fd 80 lt 120 fd 160 lt 60 fd 80
rt 90 tri160 lt 90 fd 80 rt 120 bk 160 rt 60 fd 160 lt 90 fd 92.37604307 lt 60 repeat 2 [fd 92.37604307 bk 92.37604307 rt 120] lt 180 bk 92.37604307
end
to tri40
lt 90 fd 10 rt 90 tri20 rt 90 fd 20 lt 90 tri20 rt 90 fd 10 lt 120 fd 20 lt 60 fd 10
rt 90 tri20 lt 90 fd 10 rt 120 bk 20 rt 60 fd 20 lt 90
end
to tri80
lt 90 fd 20 rt 90 tri40 rt 90 fd 40 lt 90 tri40 rt 90 fd 20 lt 120 fd 40 lt 60 fd 20
rt 90 tri40 lt 90 fd 20 rt 120 bk 40 rt 60 fd 40 lt 90 fd 23.09401077 lt 60 repeat 2 [fd 23.09401077 bk 23.09401077 rt 120] lt 180 bk 23.09401077
end
;the program
ht pu bk 184.7520861 pd lt 90 fd 160 rt 90 tri320 rt 90 fd 320 lt 90 tri320 rt 90 fd 160 lt 120 fd 320 lt 60 fd 160 rt 90 tri320 lt 90 fd 160 rt 120 bk 320 rt 60 fd 320 lt 90 pu fd 184.7520861 pd circle 92.37604307 rt 60 repeat 3 [fd 184.7520861 bk 184.7520861 rt 120] lt 60 st
If you can't find the right color that you are looking for, and you want to customize it, you can do that with RGB (red, green, and blue). You simply think of the RGB, test it in paint to make sure it is the right color, and write it down somewhere. Copy the values to color like this:
Color:rgb(r, g, b)
"There are 10 types of people in this world, those that use binary and those that do not"
I made images or GIF animations 3-12, 14, and 15. I took screen-shots of 9, 10, and 14.
FMS logo is a free program you can download off the internet, just Google FMS Logo. Some of the commands might be different so you might want to look up how to do certain things if they are not working; for example, go to the tutorial under help and type pen color, it will show you results for how to change pen color. When 3d is turned on, you can't always see everything so there is a way to change the angle at which you are looking at something and the light source. FMS Logo also uses xyz-coordinates (only in 3d).
";" starts a comment in Logo, a comment is a line of words started by some sort of symbol(s) that is ignored by the computer, you should pay attention to the comments you make. Practically all programming languages have forms of comments.
LOGO
;Here's a program to create polygons instantly:
to polygon :sides :length
repeat :sides [fd :length rt 360/:sides]
end
;Here's a circle with the turtle in the middle:
to circle :r
pu fd :r rt 90 pd repeat 360 [fd :r*6.283185307179586476925286766559/360 rt 1] pu lt 90 bk :r pd
end
;Here's how to make an unfinished circle:
to arc :r :a
repeat :a [fd :r*6.283185307179586476925286766559/360 rt 1]
end
;Here's a stickman for FMS Logo:
to stickman :angle :size
circle :size
pu bk :size*2 pd
rt 45 bk :size/100*70 fd :size/100*70 lt 90 bk :size/100*70 fd :size/100*70 rt 45
fd :size/100*80
rt :angle/2 fd :size/100*70 bk :size/100*70 lt :angle fd :size/100*70 bk :size/100*70 rt :angle/2
fd :size-:size/100*80 pu fd :size pd
end
;Here's how to make multi-color lines
to color :size
repeat :size*10 [fd 0.1 setpc random 255]
end
;The instructions and procedures for image #15
;it requires the circle function if you are using IMACS logo
to tri10
rt 90 fd 5 lt 120 repeat 2 [fd 10 lt 120] fd 5 lt 90
end
to tri160
lt 90 fd 40 rt 90 tri80 rt 90 fd 80 lt 90 tri80 rt 90 fd 40 lt 120 fd 80 lt 60 fd 40
rt 90 tri80 lt 90 fd 40 rt 120 bk 80 rt 60 fd 80 lt 90 pu fd 46.18802154 pd circle 23.09401077 pu bk 46.18802154 pd
end
to tri20
rt 90 fd 10 lt 120 repeat 2 [fd 20 lt 120] fd 20 lt 120 fd 10 lt 60 fd 5 lt 90 tri10
rt 90 fd 5 rt 120 bk 10 rt 60 fd 10 lt 90
end
to tri320
lt 90 fd 80 rt 90 tri160 rt 90 fd 160 lt 90 tri160 rt 90 fd 80 lt 120 fd 160 lt 60 fd 80
rt 90 tri160 lt 90 fd 80 rt 120 bk 160 rt 60 fd 160 lt 90 fd 92.37604307 lt 60 repeat 2 [fd 92.37604307 bk 92.37604307 rt 120] lt 180 bk 92.37604307
end
to tri40
lt 90 fd 10 rt 90 tri20 rt 90 fd 20 lt 90 tri20 rt 90 fd 10 lt 120 fd 20 lt 60 fd 10
rt 90 tri20 lt 90 fd 10 rt 120 bk 20 rt 60 fd 20 lt 90
end
to tri80
lt 90 fd 20 rt 90 tri40 rt 90 fd 40 lt 90 tri40 rt 90 fd 20 lt 120 fd 40 lt 60 fd 20
rt 90 tri40 lt 90 fd 20 rt 120 bk 40 rt 60 fd 40 lt 90 fd 23.09401077 lt 60 repeat 2 [fd 23.09401077 bk 23.09401077 rt 120] lt 180 bk 23.09401077
end
;the program
ht pu bk 184.7520861 pd lt 90 fd 160 rt 90 tri320 rt 90 fd 320 lt 90 tri320 rt 90 fd 160 lt 120 fd 320 lt 60 fd 160 rt 90 tri320 lt 90 fd 160 rt 120 bk 320 rt 60 fd 320 lt 90 pu fd 184.7520861 pd circle 92.37604307 rt 60 repeat 3 [fd 184.7520861 bk 184.7520861 rt 120] lt 60 st
If you can't find the right color that you are looking for, and you want to customize it, you can do that with RGB (red, green, and blue). You simply think of the RGB, test it in paint to make sure it is the right color, and write it down somewhere. Copy the values to color like this:
Color:rgb(r, g, b)
"There are 10 types of people in this world, those that use binary and those that do not"
Check out my images by clicking on a number:
|
