* *  uf6e - uranium hexaFluoride
*  2 molecules: one spinning about a vertical axis,
*  and one spinning about a horizontal axis,
*  90 degrees in 32 frames
*  for studying motion parallax
*
figure auf6 13 auranium *
       afluorine1 afluorine2 afluorine3 afluorine4 afluorine5 afluorine6 *
       abond1 abond2 abond3 abond4 abond5 abond6 *
*
ellipsoid auranium 8 8 8
repeat 0 1 colour auranium 255 0 0
*
*  'a' fluorines-
*
ellipsoid afluorine1 5 5 5
ellipsoid afluorine2 5 5 5
ellipsoid afluorine3 5 5 5
ellipsoid afluorine4 5 5 5
ellipsoid afluorine5 5 5 5
ellipsoid afluorine6 5 5 5
repeat 0 1 colour afluorine1 0 255 0
repeat 0 1 colour afluorine2 0 255 0
repeat 0 1 colour afluorine3 0 255 0
repeat 0 1 colour afluorine4 0 255 0
repeat 0 1 colour afluorine5 0 255 0
repeat 0 1 colour afluorine6 0 255 0
*
ellipsoid abond1 9 2 2
ellipsoid abond2 9 2 2
ellipsoid abond3 9 2 2
ellipsoid abond4 9 2 2
ellipsoid abond5 9 2 2
ellipsoid abond6 9 2 2
repeat 0 1 colour abond1 0 0 255
repeat 0 1 colour abond2 0 0 255
repeat 0 1 colour abond3 0 0 255
repeat 0 1 colour abond4 0 0 255
repeat 0 1 colour abond5 0 0 255
repeat 0 1 colour abond6 0 0 255
*
*   join the auranium to the afluorines -
*
join jaub1 auranium 0 0 0 abond1 -9 0 0
join jaub2 auranium 0 0 0 abond2 -9 0 0
join jaub3 auranium 0 0 0 abond3 -9 0 0
join jaub4 auranium 0 0 0 abond4 -9 0 0
join jaub5 auranium 0 0 0 abond5 -9 0 0
join jaub6 auranium 0 0 0 abond6 -9 0 0
*
join jabf1 abond1 9 0 0 afluorine1 0 0 0
join jabf2 abond2 9 0 0 afluorine2 0 0 0
join jabf3 abond3 9 0 0 afluorine3 0 0 0
join jabf4 abond4 9 0 0 afluorine4 0 0 0
join jabf5 abond5 9 0 0 afluorine5 0 0 0
join jabf6 abond6 9 0 0 afluorine6 0 0 0
*
lin 0 1 bendby abond2 jaub2 auranium -180 y
lin 0 1 bendby abond3 jaub3 auranium -90 y
lin 0 1 bendby abond4 jaub4 auranium +90 y
lin 0 1 bendby abond5 jaub5 auranium 90 z
lin 0 1 bendby abond6 jaub6 auranium -90 z
*
***************************************
*
figure buf6 13 buranium *
       bfluorine1 bfluorine2 bfluorine3 bfluorine4 bfluorine5 bfluorine6 *
       bbond1 bbond2 bbond3 bbond4 bbond5 bbond6 *
