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