Anonymous user
Munching squares: Difference between revisions
Added zkl
(Added Scala) |
(Added zkl) |
||
Line 947:
]</lang>
[[File:MunchXPL0.png]]
=={{header|zkl}}==
Uses the PPM class from http://rosettacode.org/wiki/Bitmap/Bresenham%27s_line_algorithm#zkl
{{trans|XPL0}}
For a kaleidoscopic image, play with coolness.
<lang zkl>fcn muncher{
bitmap:=PPM(256,256);
coolness:=(1).random(0x10000); // 55379, 18180, 40, 51950, 57619, 43514, 65465
foreach y,x in ([0 .. 255],[0 .. 255]){
b:=x.bitXor(y); // shades of blue
// rgb:=b*coolness; // kaleidoscopic image
// rgb:=(b*coolness + b)*coolness + b; // more coolness
rgb:=(b*0x10000 + b)*0x10000 + b; // copy ADA image
bitmap[x,y]=rgb;
}
bitmap.write(File("foo.ppm","wb"));
}();</lang>
{{out}}
Same as the ADA image:
[[Image:AdaXorPattern.png|Ada Output|200px]]
{{omit from|GUISS}}
| |||