Munching squares: Difference between revisions

Content added Content deleted
Line 328: Line 328:
-> B is (V * 4096) mod 65536
-> B is (V * 4096) mod 65536
; B is (65536 - (V * 4096)) mod 65536),
; B is (65536 - (V * 4096)) mod 65536),
send(Img, pixel(I, J, colour(@default, R, G, B))))))),
send(Img, pixel(I, J, colour(@default, R, G, B))))))),


new(Bmp, bitmap(Img)),
new(Bmp, bitmap(Img)),
Line 335: Line 335:
</lang>
</lang>
[[File:Prolog_xor_pattern.png|400px]]
[[File:Prolog_xor_pattern.png|400px]]

=={{header|PureBasic}}==
=={{header|PureBasic}}==
<lang purebasic>#palletteSize = 128
<lang purebasic>#palletteSize = 128