Category : Forth Source Code
Archive   : SMILY46H.ZIP
Filename : DEMOS.SEQ

\ FLOAD JULIA.SEQ
FLOAD BARNEX.SEQ
FLOAD FUNCT.SEQ
FLOAD A-XX.SEQ
FLOAD FTURT.SEQ
FLOAD GIRL.SEQ
FLOAD VKAL.SEQ
\ FLOAD LAND.SEQ
FLOAD VGASPRIT.SEQ \ VGA Sprites,
\ Don't load too many sprites, or the CODE space will run out.
\ Load 2 in FSV.EXE, or 3 in MSV.EXE
\ FLOAD GRDRAG.HEX \ green dragon
\ FLOAD KYM256.HEX \ Face of a nice girl, same one as in GIRL.SEQ
FLOAD MOUSE.HEX \ Mouse, this name avoids conflict with MOUSE.SEQ
FLOAD REDDRAG.HEX \ Red dragon
\ FLOAD UNICORN.HEX \ unicorn
loaded,

: No.MENU ( -- )
KEY? IF KEY DROP TRUE THEN ;

: Demos
VGA? \ does the user have a VGA display?
Direct_Graphics
15 color !
WHITE_ON_BLACK \ draw white on black
cls
10 8 AT ." Welcome to the F-PC Graphics Package Demo."
10 9 AT ." (c) 1993 Mark Smiley"
10 12 AT ." Let's start with a demo of the function plotting routines."
Halt

\ resmenu
['] (vga640) is (res)
PLT_SIN PX+SIN2X
PLT_EXP PE**-X**2
Halt cls
PX**3-3X PX**3 px**2
halt cls

10 10 AT ." Here are some chaotic attractors."
Halt cls
connect? off
HENON
key drop cls
TINKERBELL
key drop

10 10 AT ." The next demo shows a set of attractors."
10 12 AT
." There's a lot of computation involved, so please be a little patient."
Halt
\ Text
\ WHITE_ON_BLACK \ draw white on black
\ CHOOSE-RES CHOOSE-COLORS
(Chaos)
key drop

cls
10 10 AT ." Here are the attractors for some Iterated Function Systems."
Halt cls
\ ['] (vga640) is (res)
\ IFS demos
['] No.Menu IS B.MENU? \ turn off menus for IFS demos
WHITE_ON_BLACK \ draw green on black
FERN
TREE
IVY

cls
10 10 AT ." Here's a sample of some image processing capabilities."
Halt
Girl

text
10 10 AT ." Next, move the mouse on the screen with the cursor keys."
10 12 AT ." Press to exit."
Halt set-res
Mouse_Pal 'RGBTable ! !RPal
Mouse Key-Animate
\ GRDRAG_Pal 'RGBTable ! !RPal
\ GRDRAG Key-Animate

text
10 10 AT ." Coming up ... a taste of the sprite editor."
10 12 AT ." In the editor, press H for help, or to exit."
Halt set-res
REDDRAG_Pal 'RGBTable ! !RPal
REDDRAG Edit-Sprite
\ UNICORN_Pal 'RGBTable ! !RPal
\ UNICORN Animate
\ KYM256_Pal 'RGBTable ! !RPal
\ KYM256 Edit-Sprite


text
10 10 AT ." And now for some turtle graphics."
\ ' (vga320) is (res) (res)
Halt set-res
(Turt_Demo)

text
10 10 AT ." Finally, this demo ends with a kaleidoscope."
\ 7 12 AT
\ ." While it's running, press keys 12344567890-=abcm to change the palette."
\ 7 14 AT ." Any other key brings up the menu."
Halt
' (vga320) is (res) (res)
KALEIDOSCOPE
\ LS
;

' Demos is Default
fsave demos
bye

\s
PLT_SIN, PX+SIN2X, PLT_EXP, PE**-X**2, PX**3-3X, PX**3, or PX**2.
To avoid getting a blank line on the graph, do a KEY DROP.
Ex: PX**2 KEY DROP
This is needed, because of F-PC's EXPECT.
For chaotic attractor demos, do a: CONNECT? OFF,
then try either: HENON, or TINKERBELL.