Has anyone implemmented a B3D render farm yet?

BlitzPlus Forums/BlitzPlus Programming/Has anyone implemmented a B3D render farm yet?

I doubt it.

Graphics3D 1024,768,32,1

For n=1 To 200
temp=CreateCube()
PositionEntity temp,Rand(-100,100),0,Rand(-100,100)
Next
light=CreateLight(2)

PositionEntity light,1000,200,0

; create cams and viewports
Dim cam(3)
cam(0)=CreateCamera()
cam(1)=CreateCamera()
cam(2)=CreateCamera()
cam(3)=CreateCamera()
CameraViewport cam(0),0,0,512,384
CameraViewport cam(1),512,0,512,384
CameraViewport cam(2),0,384,512,384
CameraViewport cam(3),512,384,512,384

; create blobs so you can see the cams and put cams somewhere in space
Dim blob(3)
For n=0 To 3
blob(n)=CreateSphere(6)
EntityColor blob(n),255,0,0
EntityParent blob(n),cam(n)
PositionEntity cam(n),Rand(-50,50),0,Rand(-50,50)
TurnEntity cam(n),0,Rand(0,359),0
Next

Repeat

; move and turn the cams
For n=0 To 3
MoveEntity cam(n),0,0,.1
TurnEntity cam(n),0,Rnd(0,1),0
Next

UpdateWorld
RenderWorld
Flip
Until KeyHit(1)