set_pixel_size(WINDOW_XSIZE/480) resize(get_screen(), WINDOW_XSIZE, WINDOW_YSIZE) screen = get_screen() xsize = get_xsize(screen) ysize = get_ysize(screen) img = load("Dummy.jpg") start_timer(0) img = new(WINDOW_XSIZE, WINDOW_YSIZE, PIXEL) create_anim(img) f = 1 vsync(1) while f < 300 { colf = get_color(183.5 + 71.5*cos(2*M_PI*f/300), 95.5 - 95.5*cos(2*M_PI*f/300), 105.5 + 41.5*cos(2*M_PI*f/300)) colb = get_color(112, 127.5 + 63.5*cos(2*M_PI*f/300), 127.5 - 63.5*cos(2*M_PI*f/300)) vv = new(24, 1, FLOAT) tt = new(8, 1, INT) clear(colb) set_screen(img) clean(vv) clear(colb) tt[0] = 0 tt[1] = 1 tt[2] = 2 tt[3] = colf tt[4] = -1 tt[5] = 255 i = 0 vv[0] = -50*cos(2*M_PI*f/60) - 43.301*sin(2*M_PI*f/60) vv[1] = -50*sin(2*M_PI*f/60) + 43.301*cos(2*M_PI*f/60) vv[8] = 50*cos(2*M_PI*f/60) - 43.301*sin(2*M_PI*f/60) vv[9] = 50*sin(2*M_PI*f/60) + 43.301*cos(2*M_PI*f/60) vv[16] = 43.301*sin(2*M_PI*f/60) vv[17] = -43.301*cos(2*M_PI*f/60) while (i < 3) { vv[8*i + 2] = 1 vv[8*i + 3] = 0 vv[8*i + 4] = 0 i = i + 1 } triangles3d(vv, tt) set_screen(screen) pack_frame(img) frame() clone_frame(img) img.frame = f f = f + 1 while(get_event()) { if EVT[EVT_TYPE] == EVT_QUIT { halt } } } save(img, "test.gif", FORMAT_GIF)