module ProgInit (setInitObj) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import Data.IORef
import States

------BObjectたちの初期状態
setInitObj :: [BObject]
setInitObj = 
  let	accele = (Vector3 (0.0::GLfloat) (-0.0000001) 0.0)
	velocity = (Vector3 (0.0001::GLfloat) 0.0  0.0)
	oposition = (Vector3 (0.9::GLfloat) 0.1  0.0) 
	texgroupID = (TexObjDataID 0 0)
	velocity2 = (Vector3 (-0.00007::GLfloat) 0.0  0.0)	
	oposition2 = (Vector3 (0.2::GLfloat) 0.4  0.0)
	texgroupID2 = (TexObjDataID 1 0)
	velocity3 = (Vector3 (-0.00008::GLfloat) 0.0  0.0)	
	oposition3 = (Vector3 (-0.2::GLfloat) 0.3  0.0)
	texgroupID3 = (TexObjDataID 2 0)
	bObjectWidth = 0.15	:: GLfloat
 	bObj = BObject oposition velocity accele bObjectWidth FreeFall texgroupID
	bObj2 = BObject oposition2 velocity2 accele bObjectWidth FreeFall texgroupID2
	bObj3 = BObject oposition3 velocity3 accele bObjectWidth FreeFall texgroupID3
  in 	[bObj , bObj2 , bObj3]