Sorry your browser is not supported!

Kezzla

TOTAL - 65/100

Creativity - 15/15
I thought this was a very clever way to demonstrate grass. None of the other entries made anything similar. It was the only entry in which you controlled a player rather then just concentrating on the grass, but still got the idea across.
Cleanliness of Code - 10/15
I'd give this a ten, because not all of the variable names made sense. He had hills which was referring to the wave of grass and it was in all caps. Other variables however did not follow this style and some didn't even really describe what they did unless you read through the entire code to figure out their use. Other then that, the indenting was good and the commenting gave a general description.
Flexibility - 5/25
It was not flexible at all, the results were pretty limited each time and it had not one function for maybe creating the grass or anything.
Complexity - 15/25
I gave it a 15 because it looks like it was a though outside the box which makes it more complex and how the hills was done was clever so I gave it a higher complexity score.
Manageability - 10/10
Due to it being done in such a short amount of code. I feel it would have been very easy to improve on later down the road.
Consistency - 10/10
I felt it stayed directly on topic while being pretty creative.

TOTAL - 57/100

Creativity - 15/15
I thought this was a very artistic demonstration of the challenge. I felt as if it could be a painting for how clean the results came out. Creative very indeed, yes?
Cleanliness of Code - 5/15
I'd give this an 8 because even though there was commenting, it wasn't very descriptive. The variables didn't describe much either although the style of coding was clean. The indenting was off in a lot of loops while others were indented.
Flexibility - 0/25
I felt as if this was not flexible at all. No functions were written to simplify processes. I believe in small main loops and setups with lots and lots of functions. Sounds messier, but ends up cleaner.
Complexity - 25/25
I felt that this entry was pretty complex. It took a lot of debugging to get the positioning right and to give it that artistic look.
Manageability - 2/10
The code was really jumbled and I felt like that would be hard to come back and edit later on.
Consistency - 10/10
It stayed right on topic and demonstrated it beautifully.

TOTAL 100/1000

TOTAL - 88/100

Creativity - 11/15
I felt as if the wind is what boosted the creativity with this one. It was a simple double plain grass texture although it was frayed out and I did like the dirt. The wind is the part that got some creative points.
Cleanliness of Code - 15/15
This code was very clean and this is weird for me to say but I enjoy reading your code, because instead of having to read through pieces of code to figure out what they do, it's just like reading a book. The comments describe the effect well and that's it.
Flexibility - 17/25
It had functions which make programs and debugging them run a lot smoother, but it didn't have any creation functions for the grass. I believe in lots and lots of functions and small amounts of main loop and setup code. My main loops are normally like 10 lines long for a 2k long code section.
Complexity - 25/25
I felt as though it was pretty complex. It wasn't thought of or put together quickly and the wind pulses added variation.
Manageability - 10/10
It would be very easy to come back and manipulate this code down the road.
Consistency - 10/10
It was on topic and demonstrated the grass with a little sway of the challenge.

TOTAL - 85/100

Creativity - 12/15
This was pretty creative. I especially liked the textured rotating sky. The grass was created by individual 3d blades which I didn't see from any other entries.
Cleanliness of Code - 8/15
It had one very easy to understand variable and the one loop was indented, but the rest of it had no commenting.
Flexibility - 25/25
It had a lot of functions which would make it easy to manipulate and change major parts of the program.
Complexity - 25/25
It appeared as if it had some thought and was not thrown together quickly. This took some thought to get the look it got.
Manageability - 5/10
This would not be easy to just jump back in and edit, but thanks to the functions and short amount of main loop and setup code. It would be quick to come back and read through, although it would require reading code intstead of comments with descriptions.
Consistency - 10/10
It stayed on topic and demonstrated the challenge of grass being generated.

TOTAL - 98/100

Creativity - 15/15
It was a creative way to demonstrate the grass with wind and on a large terrain you could roam around. It also showed that the grass was only generated when within a certain distance.
Cleanliness of Code - 13/15
It was very easy to read and very clean. It was the same as comments and was like reading a book to see what each piece of code did. It got dropped in points, because gosub and gotos are bad habits and need to be avoided. That is what I believe at least.
Flexibility - 25/25
It had plenty of functions to change the outcome of the entry. Even the grass sway was capable of being manipulated.
Complexity - 25/25
It was not an entry that was thought of quickly or was easy to code at all.
Manageability - 10/10
This code would be very easy to come back to manipulate later on due to the abundance of comments and functions.
Consistency - 10/10
It stayed on topic and demonstrated the challenge accordingly.

The sky is the limit. (insert eyeroll trumpet riff)

Chafari

box 0, 0, screen width()-1, screen height()-1, 0xFF00FFFF
wait key

rem four images for the clouds
ani(1)
ani(2)
ani(3)
ani(4)
autocam off
sync on
hide mouse
for i= 1 to 1200
  make object plain i,100,100
  xrotate object i,90:fix object pivot i
  set object transparency i,1
  cc=rnd(150)
  position object i,rnd(800),100+rnd(60),rnd(800)
  yrotate object i,rnd(15)
  ghost object on i
  disable object zread i
  texture object i,1+rnd(3)
next i

rem setting ambient light and adding some lights
color backdrop rgb(20,20,155)
hide light 0
set ambient light 20
make light 1:position light 1,300,-20,500:color light 1,rgb(255,0,0):set light range 1,200
make light 2:position light 2,300,50,500:set light range 2,200



ink rgb(100,60,0),0
box 0,0,5,5
get image 5,0,0,5,5

make matrix 1,800,800,50,50
prepare matrix texture 1,5,5,5
randomize matrix 1,10
update matrix 1

rem starting camera position and rotation
x#=58
z#=387
a#=77
cam#=317

DO
rem clouds movements
for i= 1 to 1200
move object i,0.05:move object down i,0.001
if object position z(i)>800 then position object i,rnd(800),100+rnd(60),-10
NEXT I

rem camera controls
if upkey()=1 then x#=newxvalue(x#,a#,0.3) : z#=newzvalue(z#,a#,0.3)
if downkey()=1 then x#=newxvalue(x#,a#,-0.3) : z#=newzvalue(z#,a#,-0.3)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,0.3):z#=NEWZVALUE(z#,a#-90,0.3)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-0.3):z#=NEWZVALUE(z#,a#-90,-0.3)

a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
y#=get ground height(1,x#,z#)

`camera rotation limits
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,a#,0

position camera x#,y#+15,z#
`_____________________________________

sync
loop

function ani(im)
  create bitmap im,100,100
  for i=1 to 200
  circle 15+rnd(70),15+rnd(70),rnd(10)
  next i
  blur bitmap im,6
  blur bitmap im,6
  get image im,0,0,100,100,1
  cls
  delete bitmap im
endfunction ani

//general setup
hide mouse
sync on
sync rate 60
set camera range 1,60000
autocam off
backdrop on
color backdrop RGB(34,34,74)
fog on
fog color RGB(34,34,74)
fog distance 1,5000
set ambient light 30
position camera 0,50000,0,50000

//ye olde grass texture and matrix routine
grasstexture(1,512)
make matrix 1,100000,100000,100,100
randomize matrix 1,1000
prepare matrix texture 1,1,1,1
update matrix 1
set matrix 1,0,0,1,1,1,1,1

//set up the rain particles
Initrain(1,2000)
//set up the ground spatter particles
initspatter(5001,5050)
do
	WASD(5)
	Mouselook()
	rain(1,2000,5000,100)
	spatter(5001,5050,1000)
	chance = thunderchance(chance)
	sync
loop
end
function thunderchance(chance)
    //Randomize the lightning flashes
	Lcount = rnd(300)
	//this next section allows for brief bursts of activity.
	//It attempts to mimic lightning timing.  achieved through trial and error
	if lcount > 300-chance then lightning()
	if lcount = 300 then chance = 100
	if lcount = 299 then chance = 1
	if lcount <270 then chance = 2
