Witches, pumpkins, devils, ghosts and black cats are all haunting turtleSpaces this Hallowe’en! turtleSpaces is great for creating 3D models using code.
You can also find these models in the Published projects section of the webLogo interpreter.
The Pumpkin:
The pumpkin is created using the spheroidslice primitive, which creates an elongated slice of a sphere. By creating ten of these slices (every 36 degrees) we can easily create the pumpkin’s body:
TO pumpkin
pu
;penup
rr 180 up 90 lt 18 ra 20
;these were added after in order to position
;the pumpkin to face the camera
pushturtle
;stores the turtle's state on to a stack,
;to be restored later using popturtle
setspheroidaxis false
setfillcolor orange
setpencolor brown
gradient
repeat 10 [
setfillshade 0
spheroidslice 50 10 40 18 23 1.5
rt 36
]
Next, we’ll position the turtle and use the domoid primitive to create the eyes, nose and mouth:
left 2
raise 37
down 42
right 30
lo 85
setfillcolor 13
setpencolor 8
setspheroidaxis true domoid 15 10 3 0.5
;eye
ra 85
lt 30
UP 42
RT 40
DN 42
RT 30
lo 85
domoid 15 10 3 0.5
;other eye
ra 85
LT 30 UP 42 LT 20 DN 50 RT 30 lo 85
domoid 10 10 3 0.5
;nose
ra 85
LT 30 lo 3 DN 48 FD 40 lo 60
domoid 17 10 10 0.5
;mouth
Finally, we’ll create the pumpkins stem:
popturtle
;return the turtle to its position, orientation
;and so forth when we did pushturtle
nogradient
setfc 8
;setfillcolor
cylinder 8 60 10 lo 60
up 90 rt 180 sr 20 lt 72.5
;sr = slideright
cylinderarc 8 20 10 10 3
home ht
END
The Witch:
The witch procedure first stores the pumpkin as a turtle model, then begins with her signature feature: her hat!
First we position the camera and store the pumpkin as a turtle model:
TO witch
reset cam:pullout 150 cam:orbitleft 20 cam:orbitup 10
begintag "pumpkin
pumpkin
endtag
newmodel "pumpkin "pumpkin
cs
Then we create her hat:
pu setfs 0
dn 90 ra 80
setoriginvectors vectors
pushturtle
setfc 5
rr 180
cone 40 100 20
cylinder 80 5 20
Next is her head:
rr 180
setfc 1
up 5
cylinderslice 40 50 20 10
lo 50
cutsphereslice 40 20 20 10 20 10
up 90
spot 40
dn 90
ra 50
dn 5
lo 30
setfc 11
rl 90
icospheroid 35 1.5
rr 90
ra 20
lt 30
bk 30
setfc 2
ico 7
fd 30
rt 60
bk 30
ico 7
fd 30
lt 30
lo 30
up 90
rr 180
up 10
setfc 11
cutcone 15 7 60 20
lo 60
setfc 1
dome 7 20 20
popturtle
Then her body:
lo 100
setfc 2
rr 180
cappeddomoid 30 20 20 2
rr 180
setfc 9
cylindroid 30 50 20 1.2
pushturtle
lo 50
domoid 30 50 20 1.2
repeat 2 [
pushturtle
sr 25
lo 10
dn 30
rr 180 dome 20 20 20
rr 180
cylinder 20 50 20
lo 50
ico 20
up 90
cutcone 20 15 50 20
lo 50
setfc 2
cylinder 20 20 20
lo 20
dn 90
cylindroid 10 20 20 2
lo 20 domoid 10 20 20 2
ra 20 rr 180
cylindroid 10 10 20 2
lo 10
domoid 10 20 20 2
popturtle sl 50]
popturtle
pushturtle
sr 45
dn 20
ra 4
setfc 11
cylinder 13 50 20
lo 50
ico 13
dn 90
cutcone 13 8 50 20
lo 50
ico 12
setmodelscale 0.5
dn 90 rt 160 lo 25 stamp "pumpkin
setmodelscale 1
popturtle
pushturtle
sl 45
dn 20
ra 4
setfc 11
rl 9
cylinder 13 50 20
lo 50
ico 13
dn 20
rl 40
cutcone 13 8 50 20
lo 50
ico 12
And finally her broom!
setvectors originvectors
setx 0
pushturtle
up 80
setfc 8
cylinder 5 100 20
lo 100
lo 5
rr 180
cappeddomoid 13 20 20 3.5
rr 180
cylindroid 13 15 20 3.5
lo 15
sl 35
setfc 13
repeat 15 [
rl -8 + repcount
cylinder 0.1 * (10 + random 20) 70 20
rr -8 + repcount
sr 5
randfs
]
sl 72.5
fd 5
repeat 14 [
randfs
rl -7 + repcount
cylinder 0.1 * (10 + random 20) 70 20
rr -7 + repcount
sr 5
]
bk 10
sl 5
repeat 14 [
randfs
rr -7 + repcount
cylinder 0.1 * (10 + random 20) 70 20
rl -7 + repcount
sl 5
]
popturtle
up 90
rr 180
up 10
setfc 8
cylinder 5 100 20
lo 100
dome 5 20 20
dn 90
ra 5
bk 10
st
END
The Devil:
This unicycling devil robot is a scary creature!
His head is made out of a padded voxel:
TO devil
cs
pu
setfc 11
cylinder 10 50 20
bk 10
voxeloid 50 20 50
fd 10
sr 50
cylinder 10 50 20
sl 60
voxeloid 70 50 50
fd 50
sr 10
cylinder 10 50 20
bk 10
voxeloid 50 20 50
fd 10
sr 50
cylinder 10 50 20
rr 180
repeat 2 [
repeat 4 [
dome 10 5 20
rl 90
cylinder 10 50 20
rr 90
sr 50
rt 90
]
up 180
ra 10
voxeloid 50 50 10
lo 60
lt 90
]
lo 10
bk 15
sr 15
lo 0.1
setfc 1
polyoval 10 5 100
bk 20
polyoval 10 5 100
sl 10
rr 180
fd 5
rt 60
quad 15 3
rt 30
sl 10
rt 30
quad -15 3
lt 30
sr 5
bk 40
pushturtle
repeat 8 [
quad 4 3
sr 4
lt 10
]
popturtle
pushturtle
repeat 8 [
quad -4 3
sl 4
rt 10
]
popturtle
fd 50
lo 20
sl 20
up 90
pushturtle
repeat 2 [
repeat 15 [
cylinder 16 - repcount 10 10
lo 8
up 10
rr 30 - 20 * repabove 1
]
popturtle
sr 40
pushturtle
]
And his body:
sl 60
ra 60
bk 15
rr 180
rt 20
setfc 13
cylinder 30 10 20
setfc 1
lo 10
cylindroid 30 20 20 2
sl 40
setfc 1
cylindroid 20 100 20 1
pusht
lo 100
ico 20
up 120
rr 30
cutcone 20 10 100 20
lo 100
up 90
rl 15
ra 20
setfc 10
cylinder 20 40 20
popt
pusht
sr 80
cylinder 20 100 20
lo 100
ico 20
up 60
rl 20
cutcone 20 10 100 20
lo 100
setfc 5
up 90
rl 10
ra 20
cylinder 20 40 20
popt
sr 40
cylinder 40 100 20
lo 160
rr 90
ra 20
setfc 11
cylinder 60 40 20
setfc 13
ra 5
cylinder 10 50 20
lt 90
lo 2.5
up 90
cylinder 2.5 100 10
dn 90
lo 45
up 90
cylinder 2.5 100 10
END
The Ghosts:
These bug-eyed PacMan-style ghosts are a real scream!
The Ghost:
TO ghost
up 90
make "gc 1 + random 14
make "ec pick [0 1 2 3 4 8 9]
setfc :gc
dome 50 20 18
rr 180
cylinder 50 50 18
lo 50
dn 90
repeat 18 [
tent 9 30 49.2
rl 20
]
setfc 15
up 90
ra 50
fd 50
rr 90
icospheroid 15 1.5
fd 15
setfc :ec
icospheroid 7.5 1.5
rl 90
bk 65
rt 40
fd 50
setfc 15
rr 90
icospheroid 15 1.5
fd 15
setfc :ec
icospheroid 7.5 1.5
rl 90
END
The Ghost Circle (this code assumes the above code is in a procedure called ghost:)
TO ghostcircle
reset
snappy:newworker [
setposition [0 0 0]
dropanchor
forever [
orbitleft 0.5
wait 1
]
]
randbg
setbs 13
setfs 0
dropanchor
up 90
pu
ra 80
gradient
randpc
setfc bg
spot 400
lo 80
nogradient
pullout 300
repeat 18 [
pushturtle
dn 90
rr 20
ghost
popturtle
orbitright 20
]
END
The Cats:
Don’t get in the way of these cats, or it’s bad luck!
The Cat’s Eye:
TO cateye
setfc 13
pu
rt 90
spot 10.1
fd 4
fiso 9.3 20
bk 8
rt 180
fiso 9.3 20
bk 4
ra 0.1
setfc 0
polyspot 6 40
lt 90
fd 3
fiso 5.2 7
bk 6
rt 180
fiso 5.2 7
bk 3
END
The Cat:
TO cat
sl 30
setfs 0
cateye
sr 60
cateye
sl 30
lo 0.3
bk 10
setfc 5
setfs 12
cylindroid 40 10 50 2
sl 20
lt 30
fd 25
tent 30 70 10
bk 25
rt 30
sr 40
rt 30
fd 25
tent 30 70 10
bk 25
lt 30
sl 20
bk 5
up 180
setfs 0
setfc 11
dome 5 20 20
fd 15
setfc 5
setfs 5
dome 8 20 20
lo 3
dropanchor
tether
pullout 7
rt 180
orbitright 70
setpw 2
repeat 2 [
repeat 5 [
line 80
orbitright 10
]
orbitright 130
]
pullin 7
rr 180
lo 12
rt 20
setfs 12
sr 20
setfs 13
cylindroid 40 100 50 2
lo 90
rr 90
setfs 12
cylinder 10 200 20
lo 200
dome 10 20 20
ra 200
rr 180
up 20
cylinder 10 130 20
lo 130
dome 10 20 20
ra 130
dn 40
cylinder 10 130 20
lo 130
dome 10 20 20
ra 130
sr 80
cylinder 10 130 20
lo 130
dome 10 20 20
ra 130
up 40
cylinder 10 130 20
lo 130
dome 10 20 20
ra 130
END
The Cat Ring:
TO catring
cs
pu
dn 90
dropanchor
pullout 250
pu
repeat 8 [
pushturtle
up 90
cat
popturtle
orbitright 45
]
END
Happy Hallowe’en!