; tetraėder-animation
; © KP van Gend
; 08-Apr-91 created
; 08-May-91 now uses full commands (chemnimate requires it from now on).
; 02-Jun-91 fixed the lines/balls commands. Now need #on# instead of ON .
; 26-Aug-91 rewrote it a bit (almost in full), translated it.

Data 1
  ;r  ang  hei type line	;nr which
;methaan
  55  21   -35  H6   5		; 1  front H
  55  43   -35  H6   5		; 2  back H
   0  32    50  h6   5		; 3  upper H
  55   0   -35  H6   5		; 4  left H
   0   0   -10  C0   5		; 5  central C
;tetraėder
  55  21   -35 In12  7		; 6  front --- back
  55  43   -35 In12  8		; 7  back --- left
  55   0   -35 In12  6		; 8  left --- front
  55  21   -35 In12 12		; 9  upper --- front
  55  43   -35 In12 12		;10  upper --- back
  55   0   -35 In12 12		;11  upper --- left
   0  32    50 In12 12		;12  upper
EndData

  Lines #On#
  TFooter " "
  THeader " "
Repeat 79
    Text (125,210) "This is CH ."
    Text (125,214) "          4"
   Show 1 1 5
EndRepeat

  I:= 50;	#I# contains speed of conversion
  DAn:= 0;	no turning

;*****Oh no, these repeating messages, I don't know a better solution.
  Text (20,220) "  When you only watch separate atoms,"
  Text (20,230) "   You don't see it's a tetradron"
  Show 1 1 5
 Wait #i#
  Text (20,220) "  When you only watch separate atoms,"
  Text (20,230) "   You don't see it's a tetradron"
  Show 1 1 12
 Wait #i#
  Lines #off#
  ShowNS 1 4
  Text (20,220) "  When you only watch separate atoms,"
  Text (20,230) "   You don't see it's a tetradron"
  Lines #on#
  Show 1 6 12
 Wait #i#
  Text (20,220) "  When you only watch separate atoms,"
  Text (20,230) "   You don't see it's a tetradron"
  Show 1 6 12
 Wait #i#t

  DAn:= 1
  TFooter"     A tetradron (it has four planes)"
 Show [#i# * 2] 6 12

  TFooter" "
  Text (60,100) "  Each different angle"
  Text (60,120) "in this figure is 109,5°"
  SPages
 Wait 100

  DAn:= 0
 Show #i# 1 5

  Text (185,160) "109,5°"
  Show 1 1 5
 Wait #i#
  Text (120, 97) "109,5°"
  Show 1 1 5
 Wait #i#
  Text (178,105) "109,5°"
  Show 1 1 5
 Wait #i#
  
  THeader "       When you replace the H by a Cl:"
 Show [#i# / 2] 1 5
  CA 4 3Typ Cl14 ;replace H by Cl.
 Show [#i# / 2] 1 5
  CA 1 1Ang 22
  CA 2 1Ang 42
Repeat 5
    CM 1 and 2 0rad +1
    CR 3 2hei +1
    CR 3 0Rad +1
   Show 5 1 5
EndRepeat
  CA 1 1Ang 23
  CA 2 1Ang 41
  TFooter "   The other H-atoms move a bit away."
 Show #i# 1 5
  DAn:= 1;
 Show #i# 1 5
  THeader " "
  TFooter " "
 SPages		;show nothing

  TFooter "            That's it !!"
 SPages		;show Footer-text onlu
;* end - of - file *;