beginfig(0) for i=0 upto 100: fill unitsquare scaled ((100-i)*0.1mm) rotated 31i withcolor (0.01i)[green,blue]; endfor; endfig;