home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Chemistry / Midas / Demos / crodna / demo.com < prev    next >
Text File  |  1992-08-19  |  2KB  |  65 lines
  1. system open demo.snd
  2. set halfbond
  3. chain #0@ca
  4. clip h -1 15 ; clip y 1 15 ; wait
  5. color cyan #1 ; color red #0:1-67 ; color green #0:201-267
  6. disp #1
  7. select 0; ~select 1
  8. move x -1 24; wait
  9. select 1
  10. move y -0.22 13 ; move x 1 19; wait
  11. turn y -2 45 ; wait
  12. turn x 2 45 ; wait
  13. turn y 2 60 ; clip h -0.1 50 ; wait
  14. turn y -2 15; clip h 0.1 50 ; wait
  15. display #0 ; conic -W ; chain #0@ca
  16. turn z 2 45 ; wait
  17. disp #0:38
  18. color green #0:38
  19. move y -1 8 ; wait
  20. scale 1.019 75 ; clip h -0.25 80; clip y 0.1 110; wait
  21. color white #0:38@h??; wait
  22. color 14 #0:38@n,n?,n??; wait
  23. color 32 #0:38@o; wait
  24. la #0:38 ; charsz 4
  25. cofr #0:38@cz
  26. turn x 1 30; wait
  27. color green #1:462@c?,c??; color 32 #1:462@o?,o??; color yellow #1:462@p
  28. la #1:462
  29. dist 0 #0:38@nh2 #1:462@o6
  30. dist 1 #0:38@nh1 #1:462@n7
  31. vdwopt dens 4 ; vdw #1:462@o6,n7,c6,c8,c5,n1
  32. vdwopt hydrogen ; vdw #0:38@cz-*
  33. cofr #0:38@cz
  34. savepos orig
  35. turn y -1 25 ; wait ; turn x 1 45 ; wait
  36. clip h -.1 8 ; clip y 1 19 ; wait
  37. ~vdw #0:38 #1:462
  38. swapn t #1:462
  39. color green #1:462@c?,c??
  40. color 14 #1:462@n?,n??
  41. color 32 #1:462@o?,o??
  42. color yellow #1:462@p
  43. vdwopt default ; vdw #1:462@c5m,c6,c5,c4,o4
  44. vdwopt hydrogen ; vdw #0:38@cz-*
  45. sleep 2
  46. reset orig ; ~vdw #0:38#1:462
  47. swapn a #1:462
  48. color green #1:462@c?,c??
  49. color 32 #1:462@o?,o??
  50. color 14 #1:462@n?,n??
  51. color yellow #1:462@p
  52. color green #1:463@c?,c??
  53. color 32 #1:463@o?,o??
  54. color yellow #1:463@p
  55. move y -.1 10 ; move x -.2 10 ; wait
  56. dist #0:38@nh1 #1:462@n7
  57. dist #0:38@nh2 #1:463@o4
  58. rot #0:38@ca,cb ; rot #0:38@cb,cg ; rot #0:38@cg,cd ; rot #0:38@cd,ne
  59. angle #0:38@h12@nh2 #1:463@o4 ; angle #0:38@h13@nh1 #1:462@n7
  60. vdwopt hydrogen ; vdw #0:38@ca-*
  61. turn 0 .1 77 ; turn 1 -.1 130 ; turn 2 1 110 ; turn 3 1 20 ; wait
  62. vdwopt default ; vdw #1:463@o4,c4,c5,c5m,c6:462@n7,c5,c6,n6,n1,c8
  63. cofr #1:462@n7
  64. clip y .33 39 ; turn y 1 45 ; wait ; system echo "Demo Complete"
  65.