load-opengl
300 dup display 2d animation

variable points-matrix
variable mask-matrix


: points 1 pack >matrix transpose points-matrix ! ;

# start with the simplest form: a triangle
: reset (1 1 1) points ;


: mask
   1 pack >matrix
   dup matrix:average 1. swap / *
   mask-matrix ! ;

(1 3 3 1) mask reset

: x
	points-matrix @
	  dup mask-matrix @ matrix:fir
	  matrix:interlace
	points-matrix ! ;

: drawit
    .1 scale
    points-matrix @ 
    matrix:polar
    1 pack "v" lineloop ;

' drawit is drawer

interactive