Munching squares: Difference between revisions

 

=={{header|Ada}}==

{{libheader|GtkAda}}

Uses the Cairo component of GtkAda to create and save as png

with Cairo.Png; use Cairo.Png;

with Cairo.Image_Surface; use Cairo.Image_Surface;

Status := Write_To_Png (Surface, "AdaXorPattern.png");

pragma Assert (Status = Cairo_Status_Success);

 

=={{header|C}}==

#include <stdio.h>

#include <math.h>

 

return 0;

 

=={{header|C sharp}}==

using System.Drawing.Imaging;

using System.Linq;

}

}

[[File:XORPatternCSharp.png|XORPatternCSharp.png]]

 

=={{header|D}}==

 

enum width = 512, height = 512;

 

auto f = File("xor_pattern.ppm", "wb");

f.writefln("P6\n%d %d\n255", width, height);

}

 

 

 

 

 

 

=={{header|Go}}==

 

import (

png.Encode(f, g)

f.Close()

 

=={{header|Icon}} and {{header|Unicon}}==

[[File:XORimage-unicon-GR512.png|thumb|right|512x512 bit green and red]]

 

procedure main(A) #: XOR graphic

until Event() == &lpress # wait for left button to quit

close(&window)

 

{{libheader|Icon Programming Library}}

 

=={{header|J}}==

 

=={{header|Java}}==

This example will repeat the pattern if you expand the window.

import java.awt.Graphics;

 

new XorPattern();

}

[[Image:Xor pattern Java.png|200px]]

 

 

 

 

 

 

 

 

 

end

 

Table[Table[

FromDigits[BitXor[IntegerDigits[x, 2, 8], IntegerDigits[y, 2, 8]],

[[File:xorpattern3.png|Mathematica output #1|200px]]

 

[[File:xorpattern4.png|Mathematica output #2|200px]]

 

=={{header|MATLAB}}==

[x,y] = meshgrid([0:size-1]);

 

colormap bone(size);

image(c);

 

=={{header|OCaml}}==

 

 

let () =

done;

done;

 

Run with:

$ ocaml graphics.cma xor_pattern.ml

 

[[File:xor_pattern_ocaml.png|OCaml output|200px]]

 

=={{header|Octave}}==

[x,y] = meshgrid([0:size-1]);

 

colormap(jet(size));

image(c);

 

=={{header|Perl}}==

 

 

my $color = $img->colorAllocate( abs(255 - $x - $y), (255-$x) ^ $y , $x ^ (255-$y));

$img->setPixel($x, $y, $color);

}

 

 

=={{header|PHP}}==

 

$w = 256;

 

imagepng($im);

[[File:xor_pattern_php.png|PHP output|200px]]

=={{header|Prolog}}==

Works with SWI-Prolog and his GUI XPCE.

new(D, window('XOR Pattern')),

send(D, size, size(512,512)),

send(D, display, Bmp, point(0,0)),

send(D, open).

[[File:Prolog_xor_pattern.png|200px]]

 

=={{header|Python}}==

{{libheader|PIL}}

 

image = Image.new("RGB", (256, 256))

 

del drawingTool

[[File:PythonXORPic.png|Sample produced by the above code|200px]]

 

=={{header|Ruby}}==

Uses [[Raster graphics operations/Ruby]]

[[File:xorpattern_rb.png|thumb|right|Sample output from Ruby program]]

 

class Pixmap

 

img = Pixmap.xor_pattern(384, 384, RGBColour::RED, RGBColour::YELLOW)

 

=={{header|Tcl}}==

 

proc xorImage {img table} {

set img [image create photo -width 512 -height 512]

xorImage $img [mkTable 0 255 64 192 255 0]