home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / frain192.exe / NEW19.KEY < prev    next >
Text File  |  1995-03-08  |  2KB  |  184 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. ;;  Set up the browse parameters for demo
  31. DOWN * 7 ;; Ctrl-B
  32.    2
  33. WAIT 1.0
  34. DOWN
  35. "n" ;; Don't ask about video mode
  36. WAIT 1.0
  37. DOWN * 6
  38. "new19*.gif"
  39. WAIT 1.0
  40. ENTER
  41.  
  42. DOWN * 4 ;; "z"
  43. "z"
  44. WAIT 1.0
  45. DOWN * 2
  46. "r"  ;; real
  47. WAIT  2.0
  48. ENTER
  49.  
  50. ;; Make the first image
  51. DELETE
  52. WAIT 2.0
  53. F3
  54. CALCWAIT
  55. MESSAGE 2bailout test=real
  56. "s"
  57. CALCWAIT
  58. ;; Zoom in and save are for later browser use
  59. PAGEUP * 23
  60. WAIT  1.0
  61. 1115 * 19
  62. WAIT  1.0
  63. ENTER
  64. CALCWAIT
  65. "s"
  66. CALCWAIT
  67. PAGEUP * 10
  68. WAIT 1.0
  69. ENTER
  70. CALCWAIT
  71. "s"
  72. CALCWAIT
  73. "t"
  74. WAIT 1.0
  75. ENTER
  76. DOWN * 2
  77. "i"  ;; imag
  78. WAIT  2.0
  79. ENTER
  80. CALCWAIT
  81. MESSAGE 2bailout test=imag
  82. PAGEUP * 25
  83. 1141 * 6
  84. 1115 * 7
  85. WAIT  2
  86. ENTER
  87. CALCWAIT
  88. "s"
  89. CALCWAIT
  90. "t"
  91. WAIT  1.0
  92. ENTER
  93. WAIT 1.0
  94. DOWN * 2
  95. "o"  ;; or
  96. WAIT  2.0
  97. ENTER
  98. CALCWAIT
  99. MESSAGE 2bailout test=or
  100. "z"
  101. DOWN * 2
  102. "a"  ;; and
  103. WAIT  2.0
  104. ENTER
  105. CALCWAIT
  106. MESSAGE 2bailout test=and
  107. ;; Start outside=atan demo
  108. "x"
  109. DOWN * 2
  110. "500"
  111. DOWN * 2
  112. "atan"
  113. WAIT  2.0
  114. ENTER
  115. "c"
  116. "l"
  117. "chroma"
  118. WAIT  1.0
  119. ENTER
  120. ESC
  121. CALCWAIT
  122. MESSAGE 2outside=atan
  123.  
  124. "z"
  125. UP
  126. "40000"
  127. ENTER
  128. CALCWAIT
  129. MESSAGE 2bailout=40000
  130.  
  131. Startbrowse:
  132. ;; Start demo of browse features
  133. "r"
  134. "new19001.gif"
  135. ENTER
  136. CALCWAIT
  137. "l"
  138. CALCWAIT
  139. WAIT  2.0
  140. ENTER
  141. CALCWAIT
  142. WAIT 2.0
  143. "l"
  144. CALCWAIT
  145. WAIT 2.0
  146. ENTER
  147. CALCWAIT
  148. WAIT 2.0
  149. "\"
  150. CALCWAIT
  151. WAIT 2.0
  152. "\"
  153. CALCWAIT
  154. WAIT 1.0
  155. "l"
  156. CALCWAIT
  157. WAIT 2.0
  158. RIGHT
  159. WAIT 2.0
  160. RIGHT
  161. WAIT 2.0
  162. ENTER
  163. CALCWAIT
  164. WAIT 5.0
  165. "t"
  166. "julia"
  167. ENTER
  168. DOWN * 2
  169. "m"  ;; mod
  170. ENTER
  171. CALCWAIT
  172. ;; Start of ant demo
  173.    1  ;; ctrl-a
  174. ;;"1101"
  175. WAIT  1.0
  176. ENTER
  177. WAIT 20.0
  178. MESSAGE 2type=ant
  179.  
  180. End:
  181. ESC
  182. ESC
  183. "y"
  184.