exemples/pLogo/MAISON.JLOGO
POUR RECTANGLE :HAUT :LARG
REPETE 2 [AV :HAUT TD 90 AV :LARG TD 90]
FIN
POUR ALLER-A :HAUT :LARG
LC AV :HAUT TD 90 AV :LARG TG 90 BC
FIN
POUR TOIT :ANGLE :LARG
SOIT "PENTE (:LARG / 2) / SIN :ANGLE
TD :ANGLE
AV :PENTE
TD 180 - :ANGLE - :ANGLE
AV :PENTE
TD 90 + :ANGLE
AV :LARG
TD 90
FIN
POUR PORTE :HAUT :LARG
RECTANGLE :HAUT :LARG
FIN
POUR FENETRE :HAUT :LARG
RECTANGLE :HAUT :LARG
ALLER-A :HAUT / 2 0
TD 90 AV :LARG TG 90
ALLER-A :HAUT / 2 MINUS :LARG / 2
RE :HAUT
ALLER-A 0 MINUS :LARG / 2
FIN
POUR MAISON :H :L :A
RECTANGLE :H :L
ALLER-A :H 0
TOIT :A :L
ALLER-A -4 * :H / 6 :L / 12
FENETRE :H / 3 :L / 6
ALLER-A 0 2 * :L / 3
FENETRE :H / 3 :L / 6
ALLER-A :H / -3 :L / -3
PORTE 2 * :H / 3 :L / 6
ALLER-A 0 -5 * :L / 12
FIN
VE CT FEN
ALLER-A -40 -200
TD 90 AV 400 TG 90
ALLER-A 0 -400
FECH [110 50]
MAISON 60 120 60
ALLER-A 0 140
FECH [80 120]
MAISON 60 120 60
ALLER-A 0 140
FECH [100 100]
MAISON 60 120 60
ATTENDS 2
MT
Retour - Back