TIB: Displaying The graph on 92+

To: "TI Basic List" <ti-basic@lists.ticalc.org>
Subject: TIB: Displaying The graph on 92+
From: "Matthew" <mobets@flash.net>
Date: Sat, 23 Jan 1999 21:42:07 -0600
Delivered-To: ti-basic-outgoing@towerguard.unix.edu.sollentuna.se
Delivered-To: ti-basic@lists.ticalc.org
Importance: Normal
Reply-To: ti-basic@lists.ticalc.org

I am attempting to make a program that lets you easily zoom in/out and other
things.  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 keyť0 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

Warning: Could not process part with given Content-Type: application/ms-tnef; name="winmail.dat"