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