Hydrogen atom

; Hydrogen atom
; By Andy Yeh (2014)
CS RESET
SETBG 23
TRANSFORM ; create a coordinate group obj_0 for animation purpose later
SETPARENT OBJECT ; make this coordinate group the parent of objects created after
SETEC 0 0 1000 ; set emissive colour (blue) for orbit
CIRCLE ; create a circle (r=1) as the orbit of electron obj_1
UP 1 ; move the turtle to the orbit
SETSCALE .2 .2 .2 ; size for electron
SETMAT 0 15 ; material for electron
BALL ; create an electron obj_2
HOME
SETPARENT "root ; leave the coordinate system
SETSCALE .6 .6 .6 ; size of nucleus
SETMAT 5 29 ; material for proton
BALL ; create a proton at the center obj_3
SHOWALL ; bring everything to fit screen
; start animation from here
; the first spin is on obj_0. Because the electron is 1 meter away from the centre so
; it spins (tilt right) like orbiting the proton once every 4 seconds.
SPIN "obj_0 "tiltright 4
; next, I spin the orbit to the right direction once every 20 seconds.
SPIN "obj_1 "right 20
; enjoy the spin :-)