endfunction chance

function initspatter(startno,endno)
	// make a whole bunch of little planes to be used for spatter marks.
	// they only exist for such a small amount of time that it doesn't matter that they are square
	for x = startno to endno
		make object plane x,3,3,1
		xrotate object x,90
		color object x,rgb(150,150,150)
		set object ambient x, 0
	next x
endfunction
function rain(startno,endno,radius,speed)
	//rain routine
	// move the rain objects down, until they hit a selected point.
	// then position them randomly above the player once more.
	for x = startno to endno
		move object down x,speed
		if object position y(x)<-100 then position object x,camera position x()-(radius/2)+rnd(radius),camera position y()+1000+rnd(2000),camera position z()-(radius/2)+rnd(radius)
	
	next x
endfunction
function spatter(startno,endno,radius)
	//randomly place the spatter objects on the ground to resemble water splashes
	for x = startno to endno
		x# = camera position x()-(radius/2)+rnd(radius)
		z# = camera position z()-(radius/2)+rnd(radius)
		y# = get ground height(1,x#,z#)
		position object x,x#,y#,z#
	next x
endfunction
function Initrain(startno,endno)
	//create a whole bunch of cylinders to resemble rainfall
	for x = startno to endno
		make object cylinder x,100
		scale object x,1,1000,1
		color object x,RGB(128,128,255)
		position object x,camera position x()-(radius/2)+rnd(radius),camera position y()+1000+rnd(2000),camera position z()-(radius/2)+rnd(radius)
		set object transparency x,1
		set alpha mapping on x,10
		set object ambient x, 0
	next x
endfunction

function lightning()
	// this function flashes the backdrop mimicking lighning flashes
	//used in conjunction with Thunderchance function
	intensity = rnd(10)
	color backdrop rgb(245+intensity,245+intensity,245+intensity)
	set ambient light 100
	sync
	color backdrop rgb(34,34,74)
	set ambient light 10
