Introduction
Statistics
Contact
Development
Disclaimer
Help
ftp.icm.edu.pl home page
size(200);
import palette;
int n=256;
real ninv=2pi/n;
pen[][] v=new pen[n][n];
for(int i=0; i < n; ++i)
for(int j=0; j < n; ++j)
v[i][j]=rgb(0.5*(1+sin(i*ninv)),0.5*(1+cos(j*ninv)),0);
image(v,(0,0),(1,1));