Unit TLTest

Classes

TForm1 - Code by Massimo Bardetti - bigben@dircon.

Functions

GenerateSphere - Public declarations

Generate a sphere

Types

Constants

D2R
NEWOBJ

Variables

bKeyend
bKeyProcess
bKeyShift
EB
Form1
iRot
j
lstTriangles
lstVertices
mProjection
mRot
mView


Functions


procedure GenerateSphere(sphere_r : single;num_rings : integer; num_sections : integer; sx : single; sy : single; sz : single);

Public declarations

Generate a sphere


Types


Constants

D2R = 0.01745329251994

NEWOBJ = -1


Variables

bKeyend : Boolean

bKeyProcess : Boolean

bKeyShift : Boolean

EB : TExecuteBuffer

Form1 : TForm1

iRot : Integer

j : Integer

lstTriangles : TList

lstVertices : TList

mProjection : T3DMatrix

mRot : T3DMatrix

mView : T3DMatrix