home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / KEY / DEMO.KEY < prev    next >
Text File  |  1993-05-28  |  10KB  |  632 lines
  1. ;; Fractint demonstration autokey file.
  2. ;; Written by Pieter Branderhorst.
  3. Restart:
  4. WAIT 4           ; view credits a while
  5. ;; video modes, ifs, zoom & rotate, plasma, cycle, authors help
  6. "M"
  7. WAIT 1
  8. DOWN
  9. WAIT 1.5
  10. "T"
  11. WAIT 1
  12. "ifs"
  13. WAIT 1
  14. ENTER
  15. WAIT 1
  16. "fern"
  17. WAIT 2
  18. ENTER
  19. WAIT 2
  20. ENTER
  21. WAIT 2           ; menu, pick 'x' options
  22. DOWN * 2
  23. WAIT 1
  24. "X"
  25. WAIT .5
  26. DOWN * 2
  27. "70"             ; max iter
  28. WAIT 1.5
  29. ENTER
  30. WAIT 1           ; menu, pick select video mode
  31. DELETE
  32. WAIT 1           ; page thru video modes a bit to show there are many
  33. PAGEDOWN
  34. WAIT 1
  35. PAGEDOWN
  36. WAIT 1
  37. PAGEDOWN
  38. WAIT 1
  39. PAGEDOWN
  40. WAIT 1
  41. PAGEUP * 4
  42. WAIT 1
  43. ENTER           ; get fern going in default video mode
  44. WAIT 3.5
  45. PAGEUP * 11     ; zoom and rotate
  46. WAIT .3
  47. 1142 * 17
  48. WAIT .3
  49. RIGHT * 25
  50. UP
  51. WAIT 1.5
  52. ENTER
  53. CALCWAIT
  54. WAIT 7          ; finished ifs fern, view it a while
  55. "t"             ; start plasma sequence
  56. WAIT 1
  57. "plasma"
  58. WAIT 1
  59. ENTER
  60. WAIT 2
  61. ENTER
  62. CALCWAIT
  63. WAIT 2
  64. "-"             ; finished plasma, cycle it a few ways
  65. WAIT 8
  66. "+"
  67. WAIT 5
  68. F5
  69. WAIT 9
  70. F9
  71. WAIT 18
  72. F1              ; start help sequence
  73. WAIT .1
  74. F1
  75. DOWN
  76. WAIT 2
  77. WAIT .5
  78. ENTER
  79. WAIT  9         ; view intro screen 1
  80. PAGEDOWN
  81. PAGEDOWN
  82. WAIT  9         ; intro screen 3
  83. F1
  84. DOWN * 2
  85. WAIT .5
  86. ENTER
  87. WAIT  7         ; conditions on use
  88. ESC
  89. WAIT 2
  90. ESC
  91. INSERT
  92. WAIT 3
  93. ;;
  94. ;; julia hypnoteyes, palette editor, same image with decomp
  95. ;; ok to start a copy of file from here for testing
  96. "tjulia"        ; pick julia
  97. WAIT  1
  98. ENTER
  99. WAIT  1
  100. ".25892"        ; change parameters
  101. DOWN
  102. "0"
  103. WAIT  1
  104. ENTER
  105. WAIT  1
  106. ENTER
  107. WAIT  1
  108. ENTER
  109. CALCWAIT        ; generate initial julia
  110. WAIT 1
  111. PAGEUP * 25     ; zoom into it
  112. WAIT .1
  113. 1141 * 11
  114. PAGEUP
  115. WAIT 1
  116. ENTER           ; start generating 1st zoom
  117. WAIT 6
  118. PAGEUP * 5      ; interrupt with 2nd (final) zoom
  119. 1141 * 2
  120. RIGHT * 3
  121. UP * 8
  122. WAIT 1
  123. ENTER           ; start generating final zoom of julia
  124. WAIT .5
  125. "X"             ; interrupt to change some "x" options
  126. WAIT 1
  127. DOWN * 2
  128. "210"
  129. DOWN
  130. "0"
  131. WAIT  1
  132. ENTER
  133. CALCWAIT        ; now generate the final julia
  134. WAIT 1
  135. "-"
  136. F6
  137. DOWN * 5
  138. WAIT 35         ; view cycling of julia a while
  139. ESC             ; exit cycling
  140. WAIT  1.0
  141. "E"             ; palette editor
  142. WAIT  1
  143. ENTER
  144. WAIT  7         ; view palette editor a while
  145. F1
  146. WAIT  1         ; just a sec at command summary
  147. ENTER           ; go to descriptive part
  148. WAIT  9         ; view palette editor help a while
  149. ESC
  150. WAIT 1          ; adjust a color
  151. "X"
  152. WAIT  2
  153. "R5"
  154. WAIT  1
  155. "B5"
  156. WAIT  1
  157. "G5"
  158. WAIT  1
  159. "R4"
  160. WAIT  1
  161. "3"
  162. WAIT  1
  163. "2"
  164. WAIT  1
  165. "X"
  166. WAIT  3
  167. ESC
  168. WAIT  2
  169. "-"             ; cycle julia a bit more
  170. F6
  171. DOWN * 5
  172. WAIT 12
  173. ESC
  174. "V"             ; use view window cause next stage is a bit slower
  175. WAIT 1
  176. "y"
  177. DOWN
  178. "2"
  179. WAIT 1
  180. ENTER
  181. "X"             ; set decomp
  182. DOWN * 10
  183. WAIT  1
  184. "256"
  185. WAIT  1
  186. ENTER           ; start generating decomp julia
  187. WAIT  15
  188. "CL"            ; interrupt to change to blues.map
  189. WAIT  1
  190. "BLUES"
  191. WAIT  1
  192. ENTER
  193. ESC
  194. CALCWAIT        ; finish the calculation
  195. WAIT 1
  196. "CL"            ; change to neon.map
  197. WAIT .6
  198. "NEON"
  199. WAIT .6
  200. ENTER
  201. WAIT 1
  202. "-"             ; start cycling, speed it up
  203. UP * 60
  204. WAIT 15         ; view cycling of decomp a while
  205. ESC
  206. WAIT  1
  207. INSERT
  208. WAIT 3
  209. ;;
  210. ;; lorenz, mandel biomorph
  211. ;; ok to start a copy of file from here for testing
  212. "tlorenz"          ; select lorenz
  213. WAIT 1
  214. ENTER
  215. WAIT 1
  216. ENTER
  217. WAIT .6         ; default video
  218. ENTER
  219. WAIT .6
  220. ENTER
  221. WAIT 20         ; view lorenz for a while
  222. ESC
  223. WAIT 3
  224. DOWN            ; select type from menu
  225. DOWN * 4
  226. WAIT .6
  227. "T"
  228. "mandel"
  229. WAIT 1
  230. ENTER
  231. WAIT .6
  232. ENTER
  233. WAIT 3          ; start generating image
  234. "X"             ; interrupt to x options, enable biomorph
  235. WAIT 1
  236. UP *4
  237. WAIT .6
  238. "0"
  239. WAIT .8
  240. ENTER
  241. CALCWAIT
  242. WAIT 6          ; view biomorph for a while
  243. "M"
  244. WAIT 2
  245. F1
  246. WAIT 6          ; view command help, 2 pages for a while
  247. PAGEDOWN
  248. WAIT 6
  249. ESC
  250. INSERT
  251. WAIT 3
  252. ;;
  253. ;; mandel, zoom in stages to a mini lake, using btm along the way,
  254. ;;   3d transforms
  255. ;; ok to start a copy of file from here for testing
  256. "Tmandel"
  257. WAIT .6
  258. ENTER
  259. WAIT .6
  260. ENTER
  261. WAIT .6         ; default video
  262. ENTER
  263. WAIT .6
  264. ENTER
  265. CALCWAIT        ; default mandel
  266. WAIT 1.5
  267. PAGEUP * 30     ; zoom into it
  268. WAIT .2
  269. 1145 * 2
  270. 1115 * 4
  271. UP * 2
  272. WAIT  1
  273. ENTER           ; 1st zoom of mandel
  274. WAIT  7
  275. "X"             ; interrupt with change to btm
  276. WAIT  1
  277. "B"
  278. WAIT  1
  279. DOWN * 3    ; force inside = 1 (inside=0 kills btm)
  280. "1"
  281. ENTER
  282. CALCWAIT
  283. WAIT 1.5
  284. PAGEUP * 29     ; zoom in
  285. WAIT  1
  286. RIGHT * 7
  287. UP * 11
  288. WAIT 1.4
  289. ENTER           ; 2nd zoom of mandel
  290. WAIT 5
  291. "V"             ; interrupt to use view window to speed things up
  292. WAIT 1
  293. "Y"
  294. DOWN
  295. "2"
  296. WAIT 1
  297. ENTER
  298. CALCWAIT        ; 2nd zoom of mandel
  299. WAIT 2.5
  300. PAGEUP * 27     ; zoom in
  301. WAIT .2
  302. RIGHT * 17
  303. WAIT .2
  304. DOWN * 10
  305. WAIT 1.4
  306. ENTER           ; calc 3rd zoom of mandel
  307. WAIT 9
  308. "X"             ; interrupt with increase of maxiter & log palette
  309. WAIT .5
  310. DOWN * 2
  311. "1500"
  312. DOWN * 6
  313. WAIT .2
  314. "1"
  315. WAIT 1.4
  316. ENTER           ; calc 3rd zoom
  317. WAIT 12
  318. "CL"            ; interrupt to change to firestrm.map
  319. WAIT 1
  320. "firestrm"
  321. WAIT 1.5
  322. ENTER
  323. WAIT .3
  324. ESC
  325. CALCWAIT        ; finish 3rd zoom
  326. WAIT 1
  327. PAGEUP * 25     ; zoom in
  328. WAIT .2
  329. LEFT * 25
  330. UP * 13
  331. WAIT .5
  332. PAGEUP
  333. WAIT .5
  334. ENTER           ; calc 4th zoom
  335. CALCWAIT
  336. WAIT 1
  337. PAGEUP * 19     ; zoom in
  338. WAIT .4
  339. 1144 * 13
  340. WAIT .3
  341. PAGEUP * 3
  342. DOWN * 6
  343. WAIT .1
  344. LEFT * 5
  345. 1144
  346. WAIT 1
  347. ENTER           ; calc 5th zoom, final image
  348. WAIT 1
  349. "X"             ; change to solid guessing and inside=0
  350. "G"
  351. DOWN * 3
  352. WAIT .4
  353. "0"
  354. WAIT 1
  355. ENTER
  356. "V"             ; increase size of view window for final image
  357. DOWN
  358. WAIT .4
  359. "1.5"
  360. WAIT .6
  361. ENTER
  362. WAIT 20
  363. TAB             ; interrupt to show tab display
  364. WAIT 6
  365. ESC
  366. CALCWAIT
  367. PAGEUP          ; adjust image a tad (clip some jags at bottom and right)
  368. UP
  369. LEFT
  370. ENTER
  371. CALCWAIT
  372. WAIT 3          ; show final image for a while
  373. "x"             ; save image for following 3d demo
  374. DOWN * 5
  375. WAIT .5
  376. "demotmp1"
  377. DOWN
  378. "y"
  379. WAIT .5
  380. ENTER
  381. "m"
  382. WAIT .6
  383. RIGHT
  384. DOWN
  385. WAIT 1
  386. "S"
  387. CALCWAIT
  388. WAIT 2          ; now it has been saved
  389. "-"
  390. UP * 30         ; finished mini-lake, cycle colors a while
  391. WAIT 17
  392. F5              ; now random colors for a while
  393. UP * 25
  394. WAIT 23
  395. ESC
  396. ;;
  397. ;; 3d transforms using mini-mandel
  398. ;; ok to start a copy of file from here for testing IF demotmp1 already exists
  399. "r"             ; display demotmp1 to show input image and to move it over
  400. "demotmp1"
  401. WAIT .6
  402. ENTER
  403. WAIT 2.5
  404. ENTER
  405. CALCWAIT
  406. WAIT 1
  407. PAGEUP
  408. RIGHT * 18
  409. ENTER
  410. CALCWAIT
  411. "s"             ; save demotmp2
  412. CALCWAIT
  413. WAIT 1.5
  414. "m"             ; invoke 3d from the menu
  415. WAIT .6
  416. RIGHT
  417. DOWN * 3
  418. WAIT 1
  419. "3"
  420. "demotmp1"
  421. WAIT .8
  422. ENTER
  423. WAIT 1
  424. ENTER
  425. WAIT 1
  426. ENTER           ; 1st 3d parms screen
  427. WAIT .5
  428. DOWN * 2
  429. WAIT 1
  430. ENTER           ; 2nd parms, interpolated colors chosen
  431. ENTER           ; skip map file selection
  432. WAIT .5
  433. DOWN * 5
  434. "10"
  435. DOWN
  436. "70"
  437. WAIT 1
  438. ENTER           ; 3rd 3d parms, roughness 10, clip 70
  439. CALCWAIT        ; transform
  440. WAIT 3
  441. "-"             ; color cycle
  442. DOWN * 65
  443. WAIT 30
  444. ESC
  445. "m"             ; back to menu, pick 3d again
  446. WAIT .6
  447. RIGHT
  448. DOWN * 3
  449. WAIT 1
  450. "3"
  451. "demotmp2"
  452. WAIT .6
  453. ENTER
  454. WAIT .7
  455. ENTER
  456. WAIT .5
  457. DOWN * 3
  458. "y"
  459. WAIT .8
  460. ENTER           ; 1st 3d parms, spherical selected
  461. WAIT 1
  462. ENTER           ; 2nd 3d parms, default interpolate colors
  463. ENTER           ; skip map file selection
  464. WAIT .5
  465. DOWN * 5
  466. "40"
  467. WAIT .8
  468. ENTER           ; 3rd 3d parms, roughness 40
  469. CALCWAIT        ; transform
  470. WAIT 2
  471. "-"             ; cycle colors
  472. F9
  473. DOWN * 90
  474. WAIT 20
  475. "+"             ; cycle colors the other way
  476. F8
  477. DOWN * 90
  478. WAIT 32
  479. ESC
  480. INSERT
  481. WAIT 3
  482. ;;
  483. ;; gingerbreadman, lsystem color snowflake
  484. ;; ok to start a copy of file from here for testing
  485. "Tgingerbreadman"
  486. WAIT .8
  487. ENTER
  488. WAIT .8
  489. ENTER
  490. WAIT .6
  491. ENTER
  492. WAIT .6
  493. ENTER
  494. WAIT 32         ; view gingerbreadman a while (it goes forever)
  495. F4              ; go to video mode 640x480x16 for lsystem demo
  496. ESC             ; interrupt resumed gingerbreadman
  497. WAIT .8
  498. "T"             ; start lsys sequence
  499. WAIT .6
  500. "lsystem"
  501. WAIT .8
  502. ENTER
  503. WAIT 2
  504. "snowflakecolor"
  505. WAIT 2
  506. ENTER
  507. WAIT .6
  508. "3"
  509. WAIT 1
  510. ENTER
  511. CALCWAIT
  512. WAIT 2
  513. "-"
  514. F2
  515. WAIT 22         ; view snowflake cycling
  516. ESC
  517. INSERT
  518. WAIT 3
  519. ;;
  520. ;; bunch of types with default parameters just to show variety
  521. ;; ok to start a copy of file from here for testing
  522. "T"
  523. WAIT .5
  524. "JULIA"
  525. WAIT .8
  526. ENTER
  527. ".3"
  528. DOWN
  529. ".6"
  530. WAIT .8
  531. ENTER
  532. WAIT .6
  533. ENTER
  534. WAIT .6
  535. ENTER
  536. CALCWAIT
  537. WAIT 5
  538. "T"
  539. WAIT .5
  540. "LAMBDAFN"
  541. WAIT .8
  542. ENTER
  543. WAIT .8
  544. ENTER
  545. CALCWAIT
  546. WAIT 7
  547. "T"
  548. WAIT .5
  549. "sierpinski"
  550. WAIT .8
  551. ENTER
  552. WAIT .8
  553. ENTER
  554. CALCWAIT
  555. WAIT 4
  556. "T"
  557. WAIT .5
  558. "SPIDER"
  559. WAIT .8
  560. ENTER
  561. WAIT .8
  562. ENTER
  563. PAGEUP * 3
  564. ENTER
  565. CALCWAIT
  566. WAIT 5
  567. "-"
  568. F6
  569. WAIT 20
  570. ESC
  571. "T"
  572. WAIT .5
  573. "UNITY"
  574. WAIT .8
  575. ENTER
  576. WAIT .8
  577. ENTER
  578. CALCWAIT
  579. WAIT 6
  580. "V"     ; set view to 1/2 size for the rest, they're a bit slower
  581. WAIT 1
  582. "Y"
  583. DOWN
  584. "2"
  585. WAIT 1
  586. ENTER
  587. "T"
  588. WAIT .5
  589. "NEWTON"
  590. WAIT .8
  591. ENTER
  592. WAIT .8
  593. "4"
  594. WAIT .8
  595. ENTER
  596. CALCWAIT
  597. WAIT 6
  598. "T"
  599. WAIT .5
  600. "BARNSLEYJ2"
  601. WAIT .8
  602. ENTER
  603. WAIT .8
  604. ENTER
  605. CALCWAIT
  606. WAIT 5
  607. "T"
  608. WAIT .5
  609. "FORMULA"
  610. WAIT .8
  611. ENTER
  612. WAIT 1
  613. "WINEGLASS"
  614. WAIT 2
  615. ENTER
  616. WAIT .8
  617. ENTER
  618. PAGEUP * 9
  619. LEFT * 23
  620. ENTER
  621. CALCWAIT
  622. WAIT 5
  623. "-"
  624. F4
  625. WAIT 27
  626. ESC
  627. ;;
  628. ;; back around again
  629. INSERT
  630. WAIT 10         ; credits for a while
  631. GOTO Restart    ; start over again
  632.