TIB: 3D


[Prev][Next][Index][Thread]

TIB: 3D



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          +-+
+-+-------------------------------------------+ |
  |						|
  +---------------------------------------------+