Proyectos en LogoWriter

Este es un modulo del trabajo preparado por Manuel Marín (6to Grado) para la Maratón Escolar de computación 1996 Organizada por SISE.
El Trabajo completo sera puesto en el WEB en el presente mes(9/97).

Para su ejecución usted debe bajar los archivos (sombra.lwr y figuras.shp) y copiarlos en un subdirectorio de su LogoWr.

PARA P
INSERTA "FPOS 
INSERTA CAR 91
INSERTA ENTERO COORX
INSERTA CAR 32
INSERTA ENTERO COORY
ES CAR 93
FIN

PARA X
INSERTACM "FPOS
INSERTACM CAR 91
INSERTACM POS
MUESTRA CAR 93
FIN

PARA DIB
FFIG 1
SP
LAPIZ
FIN

PARA LAPIZ
DA "X LEECAR
SI :X = 8[FRUMBO 0 AD 1]
SI :X = 9[FRUMBO 45 AD 1]
SI :X = 6[FRUMBO 90 AD 1]
SI :X = 3[FRUMBO 135 AD 1]
SI :X = 2[FRUMBO 180 AD 1]
SI :X = 1[FRUMBO 225 AD 1]
SI :X = 4[FRUMBO 270 AD 1]
SI :X = 7[FRUMBO 315 AD 1]
SI :X = "Q [ALTO]
SI :X = "X [P]
SI :X = "P[SP ES "SP]
SI :X = "L[CP ES "CP]
SI :X = "B[PB]
LAPIZ
FIN


PARA RELOJ
ffig 1 fcolor 240 
sp fpos[-31 -86]
CP 
FPOS[-36 -54]
FPOS[-31 -43]
FPOS[0 -20]

FPOS[44 -20]
FPOS[70 28]
FPOS[76 24]
FPOS[63 -30]
FPOS[44 -20]
SP
FPOS[75 25]
CP
fpos[80 20]
FPOS[84 -25]
FPOS[63 -30]

SP
FPOS[84 -23]
CP
FPOS[128 -23]
FPOS[144 -40]
FPOS[147 -50]
FPOS[-23 -50]
FPOS[-30 -45]
SP
FPOS[-21 -50]
cp fpos[-3 -94]
cp FPOS[107 -94]

FPOS[122 -58]
FPOS[122 -60]
FPOS[131 -50]
FPOS[148 -50]

FPOS[150 -62]
FPOS[145 -94]
fpos[108 -94]
FPOS[-6 -94]
fpos[-31 -86]
fin

para sol
dile 1 ad 1
dile 0
fin

para inicio
traefigs
et
dile 1 sp ffig 49 fcolor 14 mt 
frumbo 250 fpos[-5 85]
dile 0
cargadib "reloj2.dib
espera 30 
som
fin


para som
da "x 64
fcolor 169
repite 60[sol 
	sp fpos[64 -31]cp 
	fx :x
	fpos[84 -26]
	da "x :x + 1 espera 10
	]
fin