Here's an example in B3D of the gist of what im trying to do. Maybe there's a real simple way via a function/sub in FB and in 2D stuff that Im overlooking.
(btw, the code is for demonstrating what im after, it wont work properlly as i've missed out the vertex building )
;
; Copying points to new positions example.
;
Graphics3D 640,480
SetBuffer BackBuffer()
CreateCamera 0,0,-5
Global MainObject
Const Points=180
Dim ObjectX#( Points ), ObjectY#( Points ), ObjectZ#( Points )
Function CreateSegments()
MainObject=CreateMesh()
MainPoints =SetupPoints( 12 ) ;Number of points in the range.
;
; Add multiple instances of the tentacle to the octopus.
;
For y = 0 To 5
For x = 0 To 4
RotateMesh MainPoints, 0, intX * 360 / 4, intY * 360 / 5
AddMesh( MainPoints, MainObject )
Next
Next
FreeEntity MainPoints
End Function
Function SetupPoints( PointsRange )
Local Angle#=4
For intX = 0 To PointsRange-1
ObjectX(a) = Float PointsRange - a
ObjectY(a) = Float a / PointsRange
ObjectZ(a) = Cos( angle*a*24) * (1 - Float a/PointsRange) * 4
Next
End Function
Cheers Clyde.