MOSAICO

 

 

 

aprenda circulo :lado :cor       ;desenha um circulo e o pinta com :cor

repita 36 [pf :lado pd 10]

un pd 90 pf :lado*3 mudecp :cor pinte

pt :lado*3 pe 30 ul

fim

 

aprenda elipse :eixo1 :eixo2 :cor  ;desenha uma elipse e a pinta com :cor

arcoelipse 360 :eixo1 :eixo2 0

mudecp :cor pinte

fim

 

aprenda figuras       ;desenha uma figura de cada tipo em lugares aleatórios na tela

mudeel (lista sorteienúmero 5 sorteienúmero 5) mudecl (lista sorteienúmero 255 sorteienúmero 255 sorteienúmero 255)

un mudepos (lista (sorteienúmero 450)-200 (sorteienúmero 450)-200) ul

quadrado  sorteienúmero 50 (lista sorteienúmero 255 sorteienúmero 255 sorteienúmero 255)

un mudepos (lista (sorteienúmero 450)-400 (sorteienúmero 450)-400) ul

triangulo  sorteienúmero 50 (lista sorteienúmero 255 sorteienúmero 255 sorteienúmero 255)

un mudepos (lista (sorteienúmero 450)-200 (sorteienúmero 450)-200) ul

circulo  sorteienúmero 9 (lista sorteienúmero 255 sorteienúmero 255 sorteienúmero 255)

um mudepos (lista (sorteienúmero 450)-400 (sorteienúmero 450)-400) ul

elipse sorteienúmero 40 sorteienúmero 40 (lista sorteienúmero 255 sorteienúmero 255 sorteienúmero 255)

fim

 

aprenda mosaico                  ;chamada para montar o mosaico

rjg un

toquewave "musica.wav 1

repita 15 [figuras] espere 100

repita 15 [figuras] espere 100

repita 15 [figuras]

espere 100

tat

Mudefontejanelagráfica [ [Courier] 18 25 0 0 0]

dt rotule [FIM]

espere 100 rjg

fim

 

aprenda quadrado :lado :cor         ;desenha um quadrado com lado :lado e o pinta com :cor

repita 4 [pf :lado pd 90]

um pd 45 pf :lado/2 mudecp :cor pinte

pt :lado/2 pe 45 ul

fim

 

aprenda triangulo :lado :cor          ;desenha um triangulo com lado :lado e o pinta com :cor

repita 3 [pf :lado pd 120]

um pd 30 pf :lado/2 mudecp :cor pinte

pt :lado/2 pe 30 ul

fim

 

Atribua "iniciar [Mosaico]

Atribua "valido 1