Built a small editor, nothing fancy, no saving, no media, only stacking cubes.
Have fun!
// Project: CUBE
// Created: 2016-08-04
// show all errors
//----------------------------------------------------
SetErrorMode(2)
//----------------------------------------------------
// set window properties
//----------------------------------------------------
SetWindowTitle( "CUBE" )
SetWindowSize( 1024, 768, 0 )
//----------------------------------------------------
// set display properties
//----------------------------------------------------
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 0, 0, 0, 1 )
SetPrintSize(16)
SetPrintColor(100,200,250)
//----------------------------------------------------
// cam properties
//----------------------------------------------------
SetCameraPosition(1,0,-45,0)
RotateCameraGlobalY(1,45)
RotateCameraLocalX(1,25)
MoveCameraLocalZ(1,-210)
//----------------------------------------------------
SetSunActive(0)
CreatePointLight(1,-50,150,50,600,455,455,440)
SetAmbientColor(66,66,96)
// objects
//----------------------------------------------------
CubesX=-70
CubesY=1
CubesZ=70
CubesCol=0
CubesNum=1014
for Cubes= 1001 to 1225
CreateObjectBox(Cubes,10,1,10)
SetObjectPosition(Cubes,CubesX,CubesY,CubesZ)
SetObjectColor(Cubes,130+CubesCol,90+CubesCol,50+CubesCol,255)
CubesX=CubesX+10
CubesCol=CubesCol+10
if CubesCol=20 then CubesCol=0
if Cubes>CubesNum
CubesZ=CubesZ-10
CubesNum=CubesNum+15
CubesX=-70
endif
next Cubes
Global theObjectHit
Global Cursor=100
CreateObjectBox(Cursor,10,10,10)
SetObjectColor(Cursor,10,100,0,155)
//----------------------------------------------------
NewElement=2000
//----------------------------------------------------
do
// rotate cam
//----------------------------------------------------
if GetRawMouseMiddleState() = 1
If GetRawMouseX() > MouseX
SetCameraPosition(1,0,-45,0)
RotateCameraGlobalY(1,GetCameraY(1)*-0.075)
MoveCameraLocalZ(1,-210)
TurnR#=0.1
endif
If GetRawMouseX() < MouseX
SetCameraPosition(1,0,-45,0)
RotateCameraGlobalY(1,GetCameraY(1)*0.075)
MoveCameraLocalZ(1,-210)
TurnL#=0.1
endif
endif
MouseX=GetRawMouseX()
//----------------------------------------------------
// smooth fade cam rotation
//----------------------------------------------------
if TurnR#>0.00
SetCameraPosition(1,0,-45,0)
RotateCameraGlobalY(1,GetCameraY(1)*-0.075*TurnR#)
MoveCameraLocalZ(1,-210)
TurnR#=TurnR#-0.005
endif
if TurnL#>0.00
SetCameraPosition(1,0,-45,0)
RotateCameraGlobalY(1,GetCameraY(1)*0.075*TurnL#)
MoveCameraLocalZ(1,-210)
TurnL#=TurnL#-0.005
endif
//----------------------------------------------------
//create/delete objects
//----------------------------------------------------
Click3dObject()
SetObjectColor(Cursor,10,100,0,155)
if GetRawMouseRightState()=1
if theObjectHit>1999 then SetObjectPosition(Cursor,GetObjectX(theObjectHit),GetObjectY(theObjectHit),GetObjectz(theObjectHit))
SetObjectColor(Cursor,100,10,0,155)
endif
if GetRawMouseLeftPressed()=1
if GetObjectExists(NewElement)=1 then NewElement=NewElement+1
if GetRawMouseRightState()=0
SetObjectColor(Cursor,10,100,0,155)
CreateObjectBox(NewElement,10,10,10)
SetObjectPosition(NewElement,GetObjectX(Cursor),GetObjectY(Cursor),GetObjectz(Cursor))
endif
if GetRawMouseRightState()=1 and theObjectHit>1999
DeleteObject(theObjectHit)
endif
endif
//----------------------------------------------------
// informations
//----------------------------------------------------
Print(ScreenFPS())
info$="LMB=Create/RMB+LMB=Delete/MMB=Rotate Cam"
Print(info$)
Sync()
//----------------------------------------------------
loop
function Click3dObject()
SetObjectPosition(Cursor,-1000,-1000,-1000)
myX as float
myY as float
my3dX as float
my3dY as float
my3dZ as float
rayStartX as float
rayStartY as float
rayStartZ as float
rayEndX as float
rayEndY as float
rayEndZ as float
myX=GetPointerX()
myY=GetPointerY()
my3dX=Get3DVectorXFromScreen(myX,myY)
my3dY=Get3DVectorYFromScreen(myX,myY)
my3dZ=Get3DVectorZFromScreen(myX,myY)
rayStartX=my3dX+GetCameraX(1)
rayStartY=my3dY+GetCameraY(1)
rayStartZ=my3dZ+GetCameraZ(1)
rayEndX=800*my3dX+GetCameraX(1)
rayEndY=800*my3dY+GetCameraY(1)
rayEndZ=800*my3dZ+GetCameraZ(1)
theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)
Print(theObjectHit)
if theObjectHit>1000
SetObjectPosition(Cursor,GetObjectX(theObjectHit),GetObjectY(theObjectHit)+GetObjectSizeMaxY(theObjectHit)+5,GetObjectz(theObjectHit))
endif
endfunction
