Peripheral drift illusion: Difference between revisions

 

=={{header|Action!}}==

BYTE i

 

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Peripheral_drift_illusion.png Screenshot from Atari 8-bit computer]

{{trans|Wren}}

{{libheader|APDF}}

 

procedure Drift is

Draw_Squares;

PDF.Close;

 

=={{header|Julia}}==

Line color tables taken from the Wren example. See the output [https://imgur.com/jKqIgbe on imgur].

 

function CodepenApp()

 

CodepenApp()

 

=={{header|Nim}}==

See window screenshot [https://github.com/lscrd/Rosetta/blob/main/Images/Peripheral_drift_illusion-Nim.png here.]

 

 

const

let app = newApplication(Application, "Rosetta.Illusion")

discard app.connect("activate", activate)

 

=={{header|Perl}}==

use warnings;

 

open my $fh, '>', 'peripheral-drift.svg';

print $fh $svg;

See [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/peripheral-drift.svg offsite SVG image]

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Peripheral_Drift_Illusion.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Peripheral_Drift_Illusion.exw

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Raku}}==

 

my @blocks = (1..15 X 1..10).map: -> ($X, $Y) {

|@blocks,

]

See [https://github.com/thundergnat/rc/blob/master/img/peripheral-drift-raku.svg offsite SVG image]

 

This reproduces the codepen image and does indeed appear to move although it's static.

See the output [https://imgur.com/xyVcnif on imgur]

import "graphics" for Canvas, Color

 

}