*
ellipsoid buranium 8 8 8
repeat 0 1 colour buranium 255 0 0
*
*  'a' fluorines-
*
ellipsoid bfluorine1 5 5 5
ellipsoid bfluorine2 5 5 5
ellipsoid bfluorine3 5 5 5
ellipsoid bfluorine4 5 5 5
ellipsoid bfluorine5 5 5 5
ellipsoid bfluorine6 5 5 5
repeat 0 1 colour bfluorine1 0 255 0
repeat 0 1 colour bfluorine2 0 255 0
repeat 0 1 colour bfluorine3 0 255 0
repeat 0 1 colour bfluorine4 0 255 0
repeat 0 1 colour bfluorine5 0 255 0
repeat 0 1 colour bfluorine6 0 255 0
*
ellipsoid bbond1 9 2 2
ellipsoid bbond2 9 2 2
ellipsoid bbond3 9 2 2
ellipsoid bbond4 9 2 2
ellipsoid bbond5 9 2 2
ellipsoid bbond6 9 2 2
repeat 0 1 colour bbond1 0 0 255
repeat 0 1 colour bbond2 0 0 255
repeat 0 1 colour bbond3 0 0 255
repeat 0 1 colour bbond4 0 0 255
repeat 0 1 colour bbond5 0 0 255
repeat 0 1 colour bbond6 0 0 255
*
*   join the buranium to the bfluorines -
*
join jbub1 buranium 0 0 0 bbond1 -9 0 0
join jbub2 buranium 0 0 0 bbond2 -9 0 0
join jbub3 buranium 0 0 0 bbond3 -9 0 0
join jbub4 buranium 0 0 0 bbond4 -9 0 0
join jbub5 buranium 0 0 0 bbond5 -9 0 0
join jbub6 buranium 0 0 0 bbond6 -9 0 0
*
join jbbf1 bbond1 9 0 0 bfluorine1 0 0 0
join jbbf2 bbond2 9 0 0 bfluorine2 0 0 0
join jbbf3 bbond3 9 0 0 bfluorine3 0 0 0
join jbbf4 bbond4 9 0 0 bfluorine4 0 0 0
join jbbf5 bbond5 9 0 0 bfluorine5 0 0 0
join jbbf6 bbond6 9 0 0 bfluorine6 0 0 0
*
linear 0 1 bendby bbond2 jbub2 buranium -180 y
linear 0 1 bendby bbond3 jbub3 buranium -90 y
linear 0 1 bendby bbond4 jbub4 buranium +90 y
linear 0 1 bendby bbond5 jbub5 buranium 90 z
linear 0 1 bendby bbond6 jbub6 buranium -90 z
*
******************************
*
linear 0 1 grofig every  world 10 10 10
linear 0 1 moveto auf6   world 650 650 500
linear 0 1 moveto buf6   world 350 350 500
linear 0 1 spinby auf6  auranium auranium -10 y
linear 0 1 spinby buf6  buranium buranium -10 y
*
linear 1 32 spinby auf6  auranium auranium -90 y
linear 1 32 spinby buf6  buranium buranium +90 x
*
linear 1 16 colour auranium 255 255 0
linear 1 16 colour afluorine1  0 255 255
linear 1 16 colour afluorine2  0 255 255
linear 1 16 colour afluorine3  0 255 255
linear 1 16 colour afluorine4  0 255 255
linear 1 16 colour afluorine5  0 255 255
linear 1 16 colour afluorine6  0 255 255
linear 1 16 colour abond1   255 0 255
linear 1 16 colour abond2   255 0 255
linear 1 16 colour abond3   255 0 255
linear 1 16 colour abond4   255 0 255
linear 1 16 colour abond5   255 0 255
linear 1 16 colour abond6   255 0 255
*
linear 16 32 colour auranium 255 0 0
linear 16 32 colour afluorine1   0 255 0
linear 16 32 colour afluorine2   0 255 0
linear 16 32 colour afluorine3   0 255 0
linear 16 32 colour afluorine4   0 255 0
linear 16 32 colour afluorine5   0 255 0
linear 16 32 colour afluorine6   0 255 0
linear 16 32 colour abond1   0 0 255
linear 16 32 colour abond2   0 0 255
linear 16 32 colour abond3   0 0 255
linear 16 32 colour abond4   0 0 255
linear 16 32 colour abond5   0 0 255
linear 16 32 colour abond6   0 0 255
*
linear 1 16 colour buranium 255 255 0
linear 1 16 colour bfluorine1   0 255 255
linear 1 16 colour bfluorine2   0 255 255
linear 1 16 colour bfluorine3   0 255 255
linear 1 16 colour bfluorine4   0 255 255
linear 1 16 colour bfluorine5   0 255 255
linear 1 16 colour bfluorine6   0 255 255
linear 1 16 colour bbond1  255 0 255
linear 1 16 colour bbond2  255 0 255
linear 1 16 colour bbond3  255 0 255
linear 1 16 colour bbond4  255 0 255
linear 1 16 colour bbond5  255 0 255
linear 1 16 colour bbond6  255 0 255
*
linear 16 32 colour buranium 255 0 0
linear 16 32 colour bfluorine1  0 255 0
linear 16 32 colour bfluorine2  0 255 0
linear 16 32 colour bfluorine3  0 255 0
linear 16 32 colour bfluorine4  0 255 0
linear 16 32 colour bfluorine5  0 255 0
linear 16 32 colour bfluorine6  0 255 0
linear 16 32 colour bbond1   0 0 255
linear 16 32 colour bbond2   0 0 255
linear 16 32 colour bbond3   0 0 255
linear 16 32 colour bbond4   0 0 255
linear 16 32 colour bbond5   0 0 255
linear 16 32 colour bbond6   0 0 255
*
***********************************
*
decele 1 8 grojnt abond1 jaub1 1.1 1.1 1.1
decele 1 8 grojnt abond2 jaub2 1.1 1.1 1.1
decele 1 8 grojnt abond3 jaub3 1.1 1.1 1.1
decele 1 8 grojnt abond4 jaub4 1.1 1.1 1.1
decele 1 8 grojnt abond5 jaub5 0.8 0.8 0.8
decele 1 8 grojnt abond6 jaub6 0.8 0.8 0.8
*
quadratic 8 24 grojnt abond1 jaub1 0.8 0.8 0.8
quadratic 8 24 grojnt abond2 jaub2 0.8 0.8 0.8
quadratic 8 24 grojnt abond3 jaub3 0.8 0.8 0.8
quadratic 8 24 grojnt abond4 jaub4 0.8 0.8 0.8
quadratic 8 24 grojnt abond5 jaub5 1.1 1.1 1.1
quadratic 8 24 grojnt abond6 jaub6 1.1 1.1 1.1
*
accele 24 32 grojnt abond1 jaub1 1.1 1.1 1.1
accele 24 32 grojnt abond2 jaub2 1.1 1.1 1.1
accele 24 32 grojnt abond3 jaub3 1.1 1.1 1.1
accele 24 32 grojnt abond4 jaub4 1.1 1.1 1.1
accele 24 32 grojnt abond5 jaub5 0.8 0.8 0.8
accele 24 32 grojnt abond6 jaub6 0.8 0.8 0.8
*
decele 1 8 grojnt bbond1 jbub1 1.1 1.1 1.1
decele 1 8 grojnt bbond2 jbub2 1.1 1.1 1.1
decele 1 8 grojnt bbond3 jbub3 1.1 1.1 1.1
decele 1 8 grojnt bbond4 jbub4 1.1 1.1 1.1
decele 1 8 grojnt bbond5 jbub5 0.8 0.8 0.8
decele 1 8 grojnt bbond6 jbub6 0.8 0.8 0.8
*
quadratic 8 24 grojnt bbond1 jbub1 0.8 0.8 0.8
quadratic 8 24 grojnt bbond2 jbub2 0.8 0.8 0.8
quadratic 8 24 grojnt bbond3 jbub3 0.8 0.8 0.8
quadratic 8 24 grojnt bbond4 jbub4 0.8 0.8 0.8
quadratic 8 24 grojnt bbond5 jbub5 1.1 1.1 1.1
quadratic 8 24 grojnt bbond6 jbub6 1.1 1.1 1.1
*
accele 24 32 grojnt bbond1 jbub1 1.1 1.1 1.1
accele 24 32 grojnt bbond2 jbub2 1.1 1.1 1.1
accele 24 32 grojnt bbond3 jbub3 1.1 1.1 1.1
accele 24 32 grojnt bbond4 jbub4 1.1 1.1 1.1
accele 24 32 grojnt bbond5 jbub5 0.8 0.8 0.8
accele 24 32 grojnt bbond6 jbub6 0.8 0.8 0.8
*
repeat 0 1 observ -10 0 0
*
******************************
*
stop
repeat 0 1 observ -10 0 0
*
******************************
*
stop