Sorry your browser is not supported!

// Dark GDK - The Game Creators - www.thegamecreators.com

// the wizard has created a very simple 3D project that uses Dark GDK
// it can be used as a starting point in making your own 3D games

// whenever using Dark GDK you must ensure you include the header file
#include "DarkGDK.h"

// the main entry point for the application is this function
void DarkGDK ( void )
{
	dbSetWindowOn();
dbSyncOn();
dbSyncRate (60);
//` Create the ground.
dbSetGlobalShadowsOn();
dbMakeObjectPlain (1, 1024, 1024);
dbRotateObject (1, 270, 0, 0);
dbColorObject (1, dbRgb( 128, 128, 128 ));

//` Create the sphere to simulate the sun position view.
dbMakeObjectSphere (2,32);

//` Create all objects that will have shadows. [ It work with instances !!!]

    dbMakeObjectCube (5, 50);
    dbSetShadowShadingOn (5, -1, 128, 1);



  dbPositionObject (5, 0,50,0);
  float XAngle;
  float XPos ; 
  float YPos ;
  float Percent ;
  float ax;
  float ay;

while (LoopGDK())
{

  // Calculate the position of the sun and of the shadow
  XPos = dbCos( XAngle ) * 2048;
  YPos = dbSin( XAngle ) * 2048;
  Percent = ( 204 - ( 2048 - YPos ) / 10.0 );
  if (Percent < 0.0)
	Percent = 0.0;

  XAngle = dbWrapValue( XAngle + 0.1 );
  // Position the shadow
  dbSetShadowPosition (-1, XPos, YPos, 10.0);
  // Change the color and opacity of the shadow during the day cycle.
  dbSetGlobalShadowColor (16, 16, 32,  Percent);
  // Position the sun object.
  dbPositionObject (2, 0, YPos, 0.0);




  // Camera control here.
   ax=dbWrapValue(ax+dbMouseMoveY()*0.2);
   ay=dbWrapValue(ay+dbMouseMoveX()*0.2);
  dbRotateCamera (ax,ay,0);
  dbMoveCamera ((dbUpKey()-dbDownKey())*5);
  dbSync();
	}

	// before quitting delete our objects
	for ( int i = 1; i < 50; i++ )
		dbDeleteObject ( i );

	// and now everything is ready to return back to Windows
	return;
}

/*
###########################################################
# DGDK 2008 - SET SHADOW SHADING ON EXAMPLE               #
#                                            			  #
# Shadows cannot be seen at certain distances			  #
# Shadows cause artifacts from certain angles             #
# Command parameters are obsolete for DBPro migrations    #
#                                             			  #
###########################################################
*/

#include "DarkGDK.h"	

void DarkGDK  ( void )	
{
	char text_line[256];	
	strcpy(text_line, "SET SHADOW SHADING ON - DGDK NOV08");

	//Make two objects that will cast shadow
	dbMakeObjectSphere(1, 10.0f);	
	dbPositionObject  (1, 0.0f, 0.0f, 0.0f);	

	dbMakeObjectCube(2, 50.0f);	
	dbPositionObject(2, 0.0f, 0.0f, 35.0f);	

	//Make a 'ground' plane, just to see shadow result
	dbMakeObjectPlane (3, 1000.0f, 1000.0f);	
	dbRotateObject    (3, 90.0f, 0.0f, 0.0f);
	dbPositionObject  (3, 0.0f, -100.0f, 0.0f);	


	//Set up light 0 for shadow casting
	dbSetPointLight(0, 10, 10, -10);
	dbSetLightRange(0, 50000);	

	//Position camera
	dbPositionCamera(-75, 0, -50);
	dbPointCamera   (0, 0, 30);

	//Turn on shadows
	dbSetShadowShadingOn(1);		
	dbSetShadowShadingOn(2);
	
	//dbSetShadowShadingOn RAISES AN ERROR WHEN USING ADDITIONAL PARAMETERS
	//dbSetShadowShadingOn(2,2,0.1f,1);	
	
	while (LoopGDK() )	
	{	
		dbSetCursor(0,0);
		dbPrint(text_line);
		dbPrint(dbStr(dbScreenFPS()));		

		dbRotateObject(1, dbObjectAngleX(1)+0.1f, 0.0f, 0.0f);			
		
		dbControlCameraUsingArrowKeys(0, 5, 5);
		
		dbSync();
	}
}

  //Position the sun object.
  dbPositionObject (2, 0, YPos, 0.0);

  //Position light 0 for shadow casting (same position as the sun)
  dbSetPointLight  (0, 0, YPos, 0.0);

dbSetShadowShadingOn (5, -1, 128, 1);

Sync On : sync Rate 60
` Create the ground.
Make Object Plain 1, 1024, 1024
Rotate Object 1, 270, 0, 0
Color Object 1, Rgb( 128, 128, 128 )

` Create the sphere to simulate the sun position view.
Make Object Sphere 2,32

` Create all objects that will have shadows. [ It work with instances !!!]
For XLoop = 3 to 128
  If XLoop = 3
    Make Object Cube XLoop, Rnd( 16 ) + 8
    Set Shadow Shading On XLoop, -1, 128, 1
   Else
      Instance Object XLoop, 3
   Endif
  Position Object XLoop, Rnd( 1024 ) - 512, Object size Y( XLoop ) / 2.0, Rnd( 1024 ) - 512
 Next XLoop

Repeat

  ` Calculate the position of the sun and of the shadow
  XPos# = Cos( XAngle# ) * 2048 : YPos# = Sin( XAngle# ) * 2048
  Percent# = ( 204 - ( 2048 - YPos# ) / 10.0 )
  If Percent# < 0.0 : Percent# = 0.0 : Endif
  XAngle# = WrapValue( XAngle# + 0.1 )
  ` Position the shadow
  Set Shadow Position -1, XPos#, YPos#, 10.0
  ` Change the color and opacity of the shadow during the day cycle.
  Set Global Shadow Color 16, 16, 32,  Percent#
  ` Position the sun object.
  Position Object 2, Xpos#, YPos#, 0.0

  rem Camera control here.
  ax#=wrapvalue(ax#+mousemovey()*0.2)
  ay#=wrapvalue(ay#+mousemovex()*0.2)
  rotate camera ax#,ay#,0
  move camera (upkey()-downkey())*5
  Sync
 Until EscapeKey() = 1