Turbo Toolbox/Turbo_Toolbox.iso/1991/09_10/gfademo/debug.gfa

GFA-BASIC MS-DOS | 1991-07-10 | 9.7 KB | 287 lines

GFA-BASIC MS-DOS
#2ENDIF
RETURNSOURCE
msize_
loicx_
loicy_
mandelx_
mandely_
realnum_
imagnum_
a    locmsize_
 Output
r        NE
windget
,_X/2,_Y/2,
DEBUG
Mandelbrot
Debug    Lissajous
Totem
SetDebugParam
LOCAL
pe_EVENT
test1
test2
survOLOR
15PBOX
0,0,999,999OPENW
2,0,3*
survOLOR
15PBOX
0,0,999,999OPENW
2,0,3*
,~271TOPW
Das Demoprogramm l
uft nur|auf EGA, VGA oder | Herkules KartenZ
RETURNH
 Output I
_ADAP
3~INTR($10,_AX=$1A00)IF
_AL=$1a
640*480ELSE
640*350ENDIF
_ADAP
ModeELSEALERT
1,"Das
Demoprogramm
nur|auf
Herkules
Karten",1,"RETURN",
SYSTEMENDIF
SCREEN
=_X/2,
=_Y/2,
=WIND_GET(14)
TITLEW
Output
"OPENW
,0,0,
(3,0,0)KEYGET
SCREEN
PROCEDURE
)LOCAL
LOCAL
LOCAL
--------------
Debug
-------------------------
----------------------------------------------------
*/SWITCH
select
figur
indexCASE
inner
window
color
0,0,9999,9999
color
window
figure
colorIF
_ADAP
ENDIF
figure
parameters
=90CASE
inner
window
color
0,0,9999,9999
color
window
figure
colorIF
_ADAP
ENDIF
figure
parameters
inner
window
color
0,0,9999,9999
color
window
figure
color
figure
parameters
inner
window
color
0,0,9999,9999
color
window
figure
colorIF
_ADAP
ENDIF
figure
parameters
ENDSWITCH
window
index
selector
x-,y-
offset
figure
WINDGET
inner
width
windowWINDGET
inner
height
window
width
figure
height
figure
x-start
figure
y-start
figure/*
----------------------
Lissajous
algorithm
-------------------
*/FOR
*(1+COSQ(
*(1+SINQ(
RETURN
 Stack : >
 i_%  = Y
 pp_% = Y
 xa_% = Y
 ya_% = Y
 xe_% = Y
 ye_% = Y
PROCEDURE
LOCAL
PEEK_EVENTIF
MENU(5)
$4200
=TRUE
pressedIF
MENU(4)
=FALSE
right
mousebutton
pressedIF
MENU(4)
=TRUE
mousebutton
pressedLOOP
UNTIL
WHILE
MENU(5)
until
releasedPEEK_EVENTWENDWIN
output
debug
window
_ADAP
1COLOR
ELSECOLOR
ENDIF
TRIM$(TRACE$)
GFA-BASIC
commandIF
INSTR(
,"/*")
comment
=TRIM$(LEFT$(
,INSTR(
,"/*")-1))
ENDIF
0,MUL(
),SPACE$(80)TEXT
0,MUL(
Print
command
++ELSEIF
_ADAP
1COLOR
ENDIF
DELETE
0,MUL(
),SPACE$(80)TEXT
0,MUL(
Print
command
++ENDIF
ELSEDELETE
=TRUE
_ADAP
1COLOR
0,0,_X,_YCOLOR
ELSECLEARW
ENDIF
0,MUL(
Print
command
-1)ENDIF
----------
search
special
values
------------
COLOR
=MUL(
)TEXT
,SPACE$(3)NEXT
=_X/2FOR
Stack
"+HEX$(*
INSTR(
=MUL(
)TEXT
,SPACE$(
)SWITCH
"i_%"TEXT
STR$({
},4)CASE
"pp_%"
STR$({
"xa_%"
STR$({
"ya_%"
STR$({
"xe_%"
STR$({
"ye_%"
STR$({
ENDSWITCH
ENDIF
----------
Window
------------
*/COLOR
RETURN
i_%,pp_%,xa_%,ya_%,xe_%,ye_%,*/
 Debug SI
 Surveillance I
PROCEDURE
=1DIM
surveillance
variables
define
surveillance
variablesDATA
i_%,pp_%,xa_%,ya_%,xe_%,ye_%,*/RESTORE
surveillance
variables
="*/"
++LOOP
debug-window
TITLEW
Debug
OPENW
,_Y,16
debug-window
COLOR
0,0,999,999
TITLEW
Surveillance
"OPENW
debug-windowCOLOR
0,0,999,999RETURN