OpenEuphoria

Re: Stellar Project

• Posted by gwalters Nov 18, 2012
• 1594 views

Didn't find anything there that I could use.

This code opens a blank window but If I understand how creatDIB works I should get an object in the window. Any help would be appreciated.

 
global constant starWindow  = create(Window,"",0,sx + cx*10,sy + cy*3+5,600,635,0) 
       
				--Bitmap2 = create( Bitmap, "Bitmap", starWindow, sx-cx*7, cy*10, 0, 0, 0 ) 
				 
pal =   { 
		{  0,  0,  0}, 
		{100,100,100}, 
		{125,125,125}, 
		{255,255,255} 
		} 
		 
starTable = { 
		{ 
		{1,3,3,1}, 
	    {2,3,3,2}, 
	    {2,3,3,2}, 
	    {1,2,2,1} 
	    }, 
	     
	 	{ 
		{1,2,2,1}, 
		{2,2,2,2}, 
		{2,2,2,2}, 
		{1,2,2,1} 
		}, 
		 
		{ 
		{0,1,2,2,1,0}, 
		{1,2,3,3,2,1}, 
		{2,3,3,3,3,2}, 
		{2,3,3,3,3,2}, 
		{1,2,3,3,2,1}, 
		{0,1,2,2,1,0} 
		}, 
		 
		{ 
		{0,2,3,3,2,0}, 
		{2,3,3,3,3,2}, 
		{3,3,3,3,3,3}, 
		{3,3,3,3,3,3}, 
		{2,3,3,3,3,2}, 
		{0,2,3,3,2,0} 
		}, 
		 
		{ 
		{0,1,2,3,3,2,1,0}, 
		{1,2,3,3,3,3,2,1}, 
		{2,3,3,3,3,3,3,2}, 
		{3,3,3,3,3,3,3,3}, 
		{3,3,3,3,3,3,3,3}, 
		{2,3,3,3,3,3,3,2}, 
		{1,2,3,3,3,3,2,1}, 
		{0,1,2,3,3,2,1,0} 
		} 
		}	 
				 
          hBitmap = createDIB( {pal, starTable[5]} ) 
 
          drawBitmap(starWindow,hBitmap, 100,100) 
                 
         
    WinMain(starWindow, Normal)