; paragraph 10.8 question 9 
;from: Chemie 5/6 vwo 9-11   Wolters-Noordhoff Groningen
;
; 26-Apr-91 KP van Gend   started.
; 27-Apr-91 KP van Gend   This is the first full version.
; 14-Aug-91 KP van Gend	  Improved the texts, comments translated into Engl.
;			  replaced 'AngleD' commands by 'DAn:='

; c2ccbol = Cis-2-ChloorCycloButanOL
;


Data 2
;ra angl hei type line	;nr comment
65    0   25  R10   3	;2   De OH-groep van c2ccbol.wordt voorgesteld door (R)-
35    0    0  C0    4   ;3   C-1
35   16    0  C0    5   ;4   C-2
35   32    0  C0    6   ;5   C-3
35   48    0  C0    3   ;6   C-4
65   16   25  Cl14  4	;7   de Cl aan C-2
60   16  -20  H6    4   ;8   de H aan C-2
60   32   20  H6    5	;9   de H aan C-3
60   32  -20  H6    5   ;10  de H aan C-3
60   48   20  H6    6	;11  de H aan C-4
60   48  -20  H6    6   ;12  de H aan C-4

65    0  -16  H6    3	;13   de H aan C-1 (waarom komt 'ie nu pas ???)
EndData

;*****Let's start...
 THeader " "
 TFooter "      cis-2-ChloorCycloButanol"
 Show 64 2 13
 DAn:= 0

;*****Remove -(R) from the molecule...
Repeat 10
   CR 2 0rad +2
   CR 2 2hei +3 
   Show 1 2 13
EndRepeat
 CA 2 4lin 2	;kill line between
Repeat 8
   CR 2 0rad +2
   CR 2 2hei +3
   CR 13 2hei +2	;the other -(H) must rise into the plane. 
   Show 1 2 13
EndRepeat

;***** draw plane 
Data 2
   35  0 16 (+)16 2	;2    Change -(R) in a (+)...
Data 14			;  the following are edges of the plane
   73 0 0 In12  15	;14
   73 16 0 In12 16	;15
   73 32 0 In12 17	;16
   73 48 0 In12 14	;17
EndData 
 Show 4 2 13
 THeader "    Het H'tje ligt nu in het vlak..."
 TFooter " En er is een positieve lading onstaan."
Repeat 7
   CA 2 2hei -16	;put (+) below (C)
   Show 4 2 17
   CA 2 2hei +16	;put (+) above (C)
   Show 4 2 17
EndRepeat
 DAn:= +1
 Show 32 2 13

;****** first Chloride...
Data 14
   105 0 65 Cl14 14	;14	de nieuwe Chloride
   75  0 65 min18 15	;15	en zijn (-).

   65  0 30 In12 17	;16	some lines of a force-field (see below)
   65 16 30 In12 18	;17
   65  0 25 In12 19	;18
   65 16 20 In12 19	;19	
EndData
 THeader "     Nu komt er een Chloride-ion aan." 
 TFooter " "
Repeat 40
   CM from 14 to 15   0rad -1	;decrease radius
   CM from 14 to 15   2hei -1   ;and height.
   Show 1 2 15
EndRepeat
 Wait 25		;wait about a second 
 THeader "Deze wil aan de bovenkant vastplakken"
 TFooter "  Maar dat wil de andere Chloor niet."
 DAn:= 0
;*****Show field...
Repeat 4
   Show 5 2 19		;Show force between the Cl-atoms
   Show 5 2 15		;don't show
EndRepeat
Repeat 15
   CM from 14 to 15  0Rad +12	;increase radius
   Show 1 2 15
EndRepeat
 Show 1 2 13
 Wait 50	;wait about two seconds

;***** second Cl.
 CA 2 2Hei -16		;put the (+) below
 THeader "  Nu komt er eentje aan van de onderkant."
 TFooter " "
 DAn:= +1	;let's turn again
Data 14
   105 0 -65 Cl14  14	;14	the new Chloride
   75  0 -56 min18 15	;15	and his (-).
EndData
Repeat 40
   CM from 14 to 15   0rad -1	;decrease radius
   CM from 14 to 15   2hei +1   ;and height
   Show 1 2 15
EndRepeat
 TFooter "    Die mag er wel komen vastplakken"
 CA 14 4line 3	;connect
 CA 13 2hei +16	;and send the H up...
 Show 87 3 14	;don't show (+) and (-) anymore...

 TFooter " "
 THeader " "
 DAn:= 0
 Text (20,200) "Dit is trans-1,2-diChloorCycloButaan"
 Show 1 3 14
 Wait 250 ; = 10 seconds

;That's it guys!!!