Blitz unit scale using CreateCube

Blitz3D Forums/Blitz3D Programming/Blitz unit scale using CreateCube

Shifty Geezer
 #1
Yes, cubes are 2x2x2 (-1,-1,-1) to (1,1,1). Sphere's are radius 1 too.

Open in online IDE
Graphics3D 800,600,32,2

cam=CreateCamera()
PositionEntity cam,0,0,-50
CameraZoom cam,20

light=CreateLight()
TurnEntity light,45,45,0

corner1=CreateSphere() : ScaleEntity corner1,0.1,0.1,0.1 : PositionEntity corner1,-1,-1,-1
EntityColor corner1,255,0,0 : EntityOrder corner1,-1
corner2=CreateSphere() : ScaleEntity corner2,0.1,0.1,0.1 : PositionEntity corner2,-1,-1,1
EntityColor corner2,255,0,0 : EntityOrder corner2,-1
corner3=CreateSphere() : ScaleEntity corner3,0.1,0.1,0.1 : PositionEntity corner3,-1,1,-1
EntityColor corner3,255,0,0 : EntityOrder corner3,-1
corner4=CreateSphere() : ScaleEntity corner4,0.1,0.1,0.1 : PositionEntity corner4,-1,1,1
EntityColor corner4,255,0,0 : EntityOrder corner4,-1
corner5=CreateSphere() : ScaleEntity corner5,0.1,0.1,0.1 : PositionEntity corner5,1,-1,-1
EntityColor corner5,255,0,0 : EntityOrder corner5,-1
corner6=CreateSphere() : ScaleEntity corner6,0.1,0.1,0.1 : PositionEntity corner6,1,-1,1
EntityColor corner6,255,0,0 : EntityOrder corner6,-1
corner7=CreateSphere() : ScaleEntity corner7,0.1,0.1,0.1 : PositionEntity corner7,1,1,-1
EntityColor corner7,255,0,0 : EntityOrder corner7,-1
corner8=CreateSphere() : ScaleEntity corner8,0.1,0.1,0.1 : PositionEntity corner8,1,1,1
EntityColor corner8,255,0,0 : EntityOrder corner8,-1

cube=CreateCube()
sphere=CreateSphere()
EntityColor sphere,0,0,255
EntityOrder sphere,-2

	RenderWorld()
	Flip
Delay 2000

While Not KeyHit(1)
	MoveEntity cam,0.1,0.01,0
	PointEntity cam,cube
	RenderWorld()
	Flip
Wend