home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d542 / chemnimate.lha / ChemniMaTe / Examples / vr9.ani < prev    next >
Text File  |  1991-09-19  |  3KB  |  131 lines
  1. ; paragraph 10.8 question 9 
  2. ;from: Chemie 5/6 vwo 9-11   Wolters-Noordhoff Groningen
  3. ;
  4. ; 26-Apr-91 KP van Gend   started.
  5. ; 27-Apr-91 KP van Gend   This is the first full version.
  6. ; 14-Aug-91 KP van Gend      Improved the texts, comments translated into Engl.
  7. ;              replaced 'AngleD' commands by 'DAn:='
  8.  
  9. ; c2ccbol = Cis-2-ChloorCycloButanOL
  10. ;
  11.  
  12.  
  13. Data 2
  14. ;ra angl hei type line    ;nr comment
  15. 65    0   25  R10   3    ;2   De OH-groep van c2ccbol.wordt voorgesteld door (R)-
  16. 35    0    0  C0    4   ;3   C-1
  17. 35   16    0  C0    5   ;4   C-2
  18. 35   32    0  C0    6   ;5   C-3
  19. 35   48    0  C0    3   ;6   C-4
  20. 65   16   25  Cl14  4    ;7   de Cl aan C-2
  21. 60   16  -20  H6    4   ;8   de H aan C-2
  22. 60   32   20  H6    5    ;9   de H aan C-3
  23. 60   32  -20  H6    5   ;10  de H aan C-3
  24. 60   48   20  H6    6    ;11  de H aan C-4
  25. 60   48  -20  H6    6   ;12  de H aan C-4
  26.  
  27. 65    0  -16  H6    3    ;13   de H aan C-1 (waarom komt 'ie nu pas ???)
  28. EndData
  29.  
  30. ;*****Let's start...
  31.  THeader " "
  32.  TFooter "      cis-2-ChloorCycloButanol"
  33.  Show 64 2 13
  34.  DAn:= 0
  35.  
  36. ;*****Remove -(R) from the molecule...
  37. Repeat 10
  38.    CR 2 0rad +2
  39.    CR 2 2hei +3 
  40.    Show 1 2 13
  41. EndRepeat
  42.  CA 2 4lin 2    ;kill line between
  43. Repeat 8
  44.    CR 2 0rad +2
  45.    CR 2 2hei +3
  46.    CR 13 2hei +2    ;the other -(H) must rise into the plane. 
  47.    Show 1 2 13
  48. EndRepeat
  49.  
  50. ;***** draw plane 
  51. Data 2
  52.    35  0 16 (+)16 2    ;2    Change -(R) in a (+)...
  53. Data 14            ;  the following are edges of the plane
  54.    73 0 0 In12  15    ;14
  55.    73 16 0 In12 16    ;15
  56.    73 32 0 In12 17    ;16
  57.    73 48 0 In12 14    ;17
  58. EndData 
  59.  Show 4 2 13
  60.  THeader "    Het H'tje ligt nu in het vlak..."
  61.  TFooter " En er is een positieve lading onstaan."
  62. Repeat 7
  63.    CA 2 2hei -16    ;put (+) below (C)
  64.    Show 4 2 17
  65.    CA 2 2hei +16    ;put (+) above (C)
  66.    Show 4 2 17
  67. EndRepeat
  68.  DAn:= +1
  69.  Show 32 2 13
  70.  
  71. ;****** first Chloride...
  72. Data 14
  73.    105 0 65 Cl14 14    ;14    de nieuwe Chloride
  74.    75  0 65 min18 15    ;15    en zijn (-).
  75.  
  76.    65  0 30 In12 17    ;16    some lines of a force-field (see below)
  77.    65 16 30 In12 18    ;17
  78.    65  0 25 In12 19    ;18
  79.    65 16 20 In12 19    ;19    
  80. EndData
  81.  THeader "     Nu komt er een Chloride-ion aan." 
  82.  TFooter " "
  83. Repeat 40
  84.    CM from 14 to 15   0rad -1    ;decrease radius
  85.    CM from 14 to 15   2hei -1   ;and height.
  86.    Show 1 2 15
  87. EndRepeat
  88.  Wait 25        ;wait about a second 
  89.  THeader "Deze wil aan de bovenkant vastplakken"
  90.  TFooter "  Maar dat wil de andere Chloor niet."
  91.  DAn:= 0
  92. ;*****Show field...
  93. Repeat 4
  94.    Show 5 2 19        ;Show force between the Cl-atoms
  95.    Show 5 2 15        ;don't show
  96. EndRepeat
  97. Repeat 15
  98.    CM from 14 to 15  0Rad +12    ;increase radius
  99.    Show 1 2 15
  100. EndRepeat
  101.  Show 1 2 13
  102.  Wait 50    ;wait about two seconds
  103.  
  104. ;***** second Cl.
  105.  CA 2 2Hei -16        ;put the (+) below
  106.  THeader "  Nu komt er eentje aan van de onderkant."
  107.  TFooter " "
  108.  DAn:= +1    ;let's turn again
  109. Data 14
  110.    105 0 -65 Cl14  14    ;14    the new Chloride
  111.    75  0 -56 min18 15    ;15    and his (-).
  112. EndData
  113. Repeat 40
  114.    CM from 14 to 15   0rad -1    ;decrease radius
  115.    CM from 14 to 15   2hei +1   ;and height
  116.    Show 1 2 15
  117. EndRepeat
  118.  TFooter "    Die mag er wel komen vastplakken"
  119.  CA 14 4line 3    ;connect
  120.  CA 13 2hei +16    ;and send the H up...
  121.  Show 87 3 14    ;don't show (+) and (-) anymore...
  122.  
  123.  TFooter " "
  124.  THeader " "
  125.  DAn:= 0
  126.  Text (20,200) "Dit is trans-1,2-diChloorCycloButaan"
  127.  Show 1 3 14
  128.  Wait 250 ; = 10 seconds
  129.  
  130. ;That's it guys!!!
  131.