para door sl ponerx 20 bl ad 15 ponerd 90 ad 10 ponerd 180 ad 15 sl casa bl fin para garage sl ponerxy -200 0 bl rec 60 100 sl ponerxy -190 0 bl rec 50 30 sl ponerxy -150 0 bl rec 50 30 sl ponerxy -200 60 bl tri2 100 70.5 fin para house setpc 1 sq ad 50 tri sb door win xy 13 33 setpc 13 rellenar ph sl casa bl setpc 0 ot fin para ph sl casa bl fin para rb sl ponerxy -180 0 bl ponerd 270 setpc 1 ponergrosor 4 arco 180 112 setpc 2 arco 180 108 setpc 4 arco 180 104 setpc 6 arco 180 100 ponergrosor 1 sb ph fin para rec :l :w repetir 2 [ ad :l de 90 ad :w de 90 ] ph fin para sb setpc 0 fin para sq ad 50 de 90 ad 50 de 90 ad 50 de 90 ad 50 de 90 fin para sq2 :l repetir 4 [ ad :l de 90 ] sl casa bl fin para sun sl ponerxy 225 100 bl setpc 6 circle 30 rellenar sb sl casa bl fin para tri de 90 ad 50 iz 135 ad 35 iz 90 ad 35 sl casa bl fin para tri2 :b :l de 90 ad :b izquierda 135 ad :l iz 90 ad :l sl casa bl fin para win setpc 4 sl ponerxy 10 30 bl sq2 10 sl ponerxy 25 30 bl sq2 10 sb fin para xy :x :y sl ponerxy :x :y bl fin para s :c setpc :c fin para sw :w setpenwidth :w fin para sky xy -300 0 bl rec 200 600 xy -298 5 s 11 rellenar ph fin para circle :r sky