Need help with OSAKIT

Blitz3D Forums/Blitz3D Programming/Need help with OSAKIT

1) compile your project, rename the .exe to anything you like (eg. "osatest.osa") and copy it to c:\

Graphics3D 800,600,0,2
AppTitle"osatest"

totalcubes=500 

cam=CreateCamera()
CameraRange cam,.1,1000
PositionEntity cam,0,0,-5

piv=CreatePivot()
cube=CreateCube()
HideEntity cube
ScaleEntity cube, .2,.2,.2
brush=CreateBrush()
BrushColor brush,255,0,0
BrushAlpha brush,0.3
PaintMesh cube,brush

Dim cb(totalcubes)
For i=0 To totalcubes
	cb(i)=CopyEntity(cube,piv)
	PositionEntity cb(i),Rand(-3,3),Rand(-3,3),Rand(-3,3)
Next

Repeat
	For i=0 To totalcubes
		TurnEntity cb(i),.4,-.4,.4
	Next
	TurnEntity piv,-.2,-.2,-.2
	RenderWorld()
	Text 10,10,"esc to exit"
	Flip
	Delay(1)
Until KeyHit(1)
End


2) start osakit webpage generator



3) start c:\osatest.html ... that´s all



cheers, chi