// LPRISA // // // Draw a spiral with your eyes closed, lift the pencil? antialias 1 set rseed <time 4> number randoma { set bb 198621 set mm (98621+<time 4>) set bl (rseed*bb+1) set rseed (bl%mm) value (rseed%100) } paper 100 pen 0 set c 5 set bound 4 number exp a b { set result 1 repeat k 1 b { set result (result*a) } value result } command pawz n { repeat i 0 n { } } command points p0 q0 p q color { repeat i p0 p { repeat j q0 q { set [i j] color // pawz (<exp 2 (color/c)>) } } } command drawpts x0 y0 { set x x0 set y y0 repeat n 0 (100/c) { set x0 x set y0 y same? 0 (n % 4) { set y (y0+c*n) } same? 1 (n % 4) { set x (x0+c*n) } same? 2 (n % 4) { set y (y0-c*n) } same? 3 (n % 4) { set x (x0-c*n) } pen (c*n) set xnew (x+(<randoma>%10)) set ynew (y+(<randoma>%10)) line x0 y0 xnew ynew line (x0-1) (y0-1) (xnew-1) (ynew-1) line (x0+1) (y0+1) (xnew+1) (ynew+1) } } drawpts 50 50