Linguagem de Programação Logo - Colocando na Prática

No sábado falei um pouco da linguagem logo, mostrando o vídeo explicativo do professor Mariano Pimentel. Para não ficar somente do discurso, segue abaixo, algumas linhas de comando usando essa linguagem de programação que geraram resultados interessantes.



aprenda apresentação  :tamanho


tat
cobrinha :tamanho
espere 50
tat
redemoinho :tamanho
espere 50
tat
elipse :tamanho
espere 50
tat
borboleta :tamanho
espere 50
tat
flor :tamanho
espere 50
tat
casa :tamanho
espere 50
tat
estrela :tamanho
espere 50
tat
redemoinho_duplo :tamanho
espere 50
tat
catavento :tamanho
espere 50
tat
fig_1 :tamanho
espere 50
tat
fig_2 :tamanho
espere 50
tat
fig_3 :tamanho
espere 50
tat
fig_4 :tamanho
espere 50
tat
fig_5 :tamanho
fim


aprenda borboleta  :tamanho
ul
repita 2  [repita 60 [  pf  :tamanho*0.0174  pd  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pd  1 espere 1] ]
repita 2  [repita 60 [  pf  :tamanho*0.0174  pe  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pe  1 espere 1] ]
pd 180
repita 2  [repita 60 [  pf  :tamanho*0.0174  pd  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pd  1 espere 1] ]
repita 2  [repita 60 [  pf  :tamanho*0.0174  pe  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pe  1 espere 1] ]


fim


aprenda casa :lado
ul
tat   mudecl "preto


un espere 10  pe 90 espere 10  pf 400 espere 10 pd 90 espere 10 ul repita 4 [  pf :lado/2 pd 90 espere 10 ]
  un pd 60  espere 10 pf :lado/2  espere 10 mudecp "amarelo pinte pt :lado/2 espere 10 pe 60  espere 10 pf :lado/2 espere 10 
ul espere 10 pd 30 espere 10  pf  :lado/2  espere 10 pd 120 pf :lado/2 espere 10 
  un  pe 200 espere 10  pf :lado/3 espere 10  mudecp "vermelho pinte pt :lado/3  espere 10 pd 200 espere 10  


un espere 10 pe 60 espere 10 pf  :lado*2 espere 10 pd 90 espere 10 pf :lado/2 espere 10 pe 180 espere 10 ul repita 4 [  pf :lado pd 90 espere 10]
  un pd 60 espere 10 pf :lado/2 espere 10 mudecp "verde pinte pt :lado/2 espere 10 pe 60 espere 10  pf :lado espere 10
ul espere 10 pd 30 espere 10 pf  :lado espere 10 pd 120 espere 10 pf :lado espere 10 
un  pe 200 espere 10 pf :lado/3 espere 10 mudecp "azul pinte pt :lado/3 espere 10 pd 200 espere 10


un espere 10 pe 60 espere 10 pf  :lado*2 espere 10 pd 90 espere 10 pf :lado espere 10 pe 180 espere 10 ul  repita 4 [  pe 90 pt :lado*2 espere 10  ]
un pd 60 espere 10 pf :lado/2 espere 10 mudecp "vermelho pinte pt :lado/2 espere 10 pe 60 espere 10  pf :lado*2 espere 10 
ul pd 30 espere 10  pf  :lado*2 espere 10 pd 120 espere 10 pf :lado*2 espere 10 
un  pe 200 espere 10 pf :lado/3 espere 10  mudecp "amarelo pinte pt :lado/3 pd 200 pe 60 espere 10 


FIM


aprenda catavento  :tamanho
ul
repita 2 [ pf  :tamanho espere 5 pd 120 espere 5 pf  :tamanho/2 pd 120 espere 5 pf  :tamanho/2 pe 60 un  pf :tamanho/2 ul ]
pd 60
repita 2 [ pf  :tamanho espere 5 pd 120 espere 5 pf  :tamanho/2 pd 120 espere 5 pf  :tamanho/2 pe 60 un  pf :tamanho/2 ul ]
pe 120
repita 2 [ pf  :tamanho espere 5 pd 120 espere 5 pf  :tamanho/2 pd 120 espere 5 pf  :tamanho/2 pe 60 un  pf :tamanho/2 ul ]




fim


aprenda cobrinha :tamanho  
ul
mudecl "vermelho
repita 5 [ repita 90 [pt :tamanho*0.0174 pe 2] repita 90 [pt :tamanho*0.0174 pd 2] ]


fim


