Oxygen atom

; Oxygen
; By Andy Yeh (2015)
CS RESET
; shell 1
TRANSFORM
MAKE "sh11 OBJECT
SETPARENT :sh11
TRANSFORM
MAKE "sh12 OBJECT
SETPARENT :sh12
SETEC 0 0 1000
CIRCLE
RU 90 FD 1
SETSCALE .15 .15 .15
SETMAT 0 3
BALL
BK 2
BALL
; shell 2
HOME
SETSCALE 1 1 1
SETPARENT "root
TRANSFORM
MAKE "sh21 OBJECT
SETPARENT :sh21
TRANSFORM
MAKE "sh22 OBJECT
SETPARENT :sh22
SETSCALE 1.2 1.2 1.2
SETEC 0 0 1000
CIRCLE
RU 90
SETSCALE .15 .15 .15
REPEAT 6 [ FD 1.2
BALL BK 1.2 RT 60 ]
 
SPIN :sh11 "tl 8
SPIN :sh12 "ru 10
SPIN :sh21 "tl 12
SPIN :sh22 "rd 15
 
; build nucleus
SETPARENT "root
RESET HOME TRANSFORM
MAKE "nucleus OBJECT
SETPARENT :nucleus
SETSCALE .7 .7 .7
FD 0.2
WORLD "/sites/default/files/user/u3/world/proton.x3d
RU 180 FD 0.4
WORLD "/sites/default/files/user/u3/world/neutron.x3d
HOME
REPEAT 7 [
RU 60 FD 0.2
IFELSE REPCOUNT > 2
[WORLD "/sites/default/files/user/u3/world/neutron.x3d]
[WORLD "/sites/default/files/user/u3/world/proton.x3d]
BK 0.2 RD 60
TL 360/7 ]
HOME RU 180 TL 60
REPEAT 7 [
RU 60 FD 0.2
IFELSE REPCOUNT < 2
[WORLD "/sites/default/files/user/u3/world/neutron.x3d]
[WORLD "/sites/default/files/user/u3/world/proton.x3d]
BK 0.2 RD 60
TL 360/7 ]
 
SHOWALL