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


 
 
Me faire un don