gfx_init("vis",1024,768);

gfx_clear=-1;

function frame()
(
  c=gfx_getchar();
  c == ' ' ? (mode += 1) >= 2 ? mode=0;
  t=time_precise();
  zsc = 0.01*cos(t*0.73);
//  gfx_x=gfx_y=0; gfx_blurto(gfx_w,gfx_h);
  gfx_blit(-1,0,0.3*(sin(t*0.3)^2),gfx_w*zsc,gfx_h*zsc, gfx_w*(1-2*zsc),gfx_h*(1-2*zsc), 0,0,gfx_w,gfx_h);
  gfx_r=(cos(t)+1.0)*0.5;
  gfx_g=(cos(t*1.74)+1.0)*0.5;
  gfx_b=(cos(t*1.2+0.56)+1.0)*0.5;
  gfx_a=0.15;
  sz=gfx_w*0.03;
  loop(20,
   mode == 1 ?     
     gfx_circle(rand(gfx_w-sz),rand(gfx_h-sz),sz,1) : 
     gfx_rect(rand(gfx_w-sz),rand(gfx_h-sz),sz,sz);
  );


  gfx_update();
  c>=0 && c != 27 ? defer("frame()");
);

frame();