home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / bench12.zip / BENCH12.SCR < prev    next >
Text File  |  1992-12-22  |  5KB  |  215 lines
  1. (setq file1 nil)(setq file2 nil)(setq file3 nil)(setq file4 nil)(setq filed nil)
  2. (setq file1 "sample/psshadow")
  3. (setq file2 "sample/housepln")
  4. (setq file3 "support/chroma")
  5. (setq file4 "$$$$TEMP.EPS")
  6. (xload "acadapp")
  7. _viewres y 1300
  8. (setq filed (getvar "FILEDIA"))
  9. _setvar FILEDIA 0
  10. (command "del" file4)
  11. (command "_insert" file1 "0,0" "1" "1" "0")
  12. _setvar PSQUALITY 35
  13. (command "psout" file4 "e" "n" "i" "f" "a")
  14. _erase c 0,0 100,100 
  15. _redraw
  16. psin $$$$TEMP.EPS 0,0,0 25
  17. _undo c none
  18. _redraw
  19. (command "del" file4)
  20. _setvar FILEDIA (setq filed filed)
  21. _time r on 
  22. _graphscr
  23. (setq start (getvar "tdusrtimer"))
  24. _move c 0,0 100,100  0,0 120,-45
  25. (command "_insert" file2 "0,0" "1" "1" "0")
  26. _redraw
  27. (command "_insert" file2 "0,0" ".001" ".001" "0")
  28. _redraw
  29. (command "_insert" file3 "30,30" ".005" ".005" "0")
  30. _redraw
  31. (command "_insert" file3 "30.4017,30.2191" ".0001" ".0001" "0")
  32. _redraw
  33. (setq file1 nil)
  34. (setq file2 nil)
  35. (setq file3 nil)
  36. (setq file4 nil)
  37. (setq filed nil)
  38. (setq oend (getvar "tdusrtimer"))
  39. _zoom e
  40. (setq regend (getvar "tdusrtimer"))
  41. _explode -435.1255,-354.6881
  42. _zoom c 0,0 1.3143
  43. _explode 0,0
  44. _zoom c 30.41,30.2235 .04
  45. _explode 30.41,30.22
  46. _zoom c 30.41,30.2235 1
  47. _explode 30.2,30.2
  48. _color yellow
  49. _donut 100 300 1000,900 
  50. _color white
  51. (setq expend (getvar "tdusrtimer"))
  52. _zoom v
  53. _zoom 1.9x
  54. _zoom 1.8x
  55. _zoom 1.9x
  56. _zoom 1.8x
  57. _zoom 1.9x
  58. _zoom 1.8x
  59. _zoom c 0,0 
  60. _zoom 1.9x
  61. _zoom 1.8x
  62. _zoom 1.9x
  63. _zoom 1.8x
  64. _zoom 1.9x
  65. _zoom 1.9x
  66. _zoom 1.8x
  67. _zoom 1.9x
  68. _zoom 1.8x
  69. _zoom 1.9x
  70. _zoom 1.8x
  71. _zoom 1.9x
  72. _zoom 1.8x
  73. _zoom .6x
  74. _zoom .6x
  75. _zoom .6x
  76. _zoom .6x
  77. _zoom .6x
  78. _zoom .6x
  79. _zoom .6x
  80. _zoom .6x
  81. _zoom .6x
  82. _zoom .6x
  83. _zoom .6x
  84. _zoom .6x
  85. _zoom .6x
  86. _zoom .6x
  87. _zoom .6x
  88. _zoom .6x
  89. _zoom c 30,30 
  90. _zoom 1.9x
  91. _zoom 1.8x
  92. _zoom 1.9x
  93. _zoom 1.8x
  94. _zoom c 30.4097,30.2234 
  95. _zoom 1.9x
  96. _zoom 1.8x
  97. _zoom 1.9x
  98. _zoom 1.8x
  99. _zoom 1.9x
  100. _zoom 1.8x
  101. _zoom 1.9x
  102. _zoom 1.8x
  103. _zoom 1.9x
  104. _zoom 1.8x
  105. _zoom 1.9x
  106. _zoom 1.8x
  107. _zoom .6x
  108. _zoom .6x
  109. _zoom .6x
  110. _zoom .6x
  111. _zoom .6x
  112. _zoom .6x
  113. _zoom .6x
  114. _zoom .6x
  115. _zoom .6x
  116. _zoom .6x
  117. _zoom .6x
  118. _zoom .6x
  119. _zoom .6x
  120. _zoom .6x
  121. _zoom .6x
  122. _zoom .6x
  123. _zoom .6x
  124. _zoom .6x
  125. _zoom .6x
  126. _zoom .6x
  127. _zoom c 142,-30 
  128. _zoom 2.5x
  129. _zoom p
  130. _zoom c 715,480 
  131. _zoom 2.5x
  132. _zoom p
  133. _zoom c -500,200 
  134. _zoom 2.5x
  135. _zoom p
  136. _zoom c -50,310 
  137. _zoom 2.5x
  138. _zoom p
  139. _view s 1
  140. _zoom c 941.6,866.2827 .02
  141. _zoom c 1049.3844,907.8218 .02
  142. _view r 1
  143. _zoom c 142,-30 
  144. _zoom 3x
  145. (setq z1end (getvar "tdusrtimer"))
  146. _color green
  147. _pline 118,-46 118,-14 163,-14 163,-46 c
  148. _redraw
  149. _pedit l w 1 w 2 w 3 w 4 w 5 w 6 w 7 w 8 w 9 w 10 w 9 w 8 w 7 w 6 w 5 w 4 w 3 w 2 w 1 
  150. _redraw
  151. _undo all
  152. _rotate c 110,-30 170,-31  0,0 5
  153. _redraw
  154. _rotate p  0,0 5
  155. _redraw
  156. _rotate p  0,0 5
  157. _redraw
  158. _rotate p  0,0 5
  159. _undo  _undo 
  160. _undo  _undo 
  161. _undo  _undo 
  162. _undo  _undo 
  163. _donut 3 6
  164. 167,-44 167,-37 167,-30 167,-23 167,-16
  165. 174,-44 174,-37 174,-30 174,-23 174,-16
  166. 181,-44 181,-37 181,-30 181,-23 181,-16
  167. 188,-44 188,-37 188,-30 188,-23 188,-16 
  168. _move c 167,-44 188,-16  0,0 10,10
  169. _redraw
  170. _undo  _undo 
  171. _redraw
  172. _undo c none
  173. _zoom c 0,0 
  174. _zoom 20x
  175. _circle 1,2 .2
  176. _array l  r 20 10 -.4 .4
  177. _undo all
  178. _move c -.7913,-.5764 0.7913,0.5573  0,0 -0.3,-0.4
  179. _undo 
  180. _undo c none
  181. _rotate c -.7913,-.5764 0.7913,0.5573  -25,0 5
  182. _redraw
  183. _erase c 1,2 4.6,.8 c 1,.4 4.6,-5.6 
  184. _pan 0,0 0,-2
  185. _rotate c -.9438,1.5 .7245,2.8151  -25,0 -4
  186. _zoom c 30,30 
  187. _rotate c 30,30 31,31  30,30 5
  188. _redraw
  189. _zoom v
  190. _zoom 4x
  191. _redraw
  192. (setq edend (getvar "tdusrtimer"))
  193. _select c -1000,-1000 1000,1000 'zoom 8x 'zoom p 
  194. _zoom c 0,-1900 
  195. (setq erend (getvar "tdusrtimer"))
  196. (setq total (* 86400.0 (- erend start)))
  197. (setq erend (* 86400.0 (- erend edend)))
  198. (setq edend (* 86400.0 (- edend z1end)))
  199. (setq z1end (* 86400.0 (- z1end expend)))
  200. (setq expend (* 86400.0 (- expend regend)))
  201. (setq regend (* 86400.0 (- regend oend)))
  202. (setq oend (* 86400.0 (- oend start)))
  203. _color white
  204. (command "_text" "-700,-1500"  "75" "0" "- Totals in Seconds -")
  205. (command "_text" "-700,-1700"  "75" "0" (strcat "Generate drawing : " (rtos oend 2 1)))
  206. (command "_text" "-700,-1800"  "75" "0" (strcat "Zoom Extents : " (rtos regend 2 1)))
  207. (command "_text" "-700,-1900"  "75" "0" (strcat "Explode : " (rtos expend 2 1)))
  208. (command "_text" "-700,-2000"  "75" "0" (strcat "Zoom/Pan : " (rtos z1end 2 1)))
  209. (command "_text" "-700,-2100" "75" "0" (strcat "Edits/Change : " (rtos edend 2 1)))
  210. (command "_text" "-700,-2300" "75" "0" (strcat "Total Time : " (rtos total 2 1)))
  211. _redraw
  212. _undo all
  213. _graphscr
  214. _status
  215. Look_at_Virtual_memory_allocated_to_program_above.__Lower_is_better.__Press_F1_for_totals.