Sorry your browser is not supported!

;/ Project: DarkCLOUDSample
;/ Created: Sunday, June 28, 2009

XIncludeFile "..\..\include\darkgdk\core\h.DarkGDK.pb"
XIncludeFile "..\..\include\darkgdk\plugins\h.DarkGDK-Plugins.pb"
XIncludeFile "..\..\include\h.InitDarkGDK.pb"

If Not InitDarkGDK("gdkengine.dll","..\..\..\..\")
  End
EndIf

;/ Show the DarkGDK render window
OpenWindow(0,0,0,640,480,"DarkGDK - Game Developer's Toolkit",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
dbOpenScreen(WindowID(0),0,0,640,480)

;/ Set the current directory
SetCurrentDirectory("..\..\..\..\shared\plugins\dark-clouds")

;/ Please wait
dbSetTextFont("verdana")
s.s="generating clouds...please wait"
dbCenterText(dbScreenWidth()/2,dbScreenHeight()/2,s.s)
dbSync()

;/ init app at 60fps
dbSyncRate(60)

;/ half-fill the sky With clouds
DC_SetCloudy(0.5)

;/ clouds at 3 km
DC_SetCloudHeight(3)

;/ set sky brightness To 1
brightness.f=1.0
DC_SetBrightness(brightness.f)

;/ adjust brightness based on time of day
DC_SetAutoBrightness(1)

;/ set wind To 30 mph at 270 degrees (heading west)
DC_SetWind(30,270)

;/ init With texture number 1, And number of keyframes per day
DC_Init(1,10)

;/ put clouds at 3km altitude
DC_SetCloudHeight(3.0)

;/ starting at 7am
time.f=7.0

;/ the update command creates the cloud texture
DC_Update(time.f)

;/ show texture 1 as the backdrop
dbTextureBackdrop(1)

;/ create a 3D object in the scene
dbLoadObject("pelican.dbo",0,#kGDK_3D_DBPro,1)
dbScaleObject(1,1000,1000,1000)
dbSetNormalizationOn()

;/ place camera For best view
dbPositionCamera(0,50,-200)

;/ Main loop
Repeat
  ;/ Step through the day
  time.f=time.f+100.0/(60.0*60.0*60.0)
  
  ;/ update clouds
  DC_Update(time.f)
  
  ;/ use mouselook on camera
  mx.f=dbMouseMoveX()/10.0
  my.f=dbMouseMoveY()/10.0
  If dbMouseClick()<>0
 	 dbRotateCamera(dbCameraAngleX()+my.f,dbCameraAngleY()+mx.f,0)
  EndIf
  
	If dbUpKey()=1
	  dbMoveCamera(1.0)
	EndIf
	If dbDownKey()=1
	  dbMoveCamera(-1.0)
	EndIf
	If dbLeftKey()=1
	  dbMoveCamera(-1.0)
	EndIf
	If dbRightKey()=1
	  dbMoveCamera(1.0)
	EndIf

  ;/ rotate the object
  dbYRotateObject(1,a.f)
  a.f+0.1
  
  ;/ apply a real-time clouds As a cube map on the object
  DC_MakeCubeMap(128,2,3,4,5,6,7)
  dbSetCubeMappingOn(1,2,3,4,5,6,7)
  
  ;/ update screen
  dbSync()
Until WindowEvent()=#PB_Event_CloseWindow

dbCloseScreen()

#include <darkgdk.h>
#include <darkgdk-plugins.h>
#include <initDarkGDK.h>
#include <simpleWindow.h>
#include <math.h>

using namespace std;

int main()
{
	int iGraphicWidth  = GetSystemMetrics(SM_CXSCREEN);
	int iGraphicHeight = GetSystemMetrics(SM_CYSCREEN);
			   
	// Start DarkGDK
	if (!initDarkGDK("gdkengine.dll")) return -100;

	// DarkGDK
	dbAutoCamOff();
	HWND hScreen = openWindow(0,
			0,
			iGraphicWidth,
			iGraphicHeight,
			"Testing", 
			WS_OVERLAPPED | WS_CLIPSIBLINGS | WS_CAPTION | WS_SYSMENU | WS_CLIPCHILDREN,
			true);

	dbOpenScreen(hScreen, 0, 0, iGraphicWidth, iGraphicHeight);
	ShowWindow(hScreen, SW_SHOW);
	dbSyncRate(60);

	// DarkCloud
	DC_SetCloudy(0.5f);
	DC_SetCloudHeight(3.0f);
	DC_SetBrightness(1.0f);
	DC_SetAutoBrightness(1);
	DC_SetWind(30, 270);
	DC_Init(1, 10);
	DC_SetCloudHeight(3.0f);
	DC_Update(7.0f);
	
	dbTextureBackdrop(1);

	float iTime = 7.0f;

	while (windowEvent() != WM_CLOSE)
	{
		iTime = iTime + 100.0 / (60.0f * 60.0f * 60.0f);

		DC_Update(iTime);
		DC_MakeCubeMap(128,1,2,3,4,5,6);
		dbSetCubeMappingOn(1,1,2,3,4,5,6);
		dbSync();
	}

	return 0;

}