Para su ejecucion usted debe bajar los archivos (maraton3.lwr y figuras.shp) y copiarlos en un subdirectorio de su LogoWr.

• Desempaquetar el archivo Portada.zip, poner la carpeta Maraton dentro de LogoWr, antes de ejecutar el programa ingrese al archivo de figuras.
• Portada.zip contiene: maraton3.lwr y figuras.shp

para todo
prinpag
portada
pintar
estampar
sol
condor
ventana
fin


para portada
rg
sp fpos[-80 -65]cp
frumbo 6
ad 140
frumbo 87
ad 60
frumbo 90
ad 30
frumbo 93
ad 60
frumbo 176
ad 140
frumbo 270 ad 60 frumbo 0 ad 80 iz 90 ad 50 frumbo 180 ad 80 de 90 ad 63 
frumbo 90
sp fpos[-72 14]cp
ad 160
frumbo 270
sp fpos[87 29]cp
ad 158
frumbo 0
sp fpos[-15 29]cp
ad 49 
de 90
ad 40
frumbo 180
ad 49
frumbo 90
sp fpos[160 -36]cp
ad 82
sp fpos[-15 -36]cp
ad 48
sp fpos[93 -36]cp
ad 70
fin

para pintar
fcolor 6
sp fpos[-47 -36]cp
pinta
sp fpos[58 -36]cp
pinta
sp fpos[58 44]cp
pinta
sp fpos[-42 44]cp
pinta
fcolor 15
sp fpos[3 19]cp
pinta
sp fpos[8 44]cp
pinta
fin
 

para estampar
ffig 2
fcolor 6
sp fpos[3 19]cp
sombrea
ffig 9
sp fpos[-4 59]cp
estampa
ffig 10
sp fpos[12 59]cp
estampa
ffig 8
fcolor 14
sp fpos[4 58]cp
estampa
ffig 11
fcolor 9
sp fpos[-4 42]cp
estampa
ffig 12
sp fpos[11 42]cp
estampa
ffig 4
sp fpos[36 67]cp
sombrea
sp fpos[-22 67]cp
sombrea
ffig 56
sp fpos[-47 -28]cp
estampa
sp fpos[63 -28]cp
estampa
fin


para dia1
dile 1
fcolor 88
sp fpos[-117 -13]cp
pinta
sp fpos[8 7]cp
pinta
sp fpos[8 -43]cp
fcolor 103
pinta
dile 0
fin 

para dia2
dile 1
fcolor 5
sp fpos[-117 -13]cp
pinta
sp fpos[8 7]cp
pinta
sp fpos[8 -43]cp
fcolor 7
pinta
dile 0
fin

para dia3
dile 1
fcolor 13 
sp fpos[-117 -13]cp
pinta
sp fpos[8 7]cp
pinta
sp fpos[8 -43]cp
fcolor 32
pinta
dile 0
fin

para dia4
dile 1
fcolor 38
sp fpos[-117 -13]cp
pinta
sp fpos[8 7]cp
pinta
sp fpos[8 -43]cp
fcolor 15
pinta
dile 0
fin

para sol
dia1 
espera 20
ffig 45  
fcolor 14
sp fpos[8 -38]
espera 20

dia2 
ffig 46
sp fpos[8 -33]
espera 20

dia3 
ffig 47
frumbo 0
ad 3
sp fpos[8 -30]
espera 20

dia4
ffig 48
frumbo 0
ad 2
sp fpos[8 -28]

ffig 49
frumbo 0
ad 2
repite 30[ad 1 espera 4]

fin

el condor pasa

para t
espera 1
fin

para condor
tono 440 4
tono 588 4
tono 554 4
tono 588 4
tono 660 4 
tono 698 4
tono 660 4
tono 698 4
tono 784 4

tono 880 28 t 
tono 1046 8 t
 
tono 880 8 t
tono 1046 8 t

tono 880 8 t
tono 1046 8 t
 
tono 880 4
tono 784 4 
el condor pasa

para t
espera 1
fin

para condor
tono 440 4
tono 588 4
tono 554 4
tono 588 4
tono 660 4 
tono 698 4
tono 660 4
tono 698 4
tono 784 4

tono 880 28 t 
tono 1046 8 t
 
tono 880 8 t
tono 1046 8 t

tono 880 8 t
tono 1046 8 t

tono 880 8 t
tono 784 4 
tono 698 4
tono 588 20 
fin


fin

para ventana
sp fpos[-159 -91]cp
frumbo 0.1 et
fcolor 26
repite 250 [ad 250]
repite 50[cuab espera 1]
fin