Terrainedit

This code has been declared by its author to be Public Domain code.

Terrainedit by fireshadow4126

2009

example: u could use this with a for...next statement and width and depth 0 to create a forest of spikes
height has to be 0-1
to make the height seem greater, scale the y axis of the terrain

Function terrainedit(terrain,x,z,width,depth,height)

	end_x = x + width
	end_z = z + depth
	
	For a = x To end_x
	For b = z To end_z
		ModifyTerrain terrain,a,b,height
	Next
	Next
	
End Function

Comments

Matty

2009

You might want to do some bounds checking on those for loops, in particular the end_x and end_z variables.

DreamLoader

2009

how to do a circle raise?

fireshadow4126

2009

circle:

terrain = CreateTerrain(1024)
PositionEntity terrain,-256,-1,-256
ScaleEntity terrain,1,5,1
texture = LoadTexture("rocktexture1.bmp")
EntityTexture terrain,texture
For theta = 0 To 360
x = (Cos(theta) * 5)+100
z = (Sin(theta) * 5)+100
Terrain_Edit(terrain,x,z,1,1,1)
Next

The 100s are to make the circle not on the very edge of the terrain.
To increase the radius of the circle, replace the 5s
with whatever you want

_Skully

2009

A better way to do circles inside a grid is to use distance... for example, in a rectangle

cx=50
cy=50
radius=30
for x=0 to 100
  for y=0 to 100
     if sqr((cx-x)^2+(cy-y)^2)<=radius then
        ;Inside circle
     else
        ; outside circle
     Endif
  next
next

Code Archives Forum