Sorry your browser is not supported!

[section]
a/b=1

[section/a]
b=1

   MeshMaterialList {
    2;
    268;
    0,
    0,
  (etc)
    0,
    0,
    1, <- this is where it changes from material 0 to material 1
    1,
    1,
  (etc)
    1,
    1,
    1;

    Material {
  (etc)

` Analyzes an InstaTree mesh file to find which vertices correspond to the trunk (material 0)
` and which the leaves (material 1). The program assumes that the first n vertices have material 0
` and the remaining m have material 1 where n+m = total number of vertices.
` It also assumes that the poly data occur before the material list data.

` Functionally the same as original but uses Matrix1 memory banks instead.

` Green Gandalf 21 December 2013, edited 23 December 2013.
sync
set dir "objects"
make bank from file 1, "tree_4.x"
` find start of vertex data - poly data then follows
` assumes indicated by following line in the X file (without the `)
`     Mesh staticMesh {
bankSize = get bank size(1)
print " bank size = ", bankSize

endOfLine$ = chr$(13)+chr$(10) ` just a convenient way of representing the end of line pair of bytes
offset0 = 0

repeat
  ` find next end of line
  offset1 = search bank(1, endOfLine$, offset0)
  lineLength = offset1 - offset0
  temp$ = bank string$(1, offset0, lineLength)
  offset0 = offset1 + 2 ` skip end of line pair
  ` check for unexpected end of file
  if offset0 >= bankSize then print "Oops! Near end of file at offset0 = ", offset0, "!" : wait key : end
until trim$(temp$) = "Mesh staticMesh {"

` find next end of line and read the vertex count
offset1 = search bank(1, endOfLine$, offset0)
lineLength = offset1 - offset0
temp$ = bank string$(1, offset0, lineLength)
offset0 = offset1 + 2 ` skip end of line pair
vMax = val(left$(temp$, len(temp$)-1)) ` remove the semicolon at the end of the string first

` now skip past the vertex data - the pair ;; marks the end of the data list
offset1 = search bank(1, ";;", offset0)
offset0 = offset1 + 4 ` skip end of line pair as usual as well

` find next end of line and read the poly count
offset1 = search bank(1, endOfLine$, offset0)
lineLength = offset1 - offset0
temp$ = bank string$(1, offset0, lineLength)
offset0 = offset1 + 2 ` skip end of line pair
pMax = val(left$(temp$, len(temp$)-1)) - 1 ` remove the semicolon at the end of the string first

dim polys(pMax, 2)
for p = 0 to pMax
  ` find the three vertex numbers for each poly
  ` find next end of line, read the vertex index numbers and store for use later
  offset1 = search bank(1, endOfLine$, offset0)
  lineLength = offset1 - offset0
  temp$ = bank string$(1, offset0, lineLength)
  offset0 = offset1 + 2 ` skip end of line pair
  ` next four lines are same as before
  temp = len(first token$(temp$, ";")) : temp$ = ","+right$(temp$, len(temp$) - temp)
  polys(p, 0) = val(next token$(","))
  polys(p, 1) = val(next token$(","))
  polys(p, 2) = val(next token$(","))
next p

` now find the material list header
offset1 = search bank(1, "MeshMaterialList {", offset0)
offset0 = search bank(1, endOfLine$, offset1) + 2
` skip the number of materials - we know there are 2 don't we?
offset0 = search bank(1, endOfLine$, offset0) + 2
` and the number of polys - we know there are 1+pMax of those :)
offset0 = search bank(1, endOfLine$, offset0) + 2

polyID = -1

` now scan the material list to find the first occurrence of material 1
for p = 0 to pMax
  offset1 = search bank(1, endOfLine$, offset0)
  temp$ = bank string$(1, offset0, offset1 - offset0)
  offset0 = offset1 + 2 ` skip end of line pair
  material = val(first token$(temp$, ",")) ` we don't need to worry about the final ";" because we end before then
  if material = 1 then last = p-1 : exit ` found the first occurrence of material 1
next p

` now find the last vertex used for material 0
lastVertex = polys(0, 0) ` the last vertex can be initialised to this one
for p = 0 to last
  lastVertex = max(lastVertex, max(polys(p, 0), max(polys(p, 1), polys(p, 2))))
next p

` finally find the two texture filenames
` find trunk texture first
offset0 = search bank(1, chr$(34), offset0) ` found opening "
inc offset0
offset1 = search bank(1, chr$(34), offset0) ` found closing "
barkTextureName$ = bank string$(1, offset0, offset1 - offset0)
offset0 = offset1 + 2 ` skip end of line pair

` now find the leaf texture in the same way
offset0 = search bank(1, chr$(34), offset0) ` found opening "
inc offset0
offset1 = search bank(1, chr$(34), offset0) ` found closing "
leafTextureName$ = bank string$(1, offset0, offset1 - offset0)

` print results
print " last vertex found = ", lastVertex, ",  total vertices = ", vMax
print "   bark texture file = ", barkTextureName$
print "   leaf texture file = ", leafTextureName$

wait key

end

offset1 = search bank(1, "Mesh staticMesh {")
offset0 = search bank(1, endOfLine$, offset1) + 2

For n = 1 to 1000000

  <Your logic>
  if <something is true> then exit

next n

t$ = datafile string$(1)
while (datafile end(1)=0)
  print t$
  t$ = datafile string$(1)
endwhile

t$ = datafile string$(1)
for i = 0 to i-datafile end(1)
  print t$
  t$ = datafile string$(1)
next i

#constant _DO   for ____i = 0 to 1 step 0
#constant _LOOP next

_DO
  t$ = datafile string$(1)

  if datafile end(1) = 1 then exit

  print t$
_LOOP

Status = MyLoadImage("xyz.png", 1)

if Status = 1
   print "Image loaded OK"
   paste image 1, 0, 100
else
   print "Image failed to load"
endif

wait key
end



global MyLoadImage_Status as integer
global MyLoadImage_Id as integer
global MyLoadImage_Name as string

function MyLoadImage(Name as string, Id as integer)
   MyLoadImage_Name = Name                      ` Copy the parameters for use within the coroutine.
   MyLoadImage_Id = Id

   create coroutine 1, "__LoadImage"            ` Start a coroutine to handle the image loading.
   switch to coroutine 1                        ` ... and switch control to it.
   delete coroutine 1                           ` Control has been returned, so clean up.

   Status = MyLoadImage_Status                  ` Return the status of the load.
endfunction Status

function __LoadImage()
   set error function "__CoroutineError"        ` Redirect any errors to the error handler
   load image MyLoadImage_Name, MyLoadImage_Id  ` Attempt to load the image.
   MyLoadImage_Status = 1                       ` Got here, so successful.
   set error function 0                         ` Reset the error redirect.
endfunction

function __CoroutineError()
   MyLoadImage_Status = 0                       ` Set a failed status
                                                ` An error automatically disables the redirect, so no need to do it here
   switch to coroutine 0                        ` Switch back to the main program
endfunction

lock vertexdata for limb 1,0

for v=0 to vertex_count-1
Set Indexdata v , (vertex_count-1)-v
next v

unlock vertexdata

sync on

do
    call function name "test"
    text 0,0, "Hello, world!"
    sync
    cls
loop

function test()
endfunction

m_pD3D->SetRenderTarget ( 0, g_pGlob->pHoldBackBufferPtr );
m_pD3D->SetDepthStencilSurface ( g_pGlob->pHoldDepthBufferPtr );
g_pGlob->pCurrentBitmapSurface=g_pGlob->pHoldBackBufferPtr;
g_pGlob->iCurrentBitmapNumber=iID;

sync on : sync rate 60 : sync

set camera fov 0, 22.5
set camera aspect 0, (screen width()*1.0)/screen height()

print "fov: ", camera fov(0)
print "asp: ", camera aspect(0)

sync:nice wait key:end

sync on : sync rate 60 : sync
set display mode desktop width(), desktop height(), 32, 1

baseFov# = 90.0
baseAsp# = (screen width()*1.0)/screen height()

// values retrieved from callbacks
global fov1#, asp1#, fov2#, asp2#, fov3#, asp3#

set presync callback "myPreSync"
set prerender callback "myPreRender"
set precamera callback "myPreCamera"

// ensure "3d mode" active
backdrop on : color backdrop 0xff2030ff
make object cube 1, 10

do
	// change fov and aspect over time.
	ht# = hitimer()
	set camera fov baseFov# + 15.0 * sin(ht#*0.04)
	set camera aspect baseAsp# + 0.6 * sin(ht#*0.03)
	
	rotate object 1, ht#*0.01, ht#*0.005, ht#*0.003
	
	// show fov and aspect as current and as returned by callbacks
	print "fov : ", camera fov(0)
	print "asp : ", camera aspect(0)
	print "fov1: ", fov1#
	print "asp1: ", asp1#
	print "fov2: ", fov2#
	print "asp2: ", asp2#
	print "fov3: ", fov3#
	print "asp3: ", asp3#
	
	sync : nice wait 20 : set cursor 0,0
loop


function myPreSync()
	fov1# = camera fov(0)
	asp1# = camera aspect(0)
endfunction

function myPreRender()
	fov2# = camera fov(0)
	asp2# = camera aspect(0)
endfunction

function myPreCamera()
	fov3# = camera fov(0)
	asp3# = camera aspect(0)
endfunction

Set Dir Get dir$()+"\Models\DBO\"
Load object "ColourTestBody.dbo", 1,2
Position Object 1, 0,20,0

Map file to bank "ColourTestBody.dbo",2
Make Object from bank 2,2
Position Object 2, 0,-20,0

sync on
sync rate 60
`sync sleep 1
autocam off

obj = 0

for i = 1 to 10
    inc obj
    make object cube obj, 1.0
    position object obj, -5.0, (i-5)*2, 0.0
    rotate object obj, 0.0, i * 36.0, 0.0
next

set default object group 1

for i = 1 to 10
    inc obj
    make object cube obj, 1.0
    position object obj, 0.0, (i-5)*2, 0.0
    rotate object obj, 0.0, i * 36.0, 0.0
next

set default object group 2

for i = 1 to 10
    inc obj
    make object cube obj, 1.0
    position object obj, 5.0, (i-5)*2, 0.0
    rotate object obj, 0.0, i * 36.0, 0.0
next

position camera 0.0, 0.0, -20.0
point camera 0.0, 0.0, 0.0

ColourObjectGroup(0, rgb(255, 0, 0))
ColourObjectGroup(1, rgb(0, 255, 0))
ColourObjectGroup(2, rgb(0, 0, 255))

do
    TurnObjectGroup(0, 5.0)
    TurnObjectGroup(2, -5.0)
    sync
loop

function ColourObjectGroup(grp as integer, colour as dword)
    local obj as integer

    obj = first object in group(grp)

    while obj <> 0
        color object obj, colour

        obj = next object in group(grp)
    endwhile
endfunction

function TurnObjectGroup(grp as integer, Angle as float)
    local obj as integer
    local a as float

    obj = first object in group(grp)

    while obj <> 0
        a = object angle y(obj) + Angle
        if a < 0.0 then inc a, 360.0
        if a >= 360.0 then dec a, 360.0

        yrotate object obj, a

        obj = next object in group(grp)
    endwhile
endfunction