;; Demo of new Fractint version 19 features
;; Created by Jonathan Osuch
;;
;; This demo goes through once and then exits.
;;    The new bailout tests are demonstrated
;;    The browser feature is demonstrated
;;    The new outside=atan is demonstrated
;;    The extended bailout value is demonstrated
;;    The new ant fractal type is demonstrated

WAIT 3

;; Set up first image
ESC
WAIT 1.0
DOWN * 8 ;; "x"
"x"
WAIT 1.0
DOWN
"y" ;; turn on floating point
;; comment out above the line if floating point is too slow
;; note that if you do, bailout=40000 will really be bailout=127
;; the integer limit for bailout
DOWN * 2
"0" ;; inside = 0
WAIT 1.0
DOWN * 4
"new19001"
WAIT 1.0
ENTER

ESC
WAIT 1.0
;;  Set up the browse parameters for demo
DOWN * 12 ;; Ctrl-B
   2
WAIT 1.0
DOWN
"n" ;; Don't ask about video mode
WAIT 1.0
DOWN * 6
"new19*.gif"
WAIT 1.0
ENTER

ESC
WAIT 1.0
DOWN * 10 ;; "z"
"z"
WAIT 1.0
DOWN * 2
"r"  ;; real
WAIT  2.0
ENTER

;; Make the first image
DELETE
WAIT 2.0
F3
CALCWAIT
MESSAGE 2bailout test=real
"s"
CALCWAIT
;; Zoom in and save are for later browser use
PAGEUP * 23
WAIT  1.0
CTRL_LEFT * 11
LEFT * 7
WAIT  1.0
ENTER
CALCWAIT
"s"
CALCWAIT
PAGEUP * 10
WAIT 1.0
ENTER
CALCWAIT
"s"
CALCWAIT
"t"
WAIT 1.0
ENTER
DOWN * 2
"i"  ;; imag
WAIT  2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=imag
PAGEUP * 25
CTRL_UP * 3
UP * 6
CTRL_LEFT * 4
LEFT * 3
WAIT  2
ENTER
CALCWAIT
"s"
CALCWAIT
"t"
WAIT  1.0
ENTER
WAIT 1.0
DOWN * 2
"o"  ;; or
WAIT  2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=or
"z"
DOWN * 2
"a"  ;; and
WAIT  2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=and
;; Start outside=atan demo
"x"
WAIT 1.0
DOWN * 2
"500"
WAIT 1.0
DOWN * 4
"a"  ;; atan
WAIT  2.0
ENTER
"c"
"l"
"chroma"
WAIT  1.0
ENTER
ESC
CALCWAIT
MESSAGE 2outside=atan

"z"
UP
"40000"
WAIT 2.0
ENTER
CALCWAIT
MESSAGE 2bailout=40000

Startbrowse:
;; Start demo of browse features
"r"
"new19001.gif"
ENTER
CALCWAIT
"l"
CALCWAIT
WAIT  2.0
ENTER
CALCWAIT
WAIT 2.0
"l"
CALCWAIT
WAIT 2.0
ENTER
CALCWAIT
WAIT 2.0
"\"
CALCWAIT
WAIT 2.0
"\"
CALCWAIT
WAIT 1.0
"l"
CALCWAIT
WAIT 2.0
RIGHT
WAIT 2.0
RIGHT
WAIT 2.0
ENTER
CALCWAIT
WAIT 5.0
"t"
"julia"
ENTER
DOWN * 2
"mmm"  ;; mod
ENTER
CALCWAIT
WAIT 5.0
;; Start of ant demo
   1  ;; ctrl-a
;;"1101"
WAIT  1.0
ENTER
WAIT 20.0
MESSAGE 2type=ant

End:
ESC
ESC
"y"