home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d542 / chemnimate.lha / ChemniMaTe / Examples / Tetradron.ani < prev    next >
Text File  |  1991-09-19  |  3KB  |  107 lines
  1. ; tetraëder-animation
  2. ; © KP van Gend
  3. ; 08-Apr-91 created
  4. ; 08-May-91 now uses full commands (chemnimate requires it from now on).
  5. ; 02-Jun-91 fixed the lines/balls commands. Now need #on# instead of ON .
  6. ; 26-Aug-91 rewrote it a bit (almost in full), translated it.
  7.  
  8. Data 1
  9.   ;r  ang  hei type line    ;nr which
  10. ;methaan
  11.   55  21   -35  H6   5        ; 1  front H
  12.   55  43   -35  H6   5        ; 2  back H
  13.    0  32    50  h6   5        ; 3  upper H
  14.   55   0   -35  H6   5        ; 4  left H
  15.    0   0   -10  C0   5        ; 5  central C
  16. ;tetraëder
  17.   55  21   -35 In12  7        ; 6  front --- back
  18.   55  43   -35 In12  8        ; 7  back --- left
  19.   55   0   -35 In12  6        ; 8  left --- front
  20.   55  21   -35 In12 12        ; 9  upper --- front
  21.   55  43   -35 In12 12        ;10  upper --- back
  22.   55   0   -35 In12 12        ;11  upper --- left
  23.    0  32    50 In12 12        ;12  upper
  24. EndData
  25.  
  26.   Lines #On#
  27.   TFooter " "
  28.   THeader " "
  29. Repeat 79
  30.     Text (125,210) "This is CH ."
  31.     Text (125,214) "          4"
  32.    Show 1 1 5
  33. EndRepeat
  34.  
  35.   I:= 50;    #I# contains speed of conversion
  36.   DAn:= 0;    no turning
  37.  
  38. ;*****Oh no, these repeating messages, I don't know a better solution.
  39.   Text (20,220) "  When you only watch separate atoms,"
  40.   Text (20,230) "   You don't see it's a tetradron"
  41.   Show 1 1 5
  42.  Wait #i#
  43.   Text (20,220) "  When you only watch separate atoms,"
  44.   Text (20,230) "   You don't see it's a tetradron"
  45.   Show 1 1 12
  46.  Wait #i#
  47.   Lines #off#
  48.   ShowNS 1 4
  49.   Text (20,220) "  When you only watch separate atoms,"
  50.   Text (20,230) "   You don't see it's a tetradron"
  51.   Lines #on#
  52.   Show 1 6 12
  53.  Wait #i#
  54.   Text (20,220) "  When you only watch separate atoms,"
  55.   Text (20,230) "   You don't see it's a tetradron"
  56.   Show 1 6 12
  57.  Wait #i#t
  58.  
  59.   DAn:= 1
  60.   TFooter"     A tetradron (it has four planes)"
  61.  Show [#i# * 2] 6 12
  62.  
  63.   TFooter" "
  64.   Text (60,100) "  Each different angle"
  65.   Text (60,120) "in this figure is 109,5°"
  66.   SPages
  67.  Wait 100
  68.  
  69.   DAn:= 0
  70.  Show #i# 1 5
  71.  
  72.   Text (185,160) "109,5°"
  73.   Show 1 1 5
  74.  Wait #i#
  75.   Text (120, 97) "109,5°"
  76.   Show 1 1 5
  77.  Wait #i#
  78.   Text (178,105) "109,5°"
  79.   Show 1 1 5
  80.  Wait #i#
  81.   
  82.   THeader "       When you replace the H by a Cl:"
  83.  Show [#i# / 2] 1 5
  84.   CA 4 3Typ Cl14 ;replace H by Cl.
  85.  Show [#i# / 2] 1 5
  86.   CA 1 1Ang 22
  87.   CA 2 1Ang 42
  88. Repeat 5
  89.     CM 1 and 2 0rad +1
  90.     CR 3 2hei +1
  91.     CR 3 0Rad +1
  92.    Show 5 1 5
  93. EndRepeat
  94.   CA 1 1Ang 23
  95.   CA 2 1Ang 41
  96.   TFooter "   The other H-atoms move a bit away."
  97.  Show #i# 1 5
  98.   DAn:= 1;
  99.  Show #i# 1 5
  100.   THeader " "
  101.   TFooter " "
  102.  SPages        ;show nothing
  103.  
  104.   TFooter "            That's it !!"
  105.  SPages        ;show Footer-text onlu
  106. ;* end - of - file *;
  107.