;; Demo of new Fractint version 19.6 features
;; Created by Sylvie Gallet
;;
;;      New fastrestore command
;;      Text scrolling in <z> screen
;;

DELETE ;; Set video mode
WAIT 2
F3
CALCWAIT

; change savename and draw the Mandel set at 320x200
WAIT 2 "x" DOWN "f" DOWN * 6 "demo1961" DOWN * 2 "o"
WAIT 1.5 ENTER
CALCWAIT

; save the image demo1961.gif
"s" CALCWAIT
MESSAGE 4 File saved as demo1961.gif (320x200)

; new window size: 160x160
MESSAGE 2 Set view window size to 160 x 160
"v" RIGHT DOWN * 4 WAIT 1.0 "160" DOWN "160" WAIT 1.0 ENTER

; draw the new image and save it as demo1962.gif
CALCWAIT "s" CALCWAIT
MESSAGE 4 File saved as demo1962.gif (160x160)

; load demo1961.gif
F3 CALCWAIT MESSAGE 2 Load demo1961.gif
"r" "demo1961" ENTER WAIT 3 ENTER CALCWAIT WAIT 2

; load demo1962.gif
MESSAGE 2 Load demo1962.gif
"r" "demo1962" ENTER WAIT 3 ENTER WAIT 3 ENTER CALCWAIT WAIT 2

; <g> command: fastrestore=yes & askvideo=no
MESSAGE 3 fastrestore = yes and askvideo = no
"g" "fastrestore=yes" WAIT 2 ENTER
"g" "askvideo=no" WAIT 2 ENTER

; load demo1961.gif
MESSAGE 2 Load demo1961.gif
"r" "demo1961" ENTER CALCWAIT WAIT 2

; load demo1962.gif
MESSAGE 2 Load demo1962.gif
"r" "demo1962" ENTER CALCWAIT WAIT 3

MESSAGE 2 Text scrolling in <z> screen
"t" "formula" ENTER F6 "fract196" ENTER
"fractint" WAIT 1 ENTER
CTRL_DOWN * 8 WAIT 0.5
CTRL_RIGHT * 2 WAIT 0.5
CTRL_LEFT * 2 WAIT 0.5
CTRL_RIGHT * 2 WAIT 0.5
CTRL_LEFT * 2 WAIT 0.5
CTRL_DOWN * 8 WAIT 0.5
CTRL_UP * 10 WAIT 0.5
CTRL_END WAIT 1
CTRL_HOME WAIT 1
ENTER CALCWAIT

MESSAGE 5                The End !
ESC ESC "y