Nombre Con Funciones
to E
setpencolor 1
setpensize 4
left 90
penup back 670
right 90
pendown
forward 350
right 90
forward 200
right 90
forward 50
right 90
forward 150
left 90
forward 100
left 90
forward 150
right 90
forward 50
right 90
forward 150
left 90
forward 100
left 90
forward 150
right 90
forward 50
right 90
forward 200
end
E
to M
setpencolor 2
setpensize 4
penup back 220
right 90
pendown
forward 350
right 90
forward 100
right 45
forward 75
left 90
forward 75
right 45
forward 100
right 90
forward 350
right 90
forward 65
right 90
forward 200
left 135
forward 125
right 90
forward 125
left 135
forward 200
right 90
forward 65
end
M
to 2M
setpencolor 6
setpensize 4
penup back 320
right 90
pendown
forward 350
right 90
forward 100
right 45
forward 75
left 90
forward 75
right 45
forward 100
right 90
forward 350
right 90
forward 65
right 90
forward 200
left 135
forward 125
right 90
forward 125
left 135
forward 200
right 90
forward 65
end
2M
to A
setpencolor 4
setpensize 4
penup back 320
right 90
pendown
forward 350
right 90
forward 350
right 90
forward 350
right 90
forward 100
right 90
forward 150
left 90
forward 150
left 90
forward 150
right 90
forward 100
right 180
penup forward 250
left 90
penup forward 200
pendown
forward 100
left 90
forward 150
left 90
forward 100
left 90
forward 150
end
A
OSO
//oso
setbackground 0
to Octágono :side
setpensize 3 setpencolor 6
pu setxy 0 0 pendown left 0 repeat 8 [ forward :side right 45] pu setxy 0 0 pendown label "
end
Octágono 100
right 90
penup forward 65
left 90
penup forward 170
pendown
right 90
penup forward 0
left 90
penup forward 85
pendown
repeat 8 [right 45 forward 50]
penup forward 15
left 45
penup forward 15
pendown
repeat 8 [right 45 forward 15]
left 135
penup forward 25
left 90
penup forward 125
left 90
penup forward 45
right 45
penup forward -2
pendown
repeat 8 [right 45 forward 15]
right 135
penup forward 140
left 90
penup forward 25
left 45
penup forward 15
pendown
repeat 8 [right 45 forward 15]
left 225
penup forward 15
right 90
penup forward 170
right 45
penup forward 20
pendown
repeat 8 [left 45 forward 15]
left 135
penup forward 230
right 45
penup forward 8
pendown
repeat 8 [right 45 forward 15]
left 135
penup forward 140
left 90
penup forward 28
right 90
penup forward 60
pendown
repeat 8 [right 45 forward 15]
left 180
penup forward 190
right 90
penup forward 250
right 90
penup forward 70
pendown
forward 40
left 90
penup forward 35
pendown
arc 360 8
left 90
penup forward 40
pendown
arc 360 8
