Program total score is: 55
Output image
![]()
Shylo Samms - 4年前
sq
fd 50
tri
door
win
pu home pd
setpc 0
end
to s :c
setpc :c
end
to sw :w
setwidth :w
end
to door
pu setx 5 pd
fd 15
seth 90
fd 10
seth 180
fd 15
pu home pd
end
to doorl
repeat 5[fd 10 rt 90 fd 30 back 30 seth 0]
end
to rec :l :w
repeat 2 [fd :l rt 90 fd :w rt 90]
pu home pd
end
to sb
setpc 0
end
to sq
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
end
to sq2 :l
repeat 4[fd :l rt 90]
pu home pd
end
to tri
rt 90 fd 50
lt 135 fd 35
lt 90 fd 35
pu home pd
end
to tri2
rt 90 fd 100
left 135 fd 70.5
lt 90 fd 70.5
pu home pd
end
to win
sb
xy 10 30 pd
sq2 10 xy 13 33 setpc 12 fill ph
sb
pu setxy 25 30 pd
sq2 10 xy 27 33 setpc 12 fill ph
ph
end
to ph
pu home pd
end
to sky
xy -300 0 pd repeat 2[fd 200 rt 90 fd 600 rt 90 ]
xy -35 30 setpc 11 fill
xy 212 5 s 11 fill
pu home pd
end
to circle :r
arc 360 :r
end
to xy :x :y
pu setxy :x :y pd
end
cs
house
Shylo Samms - 4年前
q
fd 50
tri
door
win
pu home pd
setpc 0
end
to s :c
setpc :c
end
to sw :w
setwidth :w
end
to door
pu setx 5 pd
fd 15
seth 90
fd 10
seth 180
fd 15
pu home pd
end
to doorl
repeat 5[fd 10 rt 90 fd 30 back 30 seth 0]
end
to rec :l :w
repeat 2 [fd :l rt 90 fd :w rt 90]
pu home pd
end
to sb
setpc 0
end
to sq
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
end
to sq2 :l
repeat 4[fd :l rt 90]
pu home pd
end
to tri
rt 90 fd 50
lt 135 fd 35
lt 90 fd 35
pu home pd
end
to tri2
rt 90 fd 100
left 135 fd 70.5
lt 90 fd 70.5
pu home pd
end
to win
sb
xy 10 30 pd
sq2 10 xy 13 33 setpc 12 fill ph
sb
pu setxy 25 30 pd
sq2 10 xy 27 33 setpc 12 fill ph
ph
end
to ph
pu home pd
end
to sky
xy -300 0 pd repeat 2[fd 200 rt 90 fd 600 rt 90 ]
xy -35 30 setpc 11 fill
xy 212 5 s 11 fill
pu home pd
end
to circle :r
arc 360 :r
end
to xy :x :y
pu setxy :x :y pd
end
cs
house
brianna - 4年前
fd 50
brianna - 4年前
s9
shahad2010 - 4年前
forward 50
Gero RN 2010 - 5年前
tri
door
win sl casa bl setpc 0 fin
para s :c
setpc :c fin
para sw :w
ponergrosor :w fin
para door sl ponerx 5 bl ad 15 ponerd 90 ad 10 ponerd 180 ad 15 sl casa bl fin
para doorl
repetir 5[fd 10 de 90 ad 30 atrás 30 ponerd 0] fin para rec :l :w repetir 2 [fd :l de 90 ad :w de 90] sl casa bl 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[fd :l de 90] sl casa bl fin
para tri de 90 ad 50 iz 135 ad 35
iz 90 ad 35 sl casa bl fin
para tri2
de 90 ad 100
izquierda 135 ad 70.5 iz 90 ad 70.5 sl casa bl fin
para win sb xy 10 30 bl
sq2 10 xy 13 33 setpc 12 rellenar ph sb sl ponerxy 25 30 bl
sq2 10 xy 27 33 setpc 12 rellenar ph ph
fin
para ph
sl casa bl fin
para sky xy -300 0 bl repetir 2[fd 200 de 90 ad 600 de 90 ] xy -35 30 setpc 11 rellenar xy 212 5 s 11 rellenar
sl casa bl fin
para circle :r
arco 360 :r fin
para xy :x :y
sl ponerxy :x :y bl fin
bp house
Nijid - 5年前
filled "blue [repeat 4[fd 110 rd 90]]
Leila Corzo - 1年前