TIB: 92+ dispG
[Prev][Next][Index][Thread]
TIB: 92+ dispG
I am attempting to make a program that lets you easily zoom in/out and other
things on my 92+. Unfortunately, it will not display the changes.
xmin,xmax,xscl... are changing just fine.
Could someone please tell me what is wrong with this.
zoom()
Prgm
DispG
Lbl z1
getKey()»key
If key=340 Then
zx(.5)
EndIf
If key=337 Then
zx(2)
EndIf
If key=338 Then
zy(.5)
EndIf
If key=344 Then
zy(2)
EndIf
If key=43 Then
zy(.5)
zx(.5)
EndIf
If key=45 Then
zy(2)
zx(2)
EndIf
If key=268 Then
Toolbar
Title "Built in"
Item "ZoomData",zb1
Item "ZoomDec",zb2
Item "ZoomFit",zb3
Item "ZoomInt",zb4
Item "ZoomPrev",zb5
Item "ZoomRcl",zb6
Item "ZoomSqr",zb7
Item "ZoomStd",zb8
Item "ZoomSto",zb9
Item "ZoomTrig",zb10
EndTBar
EndIf
Lbl zb1
ZoomData
Goto z1
Lbl zb2
ZoomDec
zx(5/2)
zy(5/2)
Goto z1
Lbl zb3
ZoomFit
Goto z1
Lbl zb4
ZoomInt
Goto z1
Lbl zb5
ZoomPrev
Goto z1
Lbl zb6
ZoomRcl
Goto z1
Lbl zb7
ZoomSqr
Goto z1
Lbl zb8
ZoomStd
Goto z1
Lbl zb9
ZoomSto
Goto z1
Lbl zb10
ZoomTrig
Goto z1
If key=272 Then
Stop
EndIf
If key0 Then
ClrGraph
DispG
EndIf
Goto z1
Define zy(aa)=Prgm
ymax*aa»ymax
ymin*aa»ymin
yscl*aa»yscl
Return
EndPrgm
Define zx(aa)=Prgm
xmax*aa»xmax
xmin*aa»xmin
xscl*aa»xscl
Return
EndPrgm
EndPrgm
_____________________________________________________
You can e-mail me back at mailto:mobets@flash.net