TIB: 3D

To: ti-basic@lists.ticalc.org
Subject: TIB: 3D
From: q-ball16@juno.com (Barry J Burns)
Date: Wed, 22 Oct 1997 18:31:03 -0500
Reply-To: ti-basic@lists.ticalc.org

Hello! I figured out 2 cool 3-d tricks on the ti85 calc, one based on a
sine wave, the other on a flat plane. The meat of the first is...

-----------------------
:FnOff
:ClDrw
:ZStd
:ZSqr
:Y=5sin x
:For(x,xMin,xMax,deltax)
:Line(0,10,x,Y)
:If getKy==22
:Then
:Disp
:Return
:End
:End
:StPic SinWav3d
-----------------------

The second is pretty similar...

-----------------------
:FnOff
:ClDrw
:ZStd
:ZSqr
:For(x,-10,10)
:Line(0,10,5x,-10)
:If getKy==22
:Then
:Disp
:Return
:End
:End
:For(x,-20,0,2)
:Line(-2x,x+10,2x,x+10)
:If getKy==22
:Then
:Disp
:Return
:End
:End
:StPic Plane3d
-----------------------

E-mail me & let me know what ya think!

+---------------------------------------------+
|There's too much blood in my caffeine system.|
|         http://barry11.home.ml.org          +-+
+-+-------------------------------------------+ |
  |						|
  +---------------------------------------------+

Prev: TIB: 3D Graphing
Next: Re: TIB: 3D Graphing
Index(es):
- Main
- Thread