Screensaver

[tintran]

change canvas->Create Actor->Script to

Code: Select all

int loop;
init();
for (loop=0;loop<LINES;loop++)  run();


[EvanBlack]

cool, also instead of using DrawActor event for run(). It would probably be better to switch it to a timer, but there is a noticable pause as the screen saver starts but it stops run from being called more then it has too. Also allows for the lines to scroll smoother and not slow down at certain parts. This is probably dependant of computer, the FPS drop.

[Game A Gogo]

cos, and sin returns values from -1 to 1, so if I add 1 to it, it will give me a value from 0 to 2.
now the multipliers are there so that over time, the lines won't be always the same color!

[tintran]

also if you increment variable tick by 5 or 6 or even 10, you get some really nice gradients.

[tintran]

star field

Code: Select all

#define STARS 1000
#define MAXDEPTH 50
#define SPEED .5
float X[STARS],Y[STARS],Z[STARS],OZ[STARS];
int i;
double midx,midy;
void init()
{
  midx = 1.0*view.width/2;
  midy = 1.0*view.height/2;
  for (i=0;i<STARS;i++)
  {
      X[i] = rand(view.width*MAXDEPTH)-view.width*MAXDEPTH/2;
      Y[i] = rand(view.height*MAXDEPTH)-view.height*MAXDEPTH/2;
      Z[i] = rand(MAXDEPTH)+1;
      OZ[i] = Z[i];
  }
}

void run()
{
 
  for (i=0;i<STARS;i++)
  {
      OZ[i] = Z[i];
      Z[i]-=SPEED;
      if (Z[i]<=0) Z[i] = MAXDEPTH;
  }
 
  for (i=0;i<STARS;i++)
  {
    //erase stars
    setpen(0,0,0,0,1);
    moveto(midx + X[i]/OZ[i],        midy + Y[i]/OZ[i]);
    lineto(midx + X[i]/(OZ[i]+SPEED),midy + Y[i]/(OZ[i]+SPEED));
 
    //draw stars
    setpen(255-Z[i]*5,255-Z[i]*5,255-Z[i]*5,0,1);
    moveto(midx + X[i]/Z[i],        midy + Y[i]/Z[i]);
    lineto(midx + X[i]/(Z[i]+SPEED),midy + Y[i]/(Z[i]+SPEED));
  }
 
}

[Jagmaster]

Awesome!

[jimmynewguy]

Trintran, these look sweet. But your run for the starfield would be faster with this.

Code: Select all

void run()
{
   erase(0, 0, 0, 1);
  for (i=0;i<STARS;i++)
  {
      OZ[i] = Z[i];
      Z[i]-=SPEED;
      if (Z[i]<=0) Z[i] = MAXDEPTH;
  }

  for (i=0;i<STARS;i++)
  {
    //draw stars
    setpen(255-Z[i]*5,255-Z[i]*5,255-Z[i]*5,0,1);
    moveto(midx + X[i]/Z[i],        midy + Y[i]/Z[i]);
    lineto(midx + X[i]/(Z[i]+SPEED),midy + Y[i]/(Z[i]+SPEED));
  }
}

[tintran]

nice, it means i can get rid of OZ as well.

[157pl]

wow thanks i have made multiple things i wished i could use as screen savers but i never thought i could

[157pl]

i made a fiew
the clock uses Hblade's 24 hr clock code

[157pl]

we should put this file extension under the export tab thing so people will know you can do it

[tintran]

bezier curve screen saver

[SuperSonic]

Dude, that's awsome

[tintran]

8 beziers

[tintran]

A higher order bezier curve (4th order, defined by 5 points).
(and a 6th order bezier, defined by 7 points)