TheGameCreators - CodeBase - Earth Landscape

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 25th Nov 2004 14:38

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This application gives Earth surface statistics.

Full Description

Document included.<br /> -Please feel free posting your tools.<br /> -Thank you.<br /> <br />

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: earth landscape

Rem Created: 21/11/2004 3:14:27 Î¼Î¼

Rem ***** Main Source File *****

global image_x,image_y,image_x2,image_y2,accuracy,pixel_step

global x,y,land_pixels,sea_pixels,sum_pixels,land,sea,shore_pixels,shore

global Width=720

global Height=600

global Depth=32

SET DISPLAY MODE Width, Height, Depth

hide mouse

image_x=720

image_y=300

set cursor 0, (Height/2)+0:print "Earth landscape statistics :"

set cursor 0, (Height/2)+15:print " "

set cursor 0, (Height/2)+30:input "Please enter accuracy (10% - 100%): ",accuracy

earth()

end

function earth()

load image "earth.jpg" ,1

cls

paste image 1,0,0

if (POINT(x,y)=rgb (204,204,204))

land_pixels=land_pixels+1

else

if (POINT(x,y)=rgb (254,254,254))

sea_pixels=sea_pixels+1

else

shore_pixels=shore_pixels+1

endif

set cursor 0 ,Height/2:print "Land pixels: ",land_pixels

set cursor 0, (Height/2)+15:print "Sea pixels: ",sea_pixels

set cursor 0, (Height/2)+30:print "Shore pixels: ",shore_pixels

set cursor 0 ,(Height/2)+45:print "x: ",x

set cursor 0, (Height/2)+60:print "y: ",y

set cursor 0, (Height/2)+75:print "Pixel color: ",point(x,y)

sum_pixels=land_pixels+sea_pixels+shore_pixels

if (sum_pixels=0)

land=(100*land_pixels)/1

sea=(100*sea_pixels)/1

shore=(100*shore_pixels)/1

else

land=(100*land_pixels)/sum_pixels

sea=(100*sea_pixels)/sum_pixels

shore=(100*shore_pixels)/sum_pixels

endif

set cursor 0 ,(Height/2)+90:print "Land: ",land," %"

set cursor 0, (Height/2)+105:print "Sea: ",sea," %"

set cursor 0, (Height/2)+120:print "Shore: ",shore," %"

pixel_step=100/accuracy

x=x+pixel_step

if (x>Width) then:y=y+pixel_step:x=0

if (y>300) then:exit

loop

if (y>300) then:exit

loop

set cursor 0, (Height/2)+135:print "Shore: Land along the edge of the sea or lake."

set cursor 0, (Height/2)+150:print "'Shore' factor is also land next to large natural stream of water, land next to rivers."

set cursor 0, (Height/2)+165:print "Land and sea statistics:"

set cursor 0, (Height/2)+180:print "Land + shore:",land+shore

set cursor 0, (Height/2)+195:print "Sea:",sea

set cursor 0, (Height/2)+210:print "Map shows the country borders and not rivers."

set cursor 0, (Height/2)+225:print "Please feel free replacing the map with a more accurate one, and modify the program."

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - Earth Landscape

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments