1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171
|
;; Demo of advanced Fractint features
;; Created by Jonathan Osuch
;;
;; This demo goes through once and then exits.
;; mandel/julia toggle
;; orbits
;; rds
WAIT 3
"m"
DOWN * 2
WAIT 1
"x"
WAIT 1
DOWN * 3
"0" ;; inside = 0
WAIT 1
ENTER
WAIT 2
DELETE ;; Set video mode
WAIT 2
F3
WAIT 0.5
CALCWAIT
" " ;; space bar
WAIT 7.0
LEFT * 20
WAIT 0.5
UP * 7
WAIT 7.0
"v" ;; turn on view window
WAIT 0.5
LEFT
WAIT 0.5
ENTER
CALCWAIT ;; mandelbrot set
" " ;; space bar
WAIT 5
" " ;; space bar
CALCWAIT ;; julia set
WAIT 3.0
"v" ;; turn off view window
WAIT 0.5
"n"
WAIT 0.5
ENTER
CALCWAIT
WAIT 3.0
" " ;; space bar, back to mandelbrot
WAIT 0.1
"v" ;; turn on view window
WAIT 0.5
"y"
WAIT 0.5
ENTER
"x"
"1"
ENTER
"o" ;; orbits during calculation
CALCWAIT
"o" ;; orbits after calculation
WAIT 1.0
"h" ;; hide the mandelbrot set
WAIT 0.5
UP
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
UP
WAIT 1.0
UP
WAIT 1.0
UP
WAIT 1.0
RIGHT
WAIT 1.0
UP
WAIT 1.0
"c" ;; orbits with circles
WAIT 1.0
UP
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
UP
WAIT 1.0
RIGHT
WAIT 1.0
"c"
"l" ;; orbits with lines
WAIT 1.0
UP
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
"c" ;; orbits with lines and circles
WAIT 1.0
RIGHT
WAIT 1.0
RIGHT
WAIT 1.0
DOWN
WAIT 1.0
RIGHT
WAIT 1.0
DOWN
WAIT 1.0
RIGHT
WAIT 1.0
DOWN
WAIT 1.0
;; make an image suitable for rds
ESC
WAIT 1
"v"
WAIT .5
"n"
WAIT .5
ENTER
"x"
"g"
DOWN * 2
"500"
WAIT 1
ENTER
"y"
DOWN
"255"
DOWN
"300"
WAIT 1
ENTER
"t"
WAIT .5
ENTER
ENTER
CALCWAIT
19 ;; control-s for rds
WAIT 2
ENTER
WAIT 20
UP
ESC
ESC
WAIT 0.5
ESC
WAIT 0.5
"y"
|