endfunction
function WASD(speed#)
	//standard WASD movement routine
	if shiftkey() = 1 then speed# = speed# *2
	if controlkey() = 1 then speed# = speed#/2
	if keystate(17) = 1 then move camera speed#
	if keystate(31) = 1 then move camera -speed#
	if keystate(30) = 1 then move camera left speed#
	if keystate(32) = 1 then move camera right speed#
	position camera 0,camera position x(),72+get ground height(1,camera position x(),camera position z()),camera position z()
endfunction

function Mouselook()
	//standard mouselook routine
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
endfunction

function grasstexture(imagenumber,size)
	//ye old grass texture maker
	for x = 1 to size
		for y = 1 to size
			dot x,y,rgb(20+rnd(50),rnd(100)+55,20)
		next y
	next x
	get image imagenumber,1,1,size,size
endfunction

box 0, 0, screen width()-1, screen height()-1, 0xFF00FFFF
wait key

rem four images for the clouds
ani(1)
ani(2)
ani(3)
ani(4)
autocam off
sync on
hide mouse
for i= 1 to 1200
  make object plain i,100,100
  xrotate object i,90:fix object pivot i
  set object transparency i,1
  cc=rnd(150)
  position object i,rnd(800),100+rnd(60),rnd(800)
  yrotate object i,rnd(15)
  ghost object on i
  disable object zread i
  texture object i,1+rnd(3)
next i

rem setting ambient light and adding some lights
color backdrop rgb(20,20,155)
hide light 0
set ambient light 20
make light 1:position light 1,300,-20,500:color light 1,rgb(255,0,0):set light range 1,200
make light 2:position light 2,300,50,500:set light range 2,200



ink rgb(100,60,0),0
box 0,0,5,5
get image 5,0,0,5,5

make matrix 1,800,800,50,50
prepare matrix texture 1,5,5,5
randomize matrix 1,10
update matrix 1

rem starting camera position and rotation
x#=58
z#=387
a#=77
cam#=317

DO
rem clouds movements
for i= 1 to 1200
move object i,0.05:move object down i,0.001
if object position z(i)>800 then position object i,rnd(800),100+rnd(60),-10
NEXT I

rem camera controls
if upkey()=1 then x#=newxvalue(x#,a#,0.3) : z#=newzvalue(z#,a#,0.3)
if downkey()=1 then x#=newxvalue(x#,a#,-0.3) : z#=newzvalue(z#,a#,-0.3)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,0.3):z#=NEWZVALUE(z#,a#-90,0.3)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-0.3):z#=NEWZVALUE(z#,a#-90,-0.3)

a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
y#=get ground height(1,x#,z#)

`camera rotation limits
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,a#,0

position camera x#,y#+15,z#
`_____________________________________

sync
loop

function ani(im)
  create bitmap im,100,100
  for i=1 to 200
  circle 15+rnd(70),15+rnd(70),rnd(10)
  next i
  blur bitmap im,6
  blur bitmap im,6
  get image im,0,0,100,100,1
  cls
  delete bitmap im
endfunction ani

//general setup
hide mouse
sync on
sync rate 60
set camera range 1,60000
autocam off
backdrop on
color backdrop RGB(34,34,74)
fog on
fog color RGB(34,34,74)
fog distance 1,5000
set ambient light 30
position camera 0,50000,0,50000

//ye olde grass texture and matrix routine
grasstexture(1,512)
make matrix 1,100000,100000,100,100
randomize matrix 1,1000
prepare matrix texture 1,1,1,1
update matrix 1
set matrix 1,0,0,1,1,1,1,1

//set up the rain particles
Initrain(1,2000)
//set up the ground spatter particles
initspatter(5001,5050)
do
	WASD(5)
	Mouselook()
	rain(1,2000,5000,100)
	spatter(5001,5050,1000)
	chance = thunderchance(chance)
	sync
loop
end
function thunderchance(chance)
    //Randomize the lightning flashes
	Lcount = rnd(300)
	//this next section allows for brief bursts of activity.
	//It attempts to mimic lightning timing.  achieved through trial and error
	if lcount > 300-chance then lightning()
	if lcount = 300 then chance = 100
	if lcount = 299 then chance = 1
	if lcount <270 then chance = 2
endfunction chance

function initspatter(startno,endno)
	// make a whole bunch of little planes to be used for spatter marks.
	// they only exist for such a small amount of time that it doesn't matter that they are square
	for x = startno to endno
		make object plane x,3,3,1
		xrotate object x,90
		color object x,rgb(150,150,150)
		set object ambient x, 0
	next x
endfunction
function rain(startno,endno,radius,speed)
	//rain routine
	// move the rain objects down, until they hit a selected point.
	// then position them randomly above the player once more.
	for x = startno to endno
		move object down x,speed
		if object position y(x)<-100 then position object x,camera position x()-(radius/2)+rnd(radius),camera position y()+1000+rnd(2000),camera position z()-(radius/2)+rnd(radius)
	
	next x
endfunction
function spatter(startno,endno,radius)
	//randomly place the spatter objects on the ground to resemble water splashes
	for x = startno to endno
		x# = camera position x()-(radius/2)+rnd(radius)
		z# = camera position z()-(radius/2)+rnd(radius)
		y# = get ground height(1,x#,z#)
		position object x,x#,y#,z#
	next x
endfunction
function Initrain(startno,endno)
	//create a whole bunch of cylinders to resemble rainfall
	for x = startno to endno
		make object cylinder x,100
		scale object x,1,1000,1
		color object x,RGB(128,128,255)
		position object x,camera position x()-(radius/2)+rnd(radius),camera position y()+1000+rnd(2000),camera position z()-(radius/2)+rnd(radius)
		set object transparency x,1
		set alpha mapping on x,10
		set object ambient x, 0
	next x
endfunction

function lightning()
	// this function flashes the backdrop mimicking lighning flashes
	//used in conjunction with Thunderchance function
	intensity = rnd(10)
	color backdrop rgb(245+intensity,245+intensity,245+intensity)
	set ambient light 100
	sync
	color backdrop rgb(34,34,74)
	set ambient light 10
endfunction
function WASD(speed#)
	//standard WASD movement routine
	if shiftkey() = 1 then speed# = speed# *2
	if controlkey() = 1 then speed# = speed#/2
	if keystate(17) = 1 then move camera speed#
	if keystate(31) = 1 then move camera -speed#
	if keystate(30) = 1 then move camera left speed#
	if keystate(32) = 1 then move camera right speed#
	position camera 0,camera position x(),72+get ground height(1,camera position x(),camera position z()),camera position z()
endfunction

function Mouselook()
	//standard mouselook routine
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
endfunction

function grasstexture(imagenumber,size)
	//ye old grass texture maker
	for x = 1 to size
		for y = 1 to size
			dot x,y,rgb(20+rnd(50),rnd(100)+55,20)
		next y
	next x
	get image imagenumber,1,1,size,size
endfunction

Chafari

TOTAL - 43/100

Creativity - 5/15
Five points for cheekiness

Cleanliness of Code - 15/15
Code was clean and readable, very easy to understand.

Flexibility - 1/25
While this code does create a nice blue sky, and it can be adjusted to make a sky of any color, this is the only function it provides.

Complexity - 2/25
One point for every line of code.

Manageability - 10/10
very easy to manage, almost as fast to rewrite as it is to cut and paste

Consistency - 10/10
This entry fits consistently with the comets style of first entry.

total - 92/100

Creativity 15/15
Very interesting approach to the challenge, with clever use of textures and objects along with object effects and lighting which resulted 
in really quite a beautiful entry.  A demonstration of artistry through the medium of coding.

Cleanliness of code 12/15
Code is well documented and structured.  It is easy to follow.  One point is deducted for every loop that is not indented. However the entry 
is overall very clean and readable.

Flexibility 20/25
By applying the main loop to a separate function this project could very easily be utilized in any 3d environment.  The values inside the functions 
are coded in, rather than flexibly alterable via function variables, so the score is lowered a little.  While the bulk of the operational code is not
 housed within a function or subroutine it could still easily be adapted and applied to another project.

Complexity 25/25
A well thought out and executed entry, time and planning clearly went into its production and the result is really quite wonderful.  A mixture of
 2d,3d objects,object effects, and light show a good understanding of the coding tools available.  A large portion of this score is also awarded due
 to the way you managed to create such a visually complex outcome with what is a pleasingly simple process.  I value simplicity of code in the same 
way as I do complexity.

Manageability: 10/10
the code is clearly broken up into section each of which is clearly labelled with comments.  The code will be very easy to revisit and understand in
 a years time. 

Consistency 10/10
The Code follows a consistent style, with consistent sectioning of code blocks, all for loops use the same variable name for sake of ease, similar
 command sets are arranged in the same patterns.

TOTAL - 80/100

Creativity 10/15
A reasonably good representation of rain and thunder, use of object particle system and plane water spatter decals. - some functions repeated from
 first entry

Cleanliness of code 15/15
code is indented and labeled clearly.  Code sections broken up for clarity.

Flexibility 15/25
The code is housed in functions that can be placed into other projects easily, there is control over the number of particles created and manipulated
 in the system.  This is potential for further development however, and the fact that the code does not work on v1.077RC7 detracts marks.

Complexity 20/25
A simple system which represents a reasonably complex weather environment.

Manageability: 10/10
the code is clearly broken up into section each of which is clearly labelled with comments.  The code is house within functions which can be ported
 to other projects and setup and used easily.

Consistency 10/10
The Code follows a consistent style, with consistent sectioning of code blocks, Consistent style of variable and function naming.

remstart
-=- Procedural Spaceship Generator -=-
by Obese87
version 2.1
-------------
- Special Thanks -
IBOL
Dave Bollinger - http://www.davebollinger.com/works/pixelspaceships/
--------------
What's Next?
* Sort out the algorithm and remove all random numbers so that a single value can be entered to produce a specific ship.
* Add colour bias so that distinct faction colour schemes can be reliably produced.
remend

set display mode 1360,768,32
`set display mode 1024,768,32
hide mouse
sync on
sync rate 0
randomize timer()

sw = screen width()
sh = screen height()

dim ship(13,17)
dim template(13,17)
Dim Col(5)
Initialize_Ship_Template()

rem Faction colours
dim faction(11)
f:
data 128,0,0, 128,64,0, 128,128,0, 64,128,0, 0,128,0, 0,128,64
data 0,64,128, 0,0,128, 64,0,128, 128,0,128, 128,0,64, 128,128,128
restore f
for c = 0 to 11
   read r
   read g
   read b
   faction(c) = rgb(r,g,b)
next c

s=1

rem = Main ====================================================
Do
   backdrop()

   for j = 0 to 3/s
      for i = 0 to 11/s
remstart
         generate_colours(faction((i+j*12)*(s/4.0)))
         for c = 1 to 5
            ink col(c),0
            cx = i*96*s+c*4+15
            cy = j*180*s+5
            box cx,cy,cx+4,cy+4
         next c
remend

         for y = 0 to 6
            for x = 0 to 5
               generate_colours(fuzzycol(rgb(128,128,128),0,80))
               generate_ship()
               draw_ship(15+x*16*s+i*96*s,15+y*24*s+j*180*s,s)
            next x
         next y
      next i
   next j

   ink -2,0
   center text screen width()/2,740,"PRESS ANY KEY TO GENERATE MORE SHIPS"
   wait key
   sync:cls
loop
END

rem = Functions ===============================================
function draw_ship(x,y,s)
   rem draw ship
   for v = 1 to 16
      for u = 1 to 12
         c = col(ship(u,v))
         if c>0
            ink c,0
            box x+u*s,y+v*s,x+(u+1)*s-1,y+(v+1)*s-1
         endif
      next u
   next v
endfunction
`//

function Initialize_Ship_Template()
   restore t
   for y=1 to 16 : for x=1 to 6 : read template(x,y) : next x : next y
   t:
   data 0,0,0,0,1,1
   data 0,0,0,1,1,1
   data 0,0,0,1,2,2
   data 0,0,1,2,2,3
   data 0,0,1,2,2,3
   data 0,1,2,2,2,3
   data 1,2,2,2,2,3
   data 1,2,2,2,2,3
   data 1,2,2,2,2,5
   data 1,2,2,2,5,5
   data 1,2,2,2,5,5
   data 1,2,2,2,5,5
   data 1,2,2,2,2,3
   data 0,1,2,2,2,3
   data 0,0,1,1,2,2
   data 0,0,0,0,1,1
endfunction
`//

function Generate_Ship()
   rem reset values
   for x = 1 to 12 : for y = 1 to 16 : ship(x,y) = 0 : next y : next x

   decal=rnd(2)

   for y = 1 to 16
      for x = 1 to 6
         C = template(x,y)
         SELECT C
            `Void
            case 0 : ship(x,y)=0 : endcase
            `Body
            case 2: ship(x,y)=rnd(2) :endcase
            `Centre
            case 3
               if decal
                  ship(x,y) = 2+decal
               else
                  ship(x,y)=rnd(1)+1
               endif
            endcase
            `Cockpit
            case 5
              if rnd(1)
                  ship(x,y)=5
               else
                  ship(x,y)=rnd(1)+1
               endif
            endcase
         ENDSELECT
      next x
   next y

   rem Ship trim
   for y = 1 to 16
      for x = 1 to 6
         if ship(x,y) = 0
            if ship(x-1,y)>1 or ship(x+1,y)>1 or ship(x,y-1)>1 or ship(x,y+1)>1
               if template(x,y)>0 then ship(x,y)=rnd(1)+1
            endif
         endif

         rem Mirror the ship
         ship(13-x,y)=ship(x,y)
      next x
   next y
Endfunction
`//

function generate_colours(a)
   a = fuzzycol(a,0,15)
   b = fuzzycol(a,0,5)
   b = contrast(b,rndch(55,75))
   c = fuzzycol(b,60,128)
   d = fuzzycol(c,20,60)
   e = invertcol(b)
   e = fuzzycol(e,30,70)
   col(1) = a       :`trim
   col(2) = b       :`body
   col(3) = c       :`decal a
   col(4) = d       :`decal b
   col(5) = e       :`cockpit
endfunction
`//

function changehue(c,ir,ig,ib)
   r = rgbr(c)+ir : r=r*(r>=0)*(r<=255)+(r>255)*255 :`if 0<=r<=255 then r=r elseif r<0 then r=0 elseif r>255 then r=255
   g = rgbg(c)+ig : g=g*(g>=0)*(g<=255)+(g>255)*255
   b = rgbb(c)+ib : b=b*(b>=0)*(b<=255)+(b>255)*255
endfunction rgb(r,g,b)
`//

function contrast(c,f)
   c = changehue(c,f,f,f)
endfunction c
`//

rem randomizes a colour by a random amount between +/-min and +/-max
function fuzzycol(c,min,max)
   c = changehue(c,rndch(min,max),rndch(min,max),rndch(min,max))
endfunction c
`//

function invertcol(c)
   r=255-rgbr(c) : g=255-rgbg(c) : b=255-rgbb(c)
endfunction rgb(r,g,b)
`//

rem Random Change: can be positive or negative, at least +/-min, at most +/-max
function rndch(min,max)
   v = (rnd(1)*2-1)*(rnd(max-min)+min)
endfunction v
`//

function backdrop()
   if bitmap exist(1)=0
      v = 127
      s=64
      create bitmap 1,s,s
      for y = 0 to s-1
         for x = 0 to s-1
            ink ((x&v)+(y&v))*4,0
            dot x,y
         next x
      next y
      set current bitmap 0
   endif
   `paste to screen
   for y = 0 to screen height()/s -1
      for x = 0 to screen width()/s -1
         copy bitmap 1,0,0,bitmap width(1)-1,bitmap height(1)-1, 0,s*x,s*y,s*x+bitmap width(1)-1,s*y+bitmap height(1)-1
      next x
   next y
endfunction
`//

remstart
-=- Procedural Spaceship Generator -=-
by Obese87
version 2.1
-------------
- Special Thanks -
IBOL
Dave Bollinger - http://www.davebollinger.com/works/pixelspaceships/
--------------
What's Next?
* Sort out the algorithm and remove all random numbers so that a single value can be entered to produce a specific ship.
remend

`set display mode 1360,768,32
set display mode 1024,768,32
set window off
hide mouse
sync on
sync rate 0
randomize timer()

sw = screen width()
sh = screen height()

dim ship(13,17)
dim template(13,17)
Dim Col(5)
Initialize_Ship_Template()
grey = rgb(128,128,128)

s=2

rem = Main ====================================================
Do
   backdrop()

   for j = 0 to 1
      for i = 0 to 3
         for y = 0 to 5
            for x = 0 to 5
               generate_colours(fuzzycol(grey,0,80))
               generate_ship()
               draw_ship(50+x*16*s+i*96*s,50+y*24*s+j*180*s,s)
            next x
         next y
      next i
   next j
   ink -2,0
   center text sw/2,740,"PRESS ANY KEY TO GENERATE MORE SHIPS"
   sync:sync
   wait key:cls
loop
END

rem = Functions ===============================================
function draw_ship(x,y,s)
   rem draw ship
   for v = 1 to 16
      for u = 1 to 12
         c = Col(ship(u,v))
         if  c<>0
            l = x+u*s
         	r = x+(u+1)*s
         	t = y+v*s
         	b = y+(v+1)*s
         	box l,t,r,b,c,c,c,c
         endif
      next u
   next v
endfunction
`//

function Initialize_Ship_Template()
   for y=1 to 16 : for x=1 to 6 : read template(x,y) : next x : next y
   data 0,0,0,0,1,1
   data 0,0,0,1,1,1
   data 0,0,0,1,2,2
   data 0,0,1,2,2,3
   data 0,0,1,2,2,3
   data 0,1,2,2,2,3
   data 1,2,2,2,2,3
   data 1,2,2,2,2,3
   data 1,2,2,2,2,5
   data 1,2,2,2,5,5
   data 1,2,2,2,5,5
   data 1,2,2,2,5,5
   data 1,2,2,2,2,3
   data 0,1,2,2,2,3
   data 0,0,1,1,2,2
   data 0,0,0,0,1,1
endfunction
`//

function Generate_Ship()
   rem reset values
   for x = 1 to 12 : for y = 1 to 16 : ship(x,y) = 0 : next y : next x

   decal=rnd(2)

   for y = 1 to 16
      for x = 1 to 6
         C = template(x,y)
         SELECT C
            `Void
            case 0 : ship(x,y)=0 : endcase
            `Body
            case 2: ship(x,y)=rnd(2) :endcase
            `Centre
            case 3
               if decal
                  ship(x,y) = 2+decal
               else
                  ship(x,y)=rnd(1)+1
               endif
            endcase
            `Cockpit
            case 5
              if rnd(1)
                  ship(x,y)=5
               else
                  ship(x,y)=rnd(1)+1
               endif
            endcase
         ENDSELECT
      next x
   next y

   rem Ship trim
   for y = 1 to 16
      for x = 1 to 6
         if ship(x,y) = 0
            if ship(x-1,y)>1 or ship(x+1,y)>1 or ship(x,y-1)>1 or ship(x,y+1)>1
               if template(x,y)>0 then ship(x,y)=rnd(1)+1
            endif
         endif

         rem Mirror the ship
         ship(13-x,y)=ship(x,y)
      next x
   next y
Endfunction
`//

function generate_colours(a)
   a = fuzzycol(a,0,15)
   b = fuzzycol(a,0,5)
   b = contrast(b,rndch(55,75))
   c = fuzzycol(b,60,128)
   d = fuzzycol(c,20,60)
   e = invertcol(b)
   e = fuzzycol(e,30,70)
   Col(1) = a       :`trim
   Col(2) = b       :`body
   Col(3) = c       :`decal a
   Col(4) = d       :`decal b
   Col(5) = e       :`cockpit
endfunction
`//

function changehue(c,ir,ig,ib)
   r = rgbr(c)+ir : r=r*(r>=0)*(r<=255)+(r>255)*255 :`if 0<=r<=255 then r=r elseif r<0 then r=0 elseif r>255 then r=255
   g = rgbg(c)+ig : g=g*(g>=0)*(g<=255)+(g>255)*255
   b = rgbb(c)+ib : b=b*(b>=0)*(b<=255)+(b>255)*255
   c = rgb(r,g,b)
endfunction c
`//

function contrast(c,f)
   c = changehue(c,f,f,f)
endfunction c
`//

rem randomizes a colour by a random amount between +/-min and +/-max
function fuzzycol(c,min,max)
   c = changehue(c,rndch(min,max),rndch(min,max),rndch(min,max))
endfunction c
`//

function invertcol(c)
   r=255-rgbr(c) : g=255-rgbg(c) : b=255-rgbb(c)
   c = rgb(r,g,b)
endfunction c
`//

rem Random Change: can be positive or negative, at least +/-min, at most +/-max
function rndch(min,max)
   v = (rnd(1)*2-1)*(rnd(max-min)+min)
endfunction v
`//

function backdrop()
   s=128
   if bitmap exist(1)=0
      create bitmap 1,s,s
      for y = 0 to s-1
         for x = 0 to s-1
            ink ((x&&s-1)+(y&&s-1))*2,0
            dot x,y
         next x
      next y
      set current bitmap 0
   endif
   `paste to screen
   for y = 0 to screen height()/s
      for x = 0 to screen width()/s
         copy bitmap 1,0,0,s,s, 0,s*x,s*y,s*x+s,s*y+s
      next x
   next y
endfunction

`` ,---------------------.
``| o7 by Valle aka Knieb |
`` `---------------------´
set display mode 1024,768,32
sync on : sync
set image colorkey 255,0,255

Center text 512,379,"Generating..." : sync


dim hm(1023) as integer ``Bodenheightmap
dim gm(1023) as integer ``Gebirgeheightmap


restart:
``Boden erzeugen
p as float
x = rnd(359) : h = 40+rnd(100) : s = 500+rnd(200) : p = -.4+rnd(80)/100.0
m as float : m = .3+(rnd(100)/100.0)
hm(0) = s+sin(x*m)*h :``500+rnd(200)
for t = 1 to 1023
   rand = rnd(3)
   ``hm(t) = sin(t+x)*h+hm(t-1)-rand+rnd(rand*2)
   hm(t) = s+p*t+sin(x*m+t)*h-rand+rnd(rand*2)
next t

``Gebirge erzeugen
x = rnd(359) : h = 60+rnd(150) : s = 400+rnd(300) : p = -.75+rnd(150)/100.0
m = .3+(rnd(100)/100.0)
gm(0) = s+sin(x*m)*h :``500+rnd(200)
for t = 1 to 1023
   rand = rnd(1)
   ``hm(t) = sin(t+x)*h+hm(t-1)-rand+rnd(rand*2)
   gm(t) = s+p*t+sin(x*m+t)*h-rand+rnd(rand*2)
next t

global snowflakes = 200+rnd(300)
global dim sn(snowflakes,5) as float
global sn_index as integer : sn_index = -1

global allpasses as integer
cls 0xffffff
get image 1,0,0,1,1,1 : sprite 1,0,0,1 : set sprite 1,0,1 : hide sprite 1
cls rgb(255,0,255)
For x = 0 to 9
   For y = 0 to 9
      if sqrt((x-5)^2+(y-5)^2)<= 5 then dot x,y,rgb(255,255,255)
   next y
next x
get image 2,0,0,9,9,1 : sprite 2,0,0,1 : set sprite 2,0,1 : hide sprite 2

``Himmel zeichnen
sx = rnd(1024) : sy = rnd(500) ``Sonnenposition
sr as float : sr= 1+(rnd(300)/100.0)``sonnenradius
lock pixels
For x = 0 to 1023
   For y = 0 to 767
      dist = sqrt((x-sx)^2+(y-sy)^2)/sr
      r = 255-dist
      g = 255-dist
      b = 255-y/4
      if r > 255 then r = 255
      if r < 0   then r = 0
      if g > 255 then g = 255
      if g < 0   then g = 0
      if b > 255 then b = 255
      if b < 0   then b = 0
      dot x,y,rgb(r,g,b)
   next y
   if x mod 5=0 then sync
next x
unlock pixels

color as dword
``Gebirge zeichnen

for t = 0 to 1023
   lock pixels
   For y = gm(t) to 768
      c = 255-(y-gm(t))-10+rnd(20)
      if c < 0 then g = 0
      if c > 255 then g = 255
      color = point(t,y)
      r = rgbr(color) : g = rgbg(color) : b = rgbb(color)
      r = (r+c/1.8)/2 : b = (b+c/2.7)/2 : g = (g+c/7.7)/2
      if r<0:r=0:endif:if r>255:r=255:endif
      if g<0:g=0:endif:if g>255:g=255:endif
      if b<0:b=0:endif:if b>255:b=255:endif
      dot t,y,rgb(r,g,b)
   next y
   unlock pixels
   if t mod 5=0 then sync
next t


``Boden zeichnen

for t = 0 to 1023
lock pixels
   For y = hm(t) to 768
      g = 255-(y-hm(t))-10+rnd(20)
      if g < 0 then g = 0
      if g > 255 then g = 255
      dot t,y,rgb(g/1.3,g/2.7, g/7.7)
   next y
   x = rnd(1023)
   ink rgb(0,180+rnd(75),0),0
   line x,hm(x),x-2+rnd(4),hm(x)-2-rnd(10)
   unlock pixels
   if t mod 5=0 then sync
next t


``Farn
ferns = 5+rnd(10)
For t = 1 to ferns
   x = 20+rnd(824)
   fern(x,hm(x)+10,250+rnd(40),2,50+rnd(150),4+rnd(8),-5+rnd(10),200+rnd(55))
next t


``Bäume
trees = 2+rnd(5)
For t = 1 to trees
   x = 20+rnd(824)
   allpasses = 9+rnd(6) : angle = 260+rnd(20)
   tree(x,hm(x)+10,allpasses,angle-10+rnd(20) ,40+rnd(160),5+rnd(20))
next t
get image 3,0,0,1024,768,1

sn_vx = -2+(rnd(400)/100.0)
For t = 0 to snowflakes
   snowflake(-300+rnd(1624), -10-rnd(150), sn_vx-.2+rnd(4)/10.0, 0.5+rnd(20)/10.0, 1+rnd(2))
next t

   `Kontraste verbessern
   get image 2, 0, 0, screen width(), screen height(), 1
   increase_contrast(2)
   paste image 2, 0, 0
   sync

do
   //paste image 3,0,0,0
   ``Schnee
   remstart
   For t = 0 to snowflakes
      if sn(t,5)
         inc sn(t,0), sn(t,2)-.3+rnd(6)/10.0
         inc sn(t,1), sn(t,3)
         if sn(t,0)=>0 and sn(t,0)<=1023
            if sn(t,1)>hm(int(sn(t,0))) then sn(t,5)=0 : snowflake(-300+rnd(1624), -10-rnd(150), sn_vx-.2+rnd(4)/10.0, 0.5+rnd(20)/10.0, 1+rnd(2))
            else
            if sn(t,1) > 700 then sn(t,5)=0 : snowflake(-300+rnd(1624), -10-rnd(150), sn_vx-.2+rnd(4)/10.0, 0.5+rnd(20)/10.0, 1+rnd(2))
         endif
         if sn(t,1)>775 then sn(t,5)=0 : snowflake(-300+rnd(1624), -10-rnd(150), sn_vx-.2+rnd(4)/10.0, 0.5+rnd(20)/10.0, 1+rnd(2))
         size sprite 2, sn(t,4), sn(t,4)
         offset sprite 2, sn(t,4)/2, sn(t,4)/2
         paste sprite 2, sn(t,0), sn(t,1)
      endif
   next t
   remend
   if scancode()<>0
      if escapekey() then end else center text 512,379,"Generating..." : sync : gosub restart
   endif
sync : loop
return


function tree(x as float, y as float, passes as integer, startAngle as float, height as float, thickness as integer)
   local dif1 as float : dif1 = 200.0/allpasses
   local dif2 as float : dif2 = 155.0/allpasses
   local size as float : size = passes*1.0/allpasses
   x2 = x+cos(startAngle)*height
   y2 = y+sin(startAngle)*height
   if size*thickness < 1.5
      ink rgb(passes*dif1,255-passes*dif2,0),0
      line x,y,x2,y2
      else
      size sprite 1,height+1,size*thickness
      offset sprite 1,0,size*5
      rotate sprite 1, startAngle
      set sprite diffuse 1,passes*dif1,255-passes*dif2,0
      paste sprite 1,x,y
      if passes mod 2 = 0 then sync
   endif
   if passes > 0
      tree(x2,y2,passes-1,wrapvalue(startAngle-13-rnd(30)),height*((50+rnd(30))/100.0),thickness)
      tree(x2,y2,passes-1,wrapvalue(startAngle+13+rnd(30)),height*((50+rnd(30))/100.0),thickness)
   endif
endfunction

function fern(x as float,y as float,angle as float,passes,length as float,newferns, angleinc, color)
   if passes = 0
      ink rgb(0,color,0),0
      x2 = x+cos(angle)*length : y2 = y+sin(angle)*length
      line x,y,x2,y2
      if rnd(20) = 1
         ink rgb(255,0,0),0
         circle x2,y2,1
      endif
   endif
   if passes > 0
      oldx = x : oldy = y
      newangle = angle
      partlength = length/newferns :``((y2-y)/(newferns)*1.0)
      ferncolor = color
      For t = 1 to newferns-1
         ferncolor = ferncolor*.99
         if ferncolor < 20  then ferncolor = 20
         ink rgb(0,ferncolor,0),0
         inc newangle, angleinc
         newx = oldx+cos(newangle)*partlength
         newy = oldy+sin(newangle)*partlength
         line oldx,oldy,newx,newy
         oldx = newx : oldy = newy
         ``newx = x+t*((x2-x)/(newferns)*1.0)
         ``newy = y+t*((y2-y)/(newferns)*1.0)
         fern(newx,newy,wrapvalue(newangle-94+rnd(8)),passes-1,length*.5-length*(t*.5/newferns),newferns,angleinc-2+rnd(4),color-5)
         fern(newx,newy,wrapvalue(newangle+86+rnd(8)),passes-1,length*.5-length*(t*.5/newferns),newferns,angleinc-2+rnd(4),color-5)
      next t
   endif
endfunction

function snowflake(x,y,vx,vy,size)
   inc sn_index : if sn_index > snowflakes then sn_index = 0
   sn(sn_index,0) = x
   sn(sn_index,1) = y
   sn(sn_index,2) = vx
   sn(sn_index,3) = vy
   sn(sn_index,4) = size
   sn(sn_index,5) = 1
endfunction

function increase_contrast(img)
   local r as float
   local g as float
   local b as float
   local bp as float
   local gp as float
   local rp as float
   `--
   mem1 = get_free_memblock()
   make memblock from image mem1, img
   width = memblock dword(mem1, 0)
   height = memblock dword(mem1, 4)
   mem2 = get_free_memblock()
   make memblock mem2, get memblock size(mem1)
   copy memblock mem1, mem2, 0, 0, 12

   if rnd(2)=1 then bp = 0.1
   if rnd(2)=1 then gp = 0.1
   if rnd(2)=1 then rp = 0.1

   for x = 0 to width-1
      for y = 0 to height-1
         pos = 12+(y*width+x)*4
         b = memblock byte(mem1, pos)
         b = b*1.0/255 : b = b*b*1.6+bp
         if b > 1 then b = 1
         b = b*255
         write memblock byte mem2, pos, int(b)
         g = memblock byte(mem1, pos+1)
         g = g*1.0/255 : g = g*g*1.6+gp
         if g > 1 then g = 1
         g = g*255
         write memblock byte mem2, pos+1, int(g)
         r = memblock byte(mem1, pos+2)
         r = r*1.0/255 : r = r*r*1.6+rp
         if r > 1 then r = 1
         r = r*255
         write memblock byte mem2, pos+2, int(r)
         copy memblock mem1, mem2, pos+3, pos+3, 1
      next y
   next x

   delete memblock mem1
   delete image img
   make image from memblock img, mem2
   delete memblock mem2
endfunction

function get_free_memblock()
   repeat
      inc index
   until memblock exist(index)=0
endfunction index

REM Wait Speed used to see the process
#constant WaitSpeed			500

REM Display
#constant DisplayX			800
#constant DisplayY			600
set display mode DisplayX,DisplayY,16
sync on
sync rate 0
color backdrop rgb(0,0,255)
set image colorkey 0,0,255
autocam off
position camera 0,0,-10
REM Bitmap
create bitmap 1,DisplayX,DisplayY

#constant Matrix_Land			1

#constant Object_Trunk			2
#constant Object_Leaf			3
#constant Object_Branch			4

#constant Object_Tree			100

#constant Mesh_Trunk			2
#constant Mesh_Branch			4
#constant Mesh_Arm				5

#constant Image_Land			11
#constant Image_Trunk			12
#constant Image_Leaf			13
#constant Image_Branch			14

#constant Sprite_Leaf			23

global KeyS
global Limb

REM Subs
gosub Make_Leaf
gosub Make_Trunk
gosub Make_Branch
gosub Make_Matrix
gosub Make_Tree


set current bitmap 0
delete bitmap 1

do
	gosub Handle_Camera
	ink rgb(255,255,255),0
	text 0,0,str$(screen fps())
	text 0,20,"WASD and Mouse"
	sync
loop




	Handle_Camera:
		REM Control Camera
 		cr# = 0
 		cf# = 0
		if KEYSTATE(32)=1 then cr# = -1
		if KEYSTATE(30)=1 then cr# = 1
		if KEYSTATE(17)=1 then cf# = 1
		if KEYSTATE(31)=1 then cf# = -1
		
 		ncr# = curvevalue(cr#,ncr#,5)
 		ncf# = curvevalue(cf#,ncf#,5)
 		cx# = cx# + mousemovey()*0.2
 		cy# = cy# + mousemovex()*0.2
		if cx# > 80 then cx# = 80
		if cx# < -80  then cx# = -80
 		ncx# = curveangle(cx#,ncx#,2)
 		ncy# = curveangle(cy#,ncy#,2)
		move camera ncf#
		
 		rotate camera 0,wrapvalue(ncy#-90),0
    	move camera ncr#
 		rotate camera 0,wrapvalue(ncy#+90),0
		rotate camera ncx#,ncy#,0
	return


	Make_Trunk:
		c = 200
		for x = 0 to 32
			c = c + rnd(11)-5
			if c < 0 then c = 0
			if c > 255 then c = 255
			ink rgb(c,c*.95,c*.7),0
			line x,0,x,32
		next x
		get image Image_Trunk,0,0,32,32
		WaitTimer(1)
		
		
		make object box Object_Trunk,1,5,1
		set object cull Object_Trunk,0
		sync
		WaitTimer(1)
		
		
		texture object Object_Trunk,Image_Trunk
		sync
		WaitTimer(1)
	return
	
	
	
	Make_Leaf:
		REM Create Object Leaf
		make object sphere Object_Leaf,1
		color object Object_Leaf,rgb(0,255,0)
		scale object Object_Leaf,25,100,25
		sync
		WaitTimer(1)
		
		REM Get Image Leaf
		x1 = DisplayX/2-40
		y1 = DisplayY/2-40
		x2 = x1+80
		y2 = y1+80
		get image Image_Leaf,x1,y1,x2,y2,1
		REM Red Outline
		ink rgb(255,0,0),0
		box_outline(x1,y1,x2,y2)
		WaitTimer(1)

		REM *************************************
		REM 		Sprites
		REM *************************************
		sprite Sprite_Leaf,0,0,Image_Leaf
		WaitTimer(1)
		REM Red Outline
		hide sprite Sprite_Leaf
		offset sprite Sprite_Leaf,40,60
		ink rgb(255,0,0)
		box_outline(0,0,80,80)
		WaitTimer(1)
		REM Leaf 1
		rotate sprite Sprite_Leaf,45
		paste sprite Sprite_Leaf,40,60
		WaitTimer(1)
		REM Leaf 2
		rotate sprite Sprite_Leaf,-45
		paste sprite Sprite_Leaf,40,60
		WaitTimer(1)
		REM Leaf 3
		rotate sprite Sprite_Leaf,0
		paste sprite Sprite_Leaf,40,60
		WaitTimer(1)
		REM Get Image Leaves
		ink rgb(0,0,255)
		box outline 0,0,80,80
		get image Image_Leaf,0,0,80,80,1
		
		delete object Object_Leaf
	return
	

	Make_Branch:
		scale object Object_Trunk,10,65,10
		sync
		WaitTimer(1)
		
		x = DisplayX/2
		y = (DisplayY/2) - 80
		
		rotate sprite Sprite_Leaf,0
		paste sprite Sprite_Leaf,x,y+i
		
		for lp = 0 to 1
			i = 0
			repeat
				inc i,20+rnd(10)
				if lp = 0
					REM RightSide
					r = 120-rnd(90)
					xi = 5
					else
					REM LeftSide
					r = rnd(90)-120
					xi = -5
				endif
				rotate sprite Sprite_Leaf,r
				paste sprite Sprite_Leaf,x+xi,y+i
				WaitTimer(1)
			until i > 80
		next lp
		
		x1 = DisplayX/2-60
		y1 = DisplayY/2-130
		x2 = x1+120
		y2 = y1+200
		ink rgb(255,0,0)
		get image Image_Branch,x1,y1,x2,y2
		box_outline(x1,y1,x2,y2)
		WaitTimer(1)
		
		scale object Object_Trunk,100,100,100
	return



	Make_Matrix:
		c = 200
		for lpy = 0 to 32
		for lpx = 0 to 32
			z = 60+rnd(60)
			r = z
			g = z+60
			b = z
			if g > 255 then g = 255
			ink rgb(r,g,b),0
			dot lpx,lpy
		next lpx
		next lpy
		get image Image_Land,0,0,32,32
		WaitTimer(1)
		
		make matrix Matrix_Land,20,20,10,10
		prepare matrix texture Matrix_Land,Image_Land,1,1
		position matrix Matrix_Land,-10,0,-10
		
		position camera 0,5,-10
		position mouse DisplayX/2,DisplayY/2
	return



	Make_Tree:
		REM Setup Tree
		position object Object_Trunk,0,2.5,0
		
		REM Mesh Arm
		make mesh from object Mesh_Arm,Object_Trunk
		lock vertexdata for Mesh Mesh_Arm
			a# = get vertexdata position y(0)
			for v = 0 to 23
				x# = get vertexdata position X(v)
				y# = get vertexdata position y(v)
				z# = get vertexdata position z(v)
				if y# = a#
					set vertexdata position v,x#/2.0,y#,z#/2.0
					else
					set vertexdata position v,x#,0,z#
				endif
			next v
		unlock vertexdata
		
		REM Branch Plane
		make object plane Object_Branch,2,8
		set object cull Object_Branch,0
		hide object Object_Branch
		REM Mesh Branch
		make mesh from object Mesh_Branch,Object_Branch
		lock vertexdata for Mesh Mesh_Branch
			a# = get vertexdata position y(0)
			for v = 0 to 23
				x# = get vertexdata position X(v)
				y# = get vertexdata position y(v)
				z# = get vertexdata position z(v)
				if y# < 0
					set vertexdata position v,x#,0,z#
				endif
			next v
		unlock vertexdata
	
		Limb = 0
		Build_Tree(5,0,0,4)
		
		
		set object cull Object_Trunk,0
		set object transparency Object_Trunk,1
		
	return







Function Build_Tree(LP,LimbParent,Node,MaxNode)
	Radius = 360/LP
	for lp1 = 1 to LP
		inc Limb
		
		if Node < MaxNode
			REM Wood
			Mesh_Tree = Mesh_Arm
			Image_Tree = Image_Trunk
			else
			REM Leaf
			Mesh_Tree = Mesh_Branch
			Image_Tree = Image_Branch
		endif
		
		add limb Object_Trunk, Limb, Mesh_Tree
		texture limb Object_Trunk,Limb,Image_Tree
		link limb Object_Trunk,LimbParent,Limb
		
		if LimbParent = 0
			offset limb Object_Trunk,Limb,0,2.5,0
			else
			x# = LIMB OFFSEt X(Object_Trunk,LimbParent)
			y# = LIMB OFFSEt Y(Object_Trunk,LimbParent)
			z# = LIMB OFFSEt Z(Object_Trunk,LimbParent)
			offset limb Object_Trunk,Limb,x#,y#,z#
		endif
		
		REM First Limb
		if Limb = 1
			scale limb Object_Trunk,Limb,100,100,100
			Radius = 90
		endif
		
		if Limb > 1
			y# = (Radius+rnd(10)-5)*lp1
			rotate limb Object_Trunk,Limb,20+rnd(45),y#,0
			if Node < MaxNode
				REM Wood
				scale limb Object_Trunk,Limb,80-Node*10,80,80-Node*10
				else
				REM Leaf
				scale limb Object_Trunk,Limb,150,75,150
			endif
		endif
		
		if Node =< MaxNode
			Build_Tree(3,Limb,Node+1,MaxNode)
		endif
		
	next lp1
	
	if rnd(100) = 0
		sync
		WaitTimer(1)
	endif
EndFunction




Function WaitTimer(t)
	set current bitmap 0
	t = timer()+t*WaitSpeed
	ink rgb(255,255,255),0
	repeat
		copy bitmap 1,0
		text 0,0,"Wait: "+str$((t-timer()))
		sync
		if spacekey()
			if KeyS = 0 then t = -1
			KeyS = 1
			else
			KeyS = 0
		endif
	until Timer() > t
	set current bitmap 1
EndFunction


Function Box_Outline(x1,y1,x2,y2)
	line x1,y1,x2,y1
	line x1,y1,x1,y2
	line x2,y1,x2,y2
	line x1,y2,x2,y2
EndFunction

REM Wait Speed used to see the process
#constant WaitSpeed         500

REM Display
#constant DisplayX         800
#constant DisplayY         600
set display mode DisplayX,DisplayY,16,1
sync on
sync rate 0
color backdrop rgb(0,0,255)
set image colorkey 0,0,255
autocam off
position camera 0,0,-10
REM Bitmap
create bitmap 1,DisplayX,DisplayY

#constant Matrix_Land         1

#constant Object_Trunk         2
#constant Object_Leaf         3
#constant Object_Branch         4

#constant Object_Tree         100

#constant Mesh_Trunk         2
#constant Mesh_Branch         4
#constant Mesh_Arm            5

#constant Image_Land         11
#constant Image_Trunk         12
#constant Image_Leaf         13
#constant Image_Branch         14

#constant Sprite_Leaf         23

global KeyS
global Limb

REM Subs
gosub Make_Leaf
gosub Make_Trunk
gosub Make_Branch
gosub Make_Matrix
gosub Make_Tree


set current bitmap 0
delete bitmap 1

do
   gosub Handle_Camera
   ink rgb(255,255,255),0
   text 0,0,str$(screen fps())
   text 0,20,"WASD and Mouse"
   sync
loop




   Handle_Camera:
      REM Control Camera
       cr# = 0
       cf# = 0
      if KEYSTATE(32)=1 then cr# = -1
      if KEYSTATE(30)=1 then cr# = 1
      if KEYSTATE(17)=1 then cf# = 1
      if KEYSTATE(31)=1 then cf# = -1

       ncr# = curvevalue(cr#,ncr#,5)
       ncf# = curvevalue(cf#,ncf#,5)
       cx# = cx# + mousemovey()*0.2
       cy# = cy# + mousemovex()*0.2
      if cx# > 80 then cx# = 80
      if cx# < -80  then cx# = -80
       ncx# = curveangle(cx#,ncx#,2)
       ncy# = curveangle(cy#,ncy#,2)
      move camera ncf#

       rotate camera 0,wrapvalue(ncy#-90),0
       move camera ncr#
       rotate camera 0,wrapvalue(ncy#+90),0
      rotate camera ncx#,ncy#,0
   return


   Make_Trunk:
      c = 200
      for x = 0 to 32
         c = c + rnd(11)-5
         if c < 0 then c = 0
         if c > 255 then c = 255
         ink rgb(c,c*.95,c*.7),0
         line x,0,x,32
      next x
      get image Image_Trunk,0,0,32,32
      WaitTimer(1)


      make object box Object_Trunk,1,5,1
      set object cull Object_Trunk,0
      sync
      WaitTimer(1)


      texture object Object_Trunk,Image_Trunk
      sync
      WaitTimer(1)
   return



   Make_Leaf:
      REM Create Object Leaf
      make object sphere Object_Leaf,1
      color object Object_Leaf,rgb(0,255,0)
      scale object Object_Leaf,25,100,25
      sync
      WaitTimer(1)

      REM Get Image Leaf
      x1 = DisplayX/2-40
      y1 = DisplayY/2-40
      x2 = x1+80
      y2 = y1+80
      get image Image_Leaf,x1,y1,x2,y2,1
      REM Red Outline
      ink rgb(255,0,0),0
      box_outline(x1,y1,x2,y2)
      WaitTimer(1)

      REM *************************************
      REM       Sprites
      REM *************************************
      sprite Sprite_Leaf,0,0,Image_Leaf
      WaitTimer(1)
      REM Red Outline
      hide sprite Sprite_Leaf
      offset sprite Sprite_Leaf,40,60
      ink rgb(255,0,0),0
      box_outline(0,0,80,80)
      WaitTimer(1)
      REM Leaf 1
      rotate sprite Sprite_Leaf,45
      paste sprite Sprite_Leaf,40,60
      WaitTimer(1)
      REM Leaf 2
      rotate sprite Sprite_Leaf,-45
      paste sprite Sprite_Leaf,40,60
      WaitTimer(1)
      REM Leaf 3
      rotate sprite Sprite_Leaf,0
      paste sprite Sprite_Leaf,40,60
      WaitTimer(1)
      REM Get Image Leaves
      ink rgb(0,0,255),0
      box_outline(0,0,80,80)
      get image Image_Leaf,0,0,80,80,1

      delete object Object_Leaf
   return


   Make_Branch:
      scale object Object_Trunk,10,65,10
      sync
      WaitTimer(1)

      x = DisplayX/2
      y = (DisplayY/2) - 80

      rotate sprite Sprite_Leaf,0
      paste sprite Sprite_Leaf,x,y+i

      for lp = 0 to 1
         i = 0
         repeat
            inc i,20+rnd(10)
            if lp = 0
               REM RightSide
               r = 120-rnd(90)
               xi = 5
               else
               REM LeftSide
               r = rnd(90)-120
               xi = -5
            endif
            rotate sprite Sprite_Leaf,r
            paste sprite Sprite_Leaf,x+xi,y+i
            WaitTimer(1)
         until i > 80
      next lp

      x1 = DisplayX/2-60
      y1 = DisplayY/2-130
      x2 = x1+120
      y2 = y1+200
      ink rgb(255,0,0),0
      get image Image_Branch,x1,y1,x2,y2
      box_outline(x1,y1,x2,y2)
      WaitTimer(1)

      scale object Object_Trunk,100,100,100
   return



   Make_Matrix:
      c = 200
      for lpy = 0 to 32
      for lpx = 0 to 32
         z = 60+rnd(60)
         r = z
         g = z+60
         b = z
         if g > 255 then g = 255
         ink rgb(r,g,b),0
         dot lpx,lpy
      next lpx
      next lpy
      get image Image_Land,0,0,32,32
      WaitTimer(1)

      make matrix Matrix_Land,20,20,10,10
      prepare matrix texture Matrix_Land,Image_Land,1,1
      position matrix Matrix_Land,-10,0,-10

      position camera 0,5,-10
      position mouse DisplayX/2,DisplayY/2
   return



   Make_Tree:
      REM Setup Tree
      position object Object_Trunk,0,2.5,0

      REM Mesh Arm
      make mesh from object Mesh_Arm,Object_Trunk
      lock vertexdata for Mesh Mesh_Arm
         a# = get vertexdata position y(0)
         for v = 0 to 23
            x# = get vertexdata position X(v)
            y# = get vertexdata position y(v)
            z# = get vertexdata position z(v)
            if y# = a#
               set vertexdata position v,x#/2.0,y#,z#/2.0
               else
               set vertexdata position v,x#,0,z#
            endif
         next v
      unlock vertexdata

      REM Branch Plane
      make object plane Object_Branch,2,8
      set object cull Object_Branch,0
      hide object Object_Branch
      REM Mesh Branch
      make mesh from object Mesh_Branch,Object_Branch
      lock vertexdata for Mesh Mesh_Branch
         a# = get vertexdata position y(0)
         for v = 0 to 23
            x# = get vertexdata position X(v)
            y# = get vertexdata position y(v)
            z# = get vertexdata position z(v)
            if y# < 0
               set vertexdata position v,x#,0,z#
            endif
         next v
      unlock vertexdata

      Limb = 0
      Build_Tree(5,0,0,4)


      set object cull Object_Trunk,0
      set object transparency Object_Trunk,1

   return







Function Build_Tree(LP,LimbParent,Node,MaxNode)
   Radius = 360/LP
   for lp1 = 1 to LP
      inc Limb

      if Node < MaxNode
         REM Wood
         Mesh_Tree = Mesh_Arm
         Image_Tree = Image_Trunk
         else
         REM Leaf
         Mesh_Tree = Mesh_Branch
         Image_Tree = Image_Branch
      endif

      add limb Object_Trunk, Limb, Mesh_Tree
      texture limb Object_Trunk,Limb,Image_Tree
      link limb Object_Trunk,LimbParent,Limb

      if LimbParent = 0
         offset limb Object_Trunk,Limb,0,2.5,0
         else
         x# = LIMB OFFSEt X(Object_Trunk,LimbParent)
         y# = LIMB OFFSEt Y(Object_Trunk,LimbParent)
         z# = LIMB OFFSEt Z(Object_Trunk,LimbParent)
         offset limb Object_Trunk,Limb,x#,y#,z#
      endif

      REM First Limb
      if Limb = 1
         scale limb Object_Trunk,Limb,100,100,100
         Radius = 90
      endif

      if Limb > 1
         y# = (Radius+rnd(10)-5)*lp1
         rotate limb Object_Trunk,Limb,20+rnd(45),y#,0
         if Node < MaxNode
            REM Wood
            scale limb Object_Trunk,Limb,80-Node*10,80,80-Node*10
            else
            REM Leaf
            scale limb Object_Trunk,Limb,150,75,150
         endif
      endif

      if Node =< MaxNode
         Build_Tree(3,Limb,Node+1,MaxNode)
      endif

   next lp1

   if rnd(100) = 0
      sync
      WaitTimer(1)
   endif
EndFunction




Function WaitTimer(t)
   set current bitmap 0
   t = timer()+t*WaitSpeed
   ink rgb(255,255,255),0
   repeat
      copy bitmap 1,0
      text 0,0,"Wait: "+str$((t-timer()))
      sync
      if spacekey()
         if KeyS = 0 then t = -1
         KeyS = 1
         else
         KeyS = 0
      endif
   until Timer() > t
   set current bitmap 1
EndFunction


Function Box_Outline(x1,y1,x2,y2)
   line x1,y1,x2,y1
   line x1,y1,x1,y2
   line x2,y1,x2,y2
   line x1,y2,x2,y2
EndFunction