Sorry your browser is not supported!

// Project: himnotic 
// Created: 2018-11-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "himnotic" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

for i= 1 to 1000
   //ink rgb(rnd(255),rnd(255),rnd(255))
   //dot rnd(100),rnd(100)
   w=random(0,100)
   h=random(0,100)
   col=makecolor(random(0,255),random(0,255),random(0,255))
   drawline(w,h,w,h,col,col)
next i
getimage(1,0,0,100,100)

for i= 1 to 160
	createobjectsphere(i,i*0.05,20,20)
	setobjectimage(i,1,0)
	SetObjectTransparency(i,1)
next

setcameraposition(1,0,3,-6)
SetCameraRange(1,0.01,2000)
do
     //if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.3 )  // cursor up
	 //if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.3 ) // cursor down
  g#=g#+0.002
  
  setobjectrotation( 1,g#,g#,g#)
  for i= 2 to 160
	  setobjectrotation(i,i*g#,i*g#,i*g#)
	  setobjectscale(i,getobjectsizemaxx(i)-g#/2,getobjectsizemaxx(i)-g#/2,getobjectsizemaxx(i)-g#/2)
  next i
   
    Sync()
loop