home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / KEY / NEW192.KEY < prev   
Text File  |  1995-03-19  |  2KB  |  192 lines
  1. ;; Demo of new Fractint version 19 features
  2. ;; Created by Jonathan Osuch
  3. ;;
  4. ;; This demo goes through once and then exits.
  5. ;;    The new bailout tests are demonstrated
  6. ;;    The browser feature is demonstrated
  7. ;;    The new outside=atan is demonstrated
  8. ;;    The extended bailout value is demonstrated
  9. ;;    The new ant fractal type is demonstrated
  10.  
  11. WAIT 5
  12.  
  13. ;; Set up first image
  14. ENTER
  15. WAIT 1.0
  16. DOWN * 2 ;; "x"
  17. "x"
  18. WAIT 1.0
  19. DOWN
  20. "y" ;; turn on floating point
  21. ;; comment out above the line if floating point is too slow
  22. ;; note that if you do, bailout=40000 will really be bailout=127
  23. ;; the integer limit for bailout
  24. DOWN * 2
  25. "0" ;; inside = 0
  26. DOWN * 2
  27. "new19001"
  28. WAIT 1.0
  29. ENTER
  30.  
  31. "c"
  32. "l"
  33. "default"
  34. WAIT  1.0
  35. ENTER
  36. ESC
  37.  
  38. ;;  Set up the browse parameters for demo
  39. DOWN * 7 ;; Ctrl-B
  40.    2
  41. WAIT 1.0
  42. DOWN
  43. "n" ;; Don't ask about video mode
  44. WAIT 1.0
  45. DOWN * 6
  46. "new19*.gif"
  47. WAIT 1.0
  48. ENTER
  49.  
  50. DOWN * 4 ;; "z"
  51. "z"
  52. WAIT 1.0
  53. DOWN * 2
  54. "r"  ;; real
  55. WAIT  2.0
  56. ENTER
  57.  
  58. ;; Make the first image
  59. DELETE
  60. WAIT 2.0
  61. sf5
  62. CALCWAIT
  63. MESSAGE 2bailout test=real
  64. "s"
  65. CALCWAIT
  66. ;; Zoom in and save are for later browser use
  67. PAGEUP * 23
  68. WAIT  1.0
  69. 1115 * 19
  70. WAIT  1.0
  71. ENTER
  72. CALCWAIT
  73. "s"
  74. CALCWAIT
  75. PAGEUP * 10
  76. WAIT 1.0
  77. ENTER
  78. CALCWAIT
  79. "s"
  80. CALCWAIT
  81. "t"
  82. WAIT 1.0
  83. ENTER
  84. DOWN * 2
  85. "i"  ;; imag
  86. WAIT  2.0
  87. ENTER
  88. CALCWAIT
  89. MESSAGE 2bailout test=imag
  90. PAGEUP * 25
  91. 1141 * 6
  92. 1115 * 7
  93. WAIT  2
  94. ENTER
  95. CALCWAIT
  96. "s"
  97. CALCWAIT
  98. "t"
  99. WAIT  1.0
  100. ENTER
  101. WAIT 1.0
  102. DOWN * 2
  103. "o"  ;; or
  104. WAIT  2.0
  105. ENTER
  106. CALCWAIT
  107. MESSAGE 2bailout test=or
  108. "z"
  109. DOWN * 2
  110. "a"  ;; and
  111. WAIT  2.0
  112. ENTER
  113. CALCWAIT
  114. MESSAGE 2bailout test=and
  115. ;; Start outside=atan demo
  116. "x"
  117. DOWN * 2
  118. "500"
  119. DOWN * 2
  120. "atan"
  121. WAIT  2.0
  122. ENTER
  123. "c"
  124. "l"
  125. "chroma"
  126. WAIT  1.0
  127. ENTER
  128. ESC
  129. CALCWAIT
  130. MESSAGE 2outside=atan
  131.  
  132. "z"
  133. UP
  134. "40000"
  135. ENTER
  136. CALCWAIT
  137. MESSAGE 2bailout=40000
  138.  
  139. Startbrowse:
  140. ;; Start demo of browse features
  141. "r"
  142. "new19001.gif"
  143. ENTER
  144. CALCWAIT
  145. "l"
  146. CALCWAIT
  147. WAIT  2.0
  148. ENTER
  149. CALCWAIT
  150. WAIT 2.0
  151. "l"
  152. CALCWAIT
  153. WAIT 2.0
  154. ENTER
  155. CALCWAIT
  156. WAIT 2.0
  157. "\"
  158. CALCWAIT
  159. WAIT 2.0
  160. "\"
  161. CALCWAIT
  162. WAIT 1.0
  163. "l"
  164. CALCWAIT
  165. WAIT 2.0
  166. RIGHT
  167. WAIT 2.0
  168. RIGHT
  169. WAIT 2.0
  170. ENTER
  171. CALCWAIT
  172. WAIT 5.0
  173. "t"
  174. "julia"
  175. ENTER
  176. DOWN * 2
  177. "m"  ;; mod
  178. ENTER
  179. CALCWAIT
  180. ;; Start of ant demo
  181.    1  ;; ctrl-a
  182. ;;"1101"
  183. WAIT  1.0
  184. ENTER
  185. WAIT 20.0
  186. MESSAGE 2type=ant
  187.  
  188. End:
  189. ESC
  190. ESC
  191. "y"
  192.