// Copyright (c) 1995, Masanao Izumo gopen(300, 300); p = new complex[5]; fg = gcolor("black"); bg = gcolor("white"); gpen(fg); p[0] = complex(50, 50); p[1] = complex(100, 50); p[2] = complex(100, 100); p[3] = complex(50, 100); p[4] = p[0]; gfspline(p, 4); gpen(bg); gpoly(p, 5); gpause(); for(x = 0; x < 150; x++) { gscreen(1); gclear(1); gpen(fg); p[2] += complex(1, 1); gfspline(p, 4); gpen(bg); gpoly(p, 5); gcopy(1, 0); } while(1) { gpause(); if(GEVENT_TYPE == ButtonPress && GEVENT_VALUE == 3) break; if(GEVENT_TYPE == KeyPress) continue; gscreen(1); gclear(1); gpen(fg); p[2] = complex(GPOINTERX, GPOINTERY); gfspline(p, 4); gpen(bg); gpoly(p, 5); gcopy(1, 0); }