page22
COMO FAZER | tutorial
;Desenho de raios coloridos
DESAPARECERTAT
TARTARUGA
PARACENTRO
MUDARESPESSURADOLÁPIS 2
USARNADA
fimx = INT (TAMANHODAPÁGINA[0])
fimy = INT (TAMANHODAPÁGINA[1])
passox = INT (fimx / 10)
passoy = INT (fimy / 10)
MUDARCORDAPINTURA “PRETO”
MUDARCORDOLÁPIS “PRETO”
RETÂNGULO [fimx, fimy]
PARA ct EM INTERVALO 0 fimx passox [
USARNADA
POSICIONAR [ct ,0]
USARLÁPIS
MUDARCORDOLÁPIS “~AZUL”
POSICIONAR [fimx - ct ,fimy]
]
PARA ct EM INTERVALO 0 fimy passoy [
USARNADA
POSICIONAR [0,ct]
USARLÁPIS
MUDARCORDOLÁPIS “~AZUL”
POSICIONAR [fimx, fimy - ct]
]
USARNADA
PARACENTRO
USARLÁPIS
MUDARCORDAPINTURA “PRETO”
MUDARTRANSPARÊNCIADAPINTURA 100
PARA ct EM INTERVALO passox fimx passox [
MUDARCORDOLÁPIS “~VIOLETA”
CÍRCULO ct
]
; Fim do programa