Peripheral drift illusion: Difference between revisions

Line 12:

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

<~~lang~~ ~~Action~~!>PROC DrawTile(INT x BYTE y,flip,c1,c2)

<syntaxhighlight lang="action!">PROC DrawTile(INT x BYTE y,flip,c1,c2)

BYTE i

Line 78:

DO UNTIL CH#$FF OD

CH=$FF

RETURN</~~lang~~>

RETURN</syntaxhighlight>

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

Line 85:

<~~lang~~ ~~Ada~~>with PDF_Out; use PDF_Out;

<syntaxhighlight lang="ada">with PDF_Out; use PDF_Out;

procedure Drift is

Line 184:

Draw_Squares;

PDF.Close;

end Drift;</~~lang~~>

end Drift;</syntaxhighlight>

=={{header|Julia}}==

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

<~~lang~~ julia>using Gtk, Colors, Cairo

<syntaxhighlight lang="julia">using Gtk, Colors, Cairo

function CodepenApp()

Line 250:

CodepenApp()

</syntaxhighlight>

</lang>

=={{header|Nim}}==

Line 259:

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

<~~lang~~ ~~Nim~~>import gintro/[glib, gobject, gtk, gio, cairo]

<syntaxhighlight lang="nim">import gintro/[glib, gobject, gtk, gio, cairo]

const

Line 353:

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

discard app.connect("activate", activate)

discard app.run()</~~lang~~>

discard app.run()</syntaxhighlight>

=={{header|Perl}}==

<~~lang~~ perl>use strict;

<syntaxhighlight lang="perl">use strict;

use warnings;

Line 386:

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

print $fh $svg;

close $fh;</~~lang~~>

close $fh;</syntaxhighlight>

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

Line 392:

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

--

-- demo\rosetta\Peripheral_Drift_Illusion.exw

Line 475:

end procedure

main()

=={{header|Raku}}==

<lang ~~perl6~~>use SVG;

<syntaxhighlight lang="raku" line>use SVG;

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

Line 501:

|@blocks,

]

)</~~lang~~>

)</syntaxhighlight>

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

Line 508:

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

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

<~~lang~~ ecmascript>import "dome" for Window

<syntaxhighlight lang="ecmascript">import "dome" for Window

import "graphics" for Canvas, Color

Line 577:

}

var Game = PeripheralDrift.new()</~~lang~~>

var Game = PeripheralDrift.new()</syntaxhighlight>