home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p058 / 1.img / H91A.PAK / DEMO.SCR < prev    next >
Encoding:
Text File  |  1991-02-01  |  1.3 KB  |  85 lines
  1. (menucmd "s=ROOT")
  2. (grtext -2 "DEMO For 3DTake program ")
  3. (setq sc 100.0)
  4. (LOAD "dl")
  5. DELayer WALLO3D
  6. (grtext 11 "" 1)
  7. Delay 600
  8. (grtext 11 "")
  9. (menucmd "s=S")
  10. (grtext 11 "" 1)
  11. delay 600
  12. (grtext 11 "")
  13. (menucmd "s=x")
  14. (menucmd "s=SET")
  15. (grtext 16 "" 1)
  16. Delay 600
  17. (grtext 16 "")
  18. (menucmd "s=x")
  19. (menucmd "s=SET2")
  20. (grtext 12 "" 1)
  21. Delay 600
  22. (grtext 12 "")
  23. (menucmd "s=X")
  24. (menucmd "s=Vports 3")
  25. (grtext 2 "" 1)
  26. Delay 300
  27. (grtext 2 "")
  28. (grtext 8 "" 1)
  29. Viewports Si
  30. (grtext 8 "")
  31. (grtext 12 "" 1)
  32. Delay 600
  33. (grtext 12 "")
  34. (menucmd "s=vp3")
  35. (grtext 8 "" 1)
  36. Vports 3 R
  37. (grtext 8 "")
  38. ucs w
  39. setvar cvport 3
  40. vpoint 1,-1,.3
  41. Zoom e
  42. setvar cvport 6
  43. ucs x 90
  44. plan
  45.  
  46. ucs w
  47. setvar cvport 1
  48. (grtext 0 "" 1)
  49. Delay 600
  50. (grtext 0 "")
  51. (menucmd "s=x")
  52. (menucmd "s=S")
  53. (grtext)
  54. (grtext 21 "" 1)
  55. Delay 600
  56. (grtext 21 "")
  57. (menucmd "s=ROOT")
  58. (grtext 6 "" 1)
  59. delay 500
  60. (grtext 6 "")
  61. (grtext 6 "" 1)
  62. (grtext 6 "")
  63. (menucmd "s=SS")
  64. (menucmd "s=flt3d")
  65. (grtext 3 " " 1)
  66. delay 500
  67. (grtext 3 "")
  68. (grtext 3 "" 1)
  69. (LOAD "hj10")
  70. 3DTAKE n 3000
  71. LAYER F BD
  72.  
  73. SETVAR CVPORT 3
  74. HIDE
  75. setvar cvport 1
  76. zoom w 300,215 370,269
  77. (LOAD "HJ12")
  78. AW3D 308,231.7 331.8,239.7 0 3000 Arc 3
  79. aw3d 332,233 354,240 0 3000 Circle
  80. Setvar cvport 3
  81. Zoom w 455,56 342,310
  82. REDRAWALL
  83. hide
  84. setvar cvport 1
  85.