2 Strelok 3848
Ето пример со спрайтами !!!
Type Sled
Field Time,Spr
End Type
Graphics3D 640,480,32,0
Global Walls=CreateCube()
Global Cam=CreateCamera()
Global Point=CreateSprite()
Global PointTex=CreateTexture(10,10)
Global Lit=CreateLight()
ScaleEntity Walls,10,10,1
PositionEntity Cam,0,0,-20
EntityPickMode Walls,2
SpriteViewMode Point,2
HideEntity Point
HidePointer
Repeat
MoveEntity Cam,(KeyDown(205)-KeyDown(203))*.05,0,(KeyDown(200)-KeyDown(20
)*.05
gradx#=gradx#+MouseXSpeed()*0.1
grady#=grady#+MouseYSpeed()*0.1
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
RotateEntity Cam,grady#,-gradx#,0,False
If MouseHit(1)
AddBlackPoint
EndIf
DeletePoints
RenderWorld
Flip
Until KeyHit(1)
End
Function DeletePoints()
For N.Sled=Each Sled
N\Time=N\Time-1
If N\Time<0
FreeEntity N\Spr
Delete n
EndIf
Next
End Function
Function AddBlackPoint()
CameraPick(Cam,GraphicsWidth()*.5,GraphicsHeight() *.5)
If PickedEntity()<>0
N.Sled=New Sled
N\Time=100
N\Spr=CopyEntity( Point )
EntityTexture N\Spr,PointTex
PositionEntity N\Spr,PickedX#(),PickedY#(),PickedZ#()-.1
ScaleSprite N\Spr,0.2,0.2
EndIf
End Function