aprenda elipse  :tamanho
ul repita 2  [repita 60 [  pf  :tamanho*0.0174  pd  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pd  1 espere 1] ]


fim


aprenda estrela :lado
ul
un pf 300 pd 90 pt 300 pe 90 mudecl "vermelho ul
pe 90 espere 10 ul repita 3 [pf :lado pd 120 espere 10] un espere 10  pe 120 espere 10  pt :lado espere 10 pd 30 espere 10 
pf :lado/8 pd 90 ul pf :lado/2 espere 10 pe 120 espere 10  pf :lado espere 10 pe 120 espere 10  pf :lado espere 10  pe 120 espere 10 pf :lado/2 espere 10 
un mudecp "amarelo pe 90 espere 10 pf :lado/10 espere 10  pinte pe 90 espere 10  pf :lado/4 espere 10 pinte pt (:lado/4)*2 pinte  espere 10 pd 90 espere 10 pf :lado/2 espere 10 pinte pe 90 espere 10  pf (:lado/4)*2 espere 10 pinte pt :lado/4 espere 10 pd 90 espere 10 pf :lado/5 espere 10 pinte pt :lado/2 espere 10 pt :lado/3 espere 10 pinte
fim


aprenda fig_1  :tamanho


ul repita 4 [ pf  :tamanho*2 espere 5 pe 90 pf :tamanho/2 espere 5 pe 90 pf  :tamanho espere 5 pe 90 pf  :tamanho/2 espere 5 ]


fim


aprenda fig_2  :tamanho


ul repita 4 [ pf  :tamanho*2 espere 5 pe 90 pf :tamanho/4 espere 5 pe 90 pf  :tamanho/4 espere 5 pe 90 pf  :tamanho espere 5 pe 90 pf :tamanho/2 pe 90  pf :tamanho/2 pe 90 pf  :tamanho pe 90]


fim


aprenda fig_3  :tamanho


repita 3 [pd 60 pf :tamanho  espere 5 pd 90 pf :tamanho pd 90 espere 5 pf :tamanho/2  espere 5 pd 90 pf :tamanho/2  espere 5 pd 90 pf :tamanho espere 5 pe 60 espere 5]
pe 30 pd 90 pf :tamanho pd 90 espere 5 pf :tamanho  espere 5 pd 90 pf :tamanho/2 espere 5 pd 90 pf :tamanho/2 pd 90 espere 5 pf  :tamanho/2


fim


aprenda fig_4 :tamanho


repita 12 [repita 3 [pe 240 pt :tamanho/2 espere 5] pe 30 pf :tamanho/2 espere 5 ] mudeel [30 2] repita 12 [ pe 30 pf  :tamanho/2 espere 5]


fim


aprenda fig_5 :tamanho


mudeel [1 1 ] repita 36 [repita 3 [pt :tamanho pe 120 espere 5 ]  pe 10] 


fim


aprenda flor  :tamanho 

ul repita 6 [ repita 60 [  pf  :tamanho*0.0174  pd  1 ] repita 120 [  pf  (:tamanho*0.0174)/10  pd  1 ] repita 60 [  pf  :tamanho*0.0174  pd  1] pd 180 ]
un pt  :tamanho/5 ul circunferência  :tamanho/8   pt :tamanho*2  repita 2  [repita 60 [  pf  :tamanho*0.0174  pd  1 espere 1] repita 120 [  pf  (:tamanho*0.0174)/10  pd  1 espere 1] ]
pt  :tamanho


fim


aprenda redemoinho  :tamanho
ul
repita 180 [pt (:tamanho*0.0174)/4 pe 1]
repita 180 [pt (:tamanho*0.0174)/3 pe 1]
repita 270[pt (:tamanho*0.0174)/2 pe 1]
repita 90 [pt (:tamanho*0.0174) pe 1]


fim


aprenda redemoinho_duplo  :tamanho
ul
repita 180 [pt (:tamanho*0.0174)/7 pe 1  ]
repita 180 [pt (:tamanho*0.0174)/5 pe 1 ]
repita 180 [pt (:tamanho*0.0174)/4 pe 1  ]
repita 270[pt (:tamanho*0.0174)/3 pe 1 ]
pd 180 espere 5
repita 180 [pf (:tamanho*0.0174) pd 1] 
espere 5
repita 270[pf (:tamanho*0.0174)/3 pd 1  ]
repita 180 [pf (:tamanho*0.0174)/4 pd 1  ] 
repita 180 [pf (:tamanho*0.0174)/5 pd 1  ]
repita 180 [pf (:tamanho*0.0174)/7 pd 1  ]




fim