This is GREAT fun. Thanks for creating it.
A little minib3d example below
A little minib3d example below
' tilt to move, + - to zoom SuperStrict Import sidesign.minib3d Import axe.Wiimote Local width:Int=640,height:Int=640',depth=16,mode=0 Graphics3D width,height',depth,mode Local cam:TCamera=CreateCamera() Local cube:TMesh=CreateCube() Local light:TLight=CreateLight(1) CameraRange cam,0.01,1000 PositionEntity light,0,-10,-4 PositionEntity cam,0,0,-4 PointEntity cam,cube PointEntity light,cube Local rotx:Float Local rotz:Float Local zoom:Float = -4 Local zoomstep:Float = 0.01 Print "OpenWiimotes()="+OpenWiimotes() While Not KeyDown(KEY_ESCAPE) PollWiimotes() rotx = rotx*0.96 + (WiimoteAxis(0) * 90.0) *0.04 rotz = rotz*0.96 + (WiimoteAxis(1) * 90.0) *0.04 If (WiimoteButton(0) & 4096) Then zoom:-zoomstep If (WiimoteButton(0) & 16) Then zoom:+zoomStep If zoom> -2 Then zoom = -2 PositionEntity cam ,0,0,zoom RotateEntity cube,rotx,0,rotz RenderWorld Flip 0 Wend