Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
2
Task/Peripheral-drift-illusion/00-META.yaml
Normal file
2
Task/Peripheral-drift-illusion/00-META.yaml
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
---
|
||||
from: http://rosettacode.org/wiki/Peripheral_drift_illusion
|
||||
11
Task/Peripheral-drift-illusion/00-TASK.txt
Normal file
11
Task/Peripheral-drift-illusion/00-TASK.txt
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
;Task
|
||||
Generate and display a Peripheral Drift Illusion
|
||||
|
||||
The image appears to be moving even though it is perfectly static.
|
||||
|
||||
Provide a link to show the output, either by running the code online or a screenshot uploaded to a suitable image host.
|
||||
|
||||
;References
|
||||
* [https://codepen.io/josetxu/pen/rNmXjrq Codepen demo].
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,67 @@
|
|||
PROC DrawTile(INT x BYTE y,flip,c1,c2)
|
||||
BYTE i
|
||||
|
||||
Color=1
|
||||
FOR i=y+2 TO y+11
|
||||
DO
|
||||
Plot(x+1,i) DrawTo(x+5,i)
|
||||
OD
|
||||
Color=c1
|
||||
IF flip THEN
|
||||
Plot(x,y+12) DrawTo(x,y) DrawTo(x+6,y)
|
||||
ELSE
|
||||
Plot(x,y) DrawTo(x+6,y) DrawTo(x+6,y+12)
|
||||
FI
|
||||
Plot(x+1,y+1) DrawTo(x+5,y+1)
|
||||
Color=c2
|
||||
IF flip THEN
|
||||
Plot(x,y+13) DrawTo(x+6,y+13) DrawTo(x+6,y+1)
|
||||
ELSE
|
||||
Plot(x,y+1) DrawTo(x,y+13) DrawTo(x+6,y+13)
|
||||
FI
|
||||
Plot(x+1,y+12) DrawTo(x+5,y+12)
|
||||
RETURN
|
||||
|
||||
PROC Draw()
|
||||
INT x,y,n
|
||||
BYTE flip,c1,c2
|
||||
|
||||
FOR y=0 TO 8
|
||||
DO
|
||||
FOR x=0 TO 15
|
||||
DO
|
||||
n=(x-y)&15
|
||||
IF (n RSH 2)&1 THEN
|
||||
flip=1
|
||||
ELSE
|
||||
flip=0
|
||||
FI
|
||||
IF (n RSH 3)&1 THEN
|
||||
c1=3 c2=2
|
||||
ELSE
|
||||
c1=2 c2=3
|
||||
FI
|
||||
DrawTile(x*10,y*20+6,flip,c1,c2)
|
||||
OD
|
||||
OD
|
||||
RETURN
|
||||
|
||||
PROC Main()
|
||||
BYTE CH=$02FC ;Internal hardware value for last key pressed
|
||||
BYTE PALNTSC=$D014 ;To check if PAL or NTSC system is used
|
||||
|
||||
Graphics(15+16)
|
||||
IF PALNTSC=15 THEN
|
||||
SetColor(4,14,10) ;yellow for NTSC
|
||||
SetColor(0,8,4) ;blue for NTSC
|
||||
ELSE
|
||||
SetColor(4,13,10) ;yellow for PAL
|
||||
SetColor(0,7,4) ;blue for PAL
|
||||
FI
|
||||
SetColor(1,0,0)
|
||||
SetColor(2,0,14)
|
||||
Draw()
|
||||
|
||||
DO UNTIL CH#$FF OD
|
||||
CH=$FF
|
||||
RETURN
|
||||
100
Task/Peripheral-drift-illusion/Ada/peripheral-drift-illusion.ada
Normal file
100
Task/Peripheral-drift-illusion/Ada/peripheral-drift-illusion.ada
Normal file
|
|
@ -0,0 +1,100 @@
|
|||
with PDF_Out; use PDF_Out;
|
||||
|
||||
procedure Drift is
|
||||
|
||||
X_Distance : constant := 30.0;
|
||||
Y_Distance : constant := 30.0;
|
||||
X_Length : constant := 20.0;
|
||||
Y_Length : constant := 20.0;
|
||||
Edge_Width : constant := 1.5;
|
||||
Corner : constant Point := (220.0, 140.0);
|
||||
|
||||
type Edge_Kind is (Top, Right, Bottom, Left);
|
||||
type Square_Kind is (Left_Top, Top_Right, Right_Bottom, Bottom_Left);
|
||||
-- Signifies the white edges on the blue squares
|
||||
|
||||
LT : constant Square_Kind := Left_Top;
|
||||
TR : constant Square_Kind := Top_Right;
|
||||
RB : constant Square_Kind := Right_Bottom;
|
||||
BL : constant Square_Kind := Bottom_Left;
|
||||
|
||||
type X_Index is range 0 .. 11;
|
||||
type Y_Index is range 0 .. 11;
|
||||
Squares : constant array (Y_Index, X_Index) of Square_Kind :=
|
||||
(11 => (LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB),
|
||||
10 => (LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL),
|
||||
09 => (TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL),
|
||||
08 => (TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT),
|
||||
07 => (RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT),
|
||||
06 => (RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR),
|
||||
05 => (BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR),
|
||||
04 => (BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB),
|
||||
03 => (LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB),
|
||||
02 => (LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL),
|
||||
01 => (TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL),
|
||||
00 => (TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT));
|
||||
-- PDF has origo in lower left corner of the paper. Reverse
|
||||
-- Y_Index so the program text looks like the output.
|
||||
|
||||
Light_Olive : constant Color_Type := (0.827, 0.816, 0.016);
|
||||
Pale_Blue : constant Color_Type := (0.196, 0.314, 1.000);
|
||||
White : constant Color_Type := (1.000, 1.000, 1.000);
|
||||
|
||||
Colors : constant array (Square_Kind, Edge_Kind) of Color_Type :=
|
||||
(Left_Top => (Top | Left => White, others => Black),
|
||||
Top_Right => (Top | Right => White, others => Black),
|
||||
Right_Bottom => (Right | Bottom => White, others => Black),
|
||||
Bottom_Left => (Bottom | Left => White, others => Black));
|
||||
|
||||
PDF : PDF_Out_File;
|
||||
|
||||
procedure Fill_Poly (P1, P2, P3, P4 : Point; Color : Color_Type) is
|
||||
begin
|
||||
PDF.Color (Color);
|
||||
PDF.Move (Corner + P1);
|
||||
PDF.Line (Corner + P2);
|
||||
PDF.Line (Corner + P3);
|
||||
PDF.Line (Corner + P4);
|
||||
PDF.Finish_Path (Close_Path => True,
|
||||
Rendering => Fill,
|
||||
Rule => Nonzero_Winding_Number);
|
||||
end Fill_Poly;
|
||||
|
||||
procedure Draw_Square (Pos : Point; Kind : Square_Kind) is
|
||||
Inner_TL : constant Point := Pos + (0.0, Y_Length);
|
||||
Inner_TR : constant Point := Pos + (X_Length, Y_Length);
|
||||
Inner_BR : constant Point := Pos + (X_Length, 0.0);
|
||||
Inner_BL : constant Point := Pos + (0.0, 0.0);
|
||||
Outer_TL : constant Point := Inner_TL + (-Edge_Width, Edge_Width);
|
||||
Outer_TR : constant Point := Inner_TR + (Edge_Width, Edge_Width);
|
||||
Outer_BR : constant Point := Inner_BR + (Edge_Width, -Edge_Width);
|
||||
Outer_BL : constant Point := Inner_BL + (-Edge_Width, -Edge_Width);
|
||||
begin
|
||||
Fill_Poly (Inner_TL, Inner_TR, Inner_BR, Inner_BL, Pale_Blue);
|
||||
Fill_Poly (Inner_TL, Outer_TL, Outer_TR, Inner_TR, Colors (Kind, Top));
|
||||
Fill_Poly (Inner_TR, Outer_TR, Outer_BR, Inner_BR, Colors (Kind, Right));
|
||||
Fill_Poly (Inner_BR, Outer_BR, Outer_BL, Inner_BL, Colors (Kind, Bottom));
|
||||
Fill_Poly (Inner_BL, Outer_BL, Outer_TL, Inner_TL, Colors (Kind, Left));
|
||||
end Draw_Square;
|
||||
|
||||
procedure Draw_Squares is
|
||||
begin
|
||||
for X in Squares'Range (2) loop
|
||||
for Y in Squares'Range (1) loop
|
||||
Draw_Square (Pos => (X => Real (X) * X_Distance,
|
||||
Y => Real (Y) * Y_Distance),
|
||||
Kind => Squares (Y, X));
|
||||
end loop;
|
||||
end loop;
|
||||
end Draw_Squares;
|
||||
|
||||
begin
|
||||
PDF.Create ("peripheral-drift-illusion.pdf");
|
||||
PDF.Page_Setup (A4_Landscape);
|
||||
|
||||
PDF.Color (Light_Olive);
|
||||
PDF.Draw ((10.0, 10.0, 820.0, 575.0), Fill);
|
||||
|
||||
Draw_Squares;
|
||||
PDF.Close;
|
||||
end Drift;
|
||||
|
|
@ -0,0 +1,99 @@
|
|||
{The illusion works by drawing light/dark edges around
|
||||
{the squares in an inconsistent pattern that confuses}
|
||||
{the eye about whethe squares are raise or lowered}
|
||||
|
||||
{Specifies corner on which the white lines are drawn}
|
||||
|
||||
type TCorners = (crTopLeft = 0,crTopRght = 1,crBtmLeft = 3,crBtmRght = 2);
|
||||
|
||||
{Array of edge patterns}
|
||||
|
||||
const Edges: array [0..12-1] of array [0..12-1] of TCorners =(
|
||||
(crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght),
|
||||
(crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft),
|
||||
(crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft),
|
||||
(crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft),
|
||||
(crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft),
|
||||
(crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght),
|
||||
(crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght),
|
||||
(crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght),
|
||||
(crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght),
|
||||
(crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft),
|
||||
(crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft),
|
||||
(crTopRght, crTopRght, crTopLeft, crTopLeft, crBtmLeft, crBtmLeft, crBtmRght, crBtmRght, crTopRght, crTopRght, crTopLeft, crTopLeft));
|
||||
|
||||
{Base colors}
|
||||
|
||||
const LightOlive: TColor = $04D0D3;
|
||||
const PaleBlue: TColor = $FF523E;
|
||||
|
||||
{Patterns of edge colors}
|
||||
|
||||
type TColorArray = array [0..4-1] of array [0..4-1] of TColor;
|
||||
|
||||
const Colors: TColorArray = (
|
||||
(clWhite, clBlack, clBlack, clWhite),
|
||||
(clWhite, clWhite, clBlack, clBlack),
|
||||
(clBlack, clWhite, clWhite, clBlack),
|
||||
(clBlack, clBlack, clWhite, clWhite));
|
||||
|
||||
|
||||
|
||||
procedure DrawEdge(Canvas: TCanvas; PX, PY, Size: integer; Colors: TColorArray; Edge: TCorners);
|
||||
{Draw edges around square}
|
||||
begin
|
||||
Canvas.MoveTo(PX, PY);
|
||||
Canvas.Pen.Color:=Colors[Integer(Edge),0];
|
||||
Canvas.LineTo(PX+Size, PY);
|
||||
Canvas.Pen.Color:=Colors[Integer(Edge),1];
|
||||
Canvas.LineTo(PX+Size, PY+Size);
|
||||
Canvas.Pen.Color:=Colors[Integer(Edge),2];
|
||||
Canvas.LineTo(PX, PY+Size);
|
||||
Canvas.Pen.Color:=Colors[Integer(Edge),3];
|
||||
Canvas.LineTo(PX, PY);
|
||||
end;
|
||||
|
||||
|
||||
procedure DrawPeripheralDrift(Image: TImage);
|
||||
{Draw Peripheral Drift illusion}
|
||||
var WWidth,WHeight: integer;
|
||||
var X,Y,PX,PY: integer;
|
||||
var SqrSize,Border,Spacing,InSquare,CellSize: integer;
|
||||
begin
|
||||
{Calculate base size from window size}
|
||||
WWidth:=Min(Image.Width,Image.Height);
|
||||
WHeight:=WWidth;
|
||||
{Calculate border, square and spacing from base size}
|
||||
InSquare:=MulDiv(WWidth,780,1000);
|
||||
Border:=(WWidth-InSquare) div 2;
|
||||
CellSize:=InSquare div 12;
|
||||
|
||||
SqrSize:=MulDiv(CellSize,75,100);
|
||||
Spacing:=MulDiv(CellSize,25,100);
|
||||
|
||||
{Draw background rectangel}
|
||||
Image.Canvas.Brush.Color:=LightOlive;
|
||||
Image.Canvas.Rectangle(0,0,WWidth,WHeight);
|
||||
|
||||
{Draw 12x12 grid of squares}
|
||||
for X:= 0 to 12-1 do
|
||||
begin
|
||||
PX:= Border + X*CellSize;
|
||||
for Y:= 0 to 12-1 do
|
||||
begin
|
||||
PY:= Border + Y*CellSize;
|
||||
{Draw square}
|
||||
Image.Canvas.Brush.Color:=PaleBlue;
|
||||
Image.Canvas.Pen.Color:=PaleBlue;
|
||||
Image.Canvas.Rectangle(PX, PY, PX+SqrSize, PY+SqrSize);
|
||||
{Draw edges, which causes the illusion}
|
||||
DrawEdge(Image.Canvas, PX, PY, SqrSize, Colors, Edges[Y,X]);
|
||||
end;
|
||||
end;
|
||||
Image.Invalidate;
|
||||
end;
|
||||
|
||||
procedure ShowPeripheralDrift(Image: TImage);
|
||||
begin
|
||||
DrawPeripheralDrift(Image);
|
||||
end;
|
||||
|
|
@ -0,0 +1,62 @@
|
|||
using Gtk, Colors, Cairo
|
||||
|
||||
function CodepenApp()
|
||||
# left-top, top-right, right-bottom, bottom-left
|
||||
LT, TR, RB, BL = 1, 2, 3, 4
|
||||
edges = [
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT],
|
||||
[RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT],
|
||||
[RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR],
|
||||
[BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR],
|
||||
[BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB],
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT]]
|
||||
W, B = colorant"white", colorant"darkgray"
|
||||
colors = [
|
||||
[W, B, B, W],
|
||||
[W, W, B, B],
|
||||
[B, W, W, B],
|
||||
[B, B, W, W]]
|
||||
win = GtkWindow("Peripheral drift illusion", 230, 230) |> (can = GtkCanvas())
|
||||
@guarded draw(can) do widget
|
||||
ctx = Gtk.getgc(can)
|
||||
function line(x1, y1, x2, y2, colr)
|
||||
set_source(ctx, colr)
|
||||
move_to(ctx, x1, y1)
|
||||
line_to(ctx, x2, y2)
|
||||
stroke(ctx)
|
||||
end
|
||||
set_source(ctx, colorant"yellow")
|
||||
rectangle(ctx, 0, 0, 250, 250)
|
||||
fill(ctx)
|
||||
set_line_width(ctx, 2)
|
||||
for x in 1:12
|
||||
px = 18 + x * 14
|
||||
for y in 1:12
|
||||
py = 18 + y * 14
|
||||
set_source(ctx, colorant"skyblue")
|
||||
rectangle(ctx, px, py, 10, 10)
|
||||
fill(ctx)
|
||||
carray = colors[edges[y][x]]
|
||||
line(px, py, px + 9, py, carray[1])
|
||||
line(px + 9, py, px + 9, py + 9, carray[2])
|
||||
line(px + 9, py + 9, px, py + 9, carray[3])
|
||||
line(px, py + 9, px, py, carray[4])
|
||||
end
|
||||
end
|
||||
end
|
||||
showall(win)
|
||||
draw(can)
|
||||
condition = Condition()
|
||||
endit(w) = notify(condition)
|
||||
signal_connect(endit, win, :destroy)
|
||||
showall(win)
|
||||
wait(condition)
|
||||
end
|
||||
|
||||
CodepenApp()
|
||||
|
|
@ -0,0 +1,95 @@
|
|||
import gintro/[glib, gobject, gtk, gio, cairo]
|
||||
|
||||
const
|
||||
Width = 600
|
||||
Height = 460
|
||||
|
||||
type
|
||||
Color = array[3, float]
|
||||
Edge {.pure.} = enum LT, TR, RB, BL
|
||||
|
||||
const
|
||||
|
||||
Edges = [[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT],
|
||||
[RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT],
|
||||
[RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR],
|
||||
[BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR],
|
||||
[BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB],
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT]]
|
||||
|
||||
Black: Color = [0.0, 0.0, 0.0]
|
||||
Blue: Color = [0.2, 0.3, 1.0]
|
||||
White: Color = [1.0, 1.0, 1.0]
|
||||
Yellow: Color = [0.8, 0.8, 0.0]
|
||||
|
||||
Colors: array[Edge, array[4, Color]] = [[White, Black, Black, White],
|
||||
[White, White, Black, Black],
|
||||
[Black, White, White, Black],
|
||||
[Black, Black, White, White]]
|
||||
|
||||
#---------------------------------------------------------------------------------------------------
|
||||
|
||||
proc draw(area: DrawingArea; context: Context) =
|
||||
## Draw the pattern in the area.
|
||||
|
||||
func line(x1, y1, x2, y2: float; color: Color) =
|
||||
context.setSource(color)
|
||||
context.moveTo(x1, y1)
|
||||
context.lineTo(x2, y2)
|
||||
context.stroke
|
||||
|
||||
context.setSource(Yellow)
|
||||
context.rectangle(0, 0, Width, Height)
|
||||
context.fill()
|
||||
|
||||
for x in 0..11:
|
||||
let px = float(86 + x * 36)
|
||||
for y in 0..11:
|
||||
let py = float(16 + y * 36)
|
||||
context.setSource(Blue)
|
||||
context.rectangle(px, py, 24, 24)
|
||||
context.fill()
|
||||
let carray = Colors[Edges[y][x]]
|
||||
context.setLineWidth(2)
|
||||
line(px, py, px + 23, py, carray[0])
|
||||
line(px + 23, py, px + 23, py + 23, carray[1])
|
||||
line(px + 23, py + 23, px, py + 23, carray[2])
|
||||
line(px, py + 23, px, py, carray[3])
|
||||
|
||||
#---------------------------------------------------------------------------------------------------
|
||||
|
||||
proc onDraw(area: DrawingArea; context: Context; data: pointer): bool =
|
||||
## Callback to draw/redraw the drawing area contents.
|
||||
|
||||
area.draw(context)
|
||||
result = true
|
||||
|
||||
#---------------------------------------------------------------------------------------------------
|
||||
|
||||
proc activate(app: Application) =
|
||||
## Activate the application.
|
||||
|
||||
let window = app.newApplicationWindow()
|
||||
window.setSizeRequest(Width, Height)
|
||||
window.setTitle("Peripheral drift illusion")
|
||||
|
||||
# Create the drawing area.
|
||||
let area = newDrawingArea()
|
||||
window.add(area)
|
||||
|
||||
# Connect the "draw" event to the callback to draw the pattern.
|
||||
discard area.connect("draw", ondraw, pointer(nil))
|
||||
|
||||
window.showAll()
|
||||
|
||||
#———————————————————————————————————————————————————————————————————————————————————————————————————
|
||||
|
||||
let app = newApplication(Application, "Rosetta.Illusion")
|
||||
discard app.connect("activate", activate)
|
||||
discard app.run()
|
||||
|
|
@ -0,0 +1,31 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
|
||||
my $svg = <<'EOD';
|
||||
<svg xmlns="http://www.w3.org/2000/svg"
|
||||
xmlns:svg="http://www.w3.org/2000/svg"
|
||||
xmlns:xlink="http://www.w3.org/1999/xlink" width="1200" height="825">
|
||||
<rect width="100%" height="100%" fill="#d3d004" />
|
||||
<defs>
|
||||
<g id="block">
|
||||
<polygon points="-25,-25,-25,25,25,25" fill="white" />
|
||||
<polygon points="25,25,25,-25,-25,-25" fill="black" />
|
||||
<rect x="-20" y="-20" width="40" height="40" fill="#3250ff" />
|
||||
</g>
|
||||
</defs>
|
||||
EOD
|
||||
|
||||
for my $X (1..15) {
|
||||
for my $Y (1..10) {
|
||||
my $r = int(($X + $Y) / 2) % 4 * 90;
|
||||
my $x = $X * 75;
|
||||
my $y = $Y * 75;
|
||||
my $a = $r > 0 ? "rotate($r,$x,$y) " : '';
|
||||
$svg .= qq{<use xlink:href="#block" transform="$a translate($x,$y)" />\n}
|
||||
}
|
||||
}
|
||||
$svg .= '</svg>';
|
||||
|
||||
open my $fh, '>', 'peripheral-drift.svg';
|
||||
print $fh $svg;
|
||||
close $fh;
|
||||
|
|
@ -0,0 +1,84 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000080;font-style:italic;">--
|
||||
-- demo\rosetta\Peripheral_Drift_Illusion.exw
|
||||
-- ==========================================
|
||||
--
|
||||
-- converted from https://codepen.io/josetxu/pen/rNmXjrq
|
||||
--</span>
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
|
||||
<span style="color: #004080;">Ihandle</span> <span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">canvas</span>
|
||||
<span style="color: #004080;">cdCanvas</span> <span style="color: #000000;">cdcanvas</span>
|
||||
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">title</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"Peripheral Drift Illusion"</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">CD_LIGHT_OLIVE</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">#d3d004</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">CD_PALE_BLUE</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">#3250ff</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">dxy</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{{</span><span style="color: #000000;">45</span><span style="color: #0000FF;">,</span><span style="color: #000000;">45</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">45</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">45</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">45</span><span style="color: #0000FF;">,</span><span style="color: #000000;">45</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">45</span><span style="color: #0000FF;">}}</span>
|
||||
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">redraw_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000080;font-style:italic;">/*posx*/</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">/*posy*/</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">width</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">height</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetIntInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"DRAWSIZE"</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasActivate</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetBackground</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">CD_LIGHT_OLIVE</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasClear</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">c</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">cy</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">height</span><span style="color: #0000FF;">/</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">2</span><span style="color: #0000FF;">-</span><span style="color: #000000;">81</span>
|
||||
<span style="color: #008080;">while</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">></span><span style="color: #000000;">100</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">d</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">c</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">cx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">81</span>
|
||||
<span style="color: #008080;">while</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;"><</span><span style="color: #000000;">width</span><span style="color: #0000FF;">-</span><span style="color: #000000;">100</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetForeground</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #004600;">CD_WHITE</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasBox</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;">+</span><span style="color: #000000;">45</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">-</span><span style="color: #000000;">45</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetForeground</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #004600;">CD_BLACK</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasBegin</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #004600;">CD_FILL</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">4</span> <span style="color: #008080;">to</span> <span style="color: #000000;">6</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">dy</span><span style="color: #0000FF;">,</span><span style="color: #000000;">dx</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">dxy</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">d</span><span style="color: #0000FF;">]</span>
|
||||
<span style="color: #7060A8;">cdCanvasVertex</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;">+</span><span style="color: #000000;">dx</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">-</span><span style="color: #000000;">dy</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #7060A8;">cdCanvasEnd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetForeground</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">CD_PALE_BLUE</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #7060A8;">cdCanvasBox</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;">+</span><span style="color: #000000;">4</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cx</span><span style="color: #0000FF;">+</span><span style="color: #000000;">41</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">-</span><span style="color: #000000;">4</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cy</span><span style="color: #0000FF;">-</span><span style="color: #000000;">41</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">d</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">d</span><span style="color: #0000FF;">+(</span><span style="color: #7060A8;">odd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cx</span><span style="color: #0000FF;">)==</span><span style="color: #7060A8;">odd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cy</span><span style="color: #0000FF;">)),</span><span style="color: #000000;">4</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">cx</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">63</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
|
||||
<span style="color: #000000;">c</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">c</span><span style="color: #0000FF;">+</span><span style="color: #000000;">4</span><span style="color: #0000FF;">-</span><span style="color: #7060A8;">even</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cy</span><span style="color: #0000FF;">),</span><span style="color: #000000;">4</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">cy</span> <span style="color: #0000FF;">-=</span> <span style="color: #000000;">63</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
|
||||
<span style="color: #7060A8;">cdCanvasFlush</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">map_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000000;">ih</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">atom</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetDouble</span><span style="color: #0000FF;">(</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"SCREENDPI"</span><span style="color: #0000FF;">)/</span><span style="color: #000000;">25.4</span>
|
||||
<span style="color: #7060A8;">IupGLMakeCurrent</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #000000;">cdcanvas</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">cdCreateCanvas</span><span style="color: #0000FF;">(</span><span style="color: #004600;">CD_IUP</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">canvas</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">else</span>
|
||||
<span style="color: #000000;">cdcanvas</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">cdCreateCanvas</span><span style="color: #0000FF;">(</span><span style="color: #004600;">CD_GL</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"10x10 %g"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">res</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetBackground</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #004600;">CD_PARCHMENT</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">canvas_resize_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*canvas*/</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">cw</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetIntInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"DRAWSIZE"</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">atom</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetDouble</span><span style="color: #0000FF;">(</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"SCREENDPI"</span><span style="color: #0000FF;">)/</span><span style="color: #000000;">25.4</span>
|
||||
<span style="color: #7060A8;">cdCanvasSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cdcanvas</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"SIZE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"%dx%d %g"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">cw</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #000000;">canvas</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGLCanvas</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"RASTERSIZE=780x600"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (sensible restore size)</span>
|
||||
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cb</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"MAP_CB"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"map_cb"</span><span style="color: #0000FF;">),</span>
|
||||
<span style="color: #008000;">"ACTION"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"redraw_cb"</span><span style="color: #0000FF;">),</span>
|
||||
<span style="color: #008000;">"RESIZE_CB"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"canvas_resize_cb"</span><span style="color: #0000FF;">)}</span>
|
||||
<span style="color: #7060A8;">IupSetCallbacks</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">cb</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">dlg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupDialog</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`TITLE="%s",PLACEMENT=MAXIMIZED`</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">title</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #7060A8;">IupShow</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()!=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #7060A8;">IupMainLoop</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
|
||||
<!--
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
use SVG;
|
||||
|
||||
my @blocks = (1..15 X 1..10).map: -> ($X, $Y) {
|
||||
my $x = $X * 75;
|
||||
my $y = $Y * 75;
|
||||
my $a = (my $r = ($X + $Y) div 2 % 4 * 90) > 0 ?? "rotate($r,$x,$y) " !! '';
|
||||
:use['xlink:href'=>'#block', 'transform'=>"{$a}translate($x,$y)"]
|
||||
}
|
||||
|
||||
'peripheral-drift-raku.svg'.IO.spurt: SVG.serialize(
|
||||
svg => [
|
||||
:1200width, :825height,
|
||||
:rect[:width<100%>, :height<100%>, :fill<#d3d004>],
|
||||
:defs[]
|
||||
:g[]
|
||||
:id<block>,
|
||||
:polygon[:points<-25,-25,-25,25,25,25>, :fill<white>],
|
||||
:polygon[:points<25,25,25,-25,-25,-25>, :fill<black>],
|
||||
:rect[:x<-20>, :y<-20>, :width<40>, :height<40>, :fill<#3250ff>]
|
||||
]
|
||||
],
|
||||
|@blocks,
|
||||
]
|
||||
)
|
||||
|
|
@ -0,0 +1,70 @@
|
|||
import "dome" for Window
|
||||
import "graphics" for Canvas, Color
|
||||
|
||||
// signifies the white edges on the blue squares
|
||||
var LT = 0
|
||||
var TR = 1
|
||||
var RB = 2
|
||||
var BL = 3
|
||||
|
||||
var Edges = [
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT],
|
||||
[RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT],
|
||||
[RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR],
|
||||
[BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR],
|
||||
[BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB],
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT]
|
||||
]
|
||||
|
||||
var Light_olive = Color.hex("#d3d004")
|
||||
var Pale_blue = Color.hex("#3250ff")
|
||||
|
||||
var W = Color.white
|
||||
var B = Color.black
|
||||
|
||||
var Colors = [
|
||||
[W, B, B, W],
|
||||
[W, W, B, B],
|
||||
[B, W, W, B],
|
||||
[B, B, W, W]
|
||||
]
|
||||
|
||||
class PeripheralDrift {
|
||||
construct new() {
|
||||
Window.resize(1000, 1000)
|
||||
Canvas.resize(1000, 1000)
|
||||
Window.title = "Peripheral drift illusion"
|
||||
}
|
||||
|
||||
init() {
|
||||
Canvas.cls(Light_olive)
|
||||
for (x in 0..11) {
|
||||
var px = 90 + x * 70
|
||||
for (y in 0..11) {
|
||||
var py = 90 + y * 70
|
||||
Canvas.rectfill(px, py, 50, 50, Pale_blue)
|
||||
drawEdge(px, py, Edges[y][x])
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
drawEdge(px, py, edge) {
|
||||
var c = Colors[edge]
|
||||
Canvas.line(px, py, px + 46, py, c[0], 4)
|
||||
Canvas.line(px + 46, py, px + 46, py + 46, c[1], 4)
|
||||
Canvas.line(px, py + 46, px + 46, py + 46, c[2], 4)
|
||||
Canvas.line(px, py + 46, px, py, c[3], 4)
|
||||
}
|
||||
|
||||
update() {}
|
||||
|
||||
draw(alpha) {}
|
||||
}
|
||||
|
||||
var Game = PeripheralDrift.new()
|
||||
|
|
@ -0,0 +1,51 @@
|
|||
proc DrawRect(X0, Y0, W, H, Color);
|
||||
int X0, Y0, W, H, Color, Y;
|
||||
for Y:= Y0 to Y0+H-1 do
|
||||
[Move(X0, Y); Line(X0+W-1, Y, Color)];
|
||||
|
||||
proc DrawEdge(PX, PY, Colors, Edge);
|
||||
int PX, PY, Colors, Edge;
|
||||
int C;
|
||||
[C:= Colors(Edge);
|
||||
Move(PX, PY);
|
||||
Line(PX+11, PY, C(0));
|
||||
Line(PX+11, PY+11, C(1));
|
||||
Line(PX, PY+11, C(2));
|
||||
Line(PX, PY, C(3));
|
||||
];
|
||||
|
||||
def ScrW=256, ScrH=256;
|
||||
def LT=0, TR=1, RB=2, BL=3; \left top, etc.
|
||||
def White = $ffffff, Black = 0;
|
||||
def LightOlive = $d3d004, PaleBlue = $3250ff;
|
||||
int Edges, Colors, X, Y, PX, PY;
|
||||
[SetFB(ScrW, ScrH, 24);
|
||||
\Signifies white and black edges on the blue squares
|
||||
Edges:= [
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT],
|
||||
[RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT],
|
||||
[RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR, TR],
|
||||
[BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB, TR],
|
||||
[BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB, RB],
|
||||
[LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL, RB],
|
||||
[LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL, BL],
|
||||
[TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT, BL],
|
||||
[TR, TR, LT, LT, BL, BL, RB, RB, TR, TR, LT, LT] ];
|
||||
Colors:= [
|
||||
[White, Black, Black, White],
|
||||
[White, White, Black, Black],
|
||||
[Black, White, White, Black],
|
||||
[Black, Black, White, White] ];
|
||||
DrawRect(0, 0, ScrW, ScrH, LightOlive);
|
||||
for X:= 0 to 11 do
|
||||
[PX:= 27 + X*17;
|
||||
for Y:= 0 to 11 do
|
||||
[PY:= 27 + Y*17;
|
||||
DrawRect(PX, PY, 12, 12, PaleBlue);
|
||||
DrawEdge(PX, PY, Colors, Edges(Y,X));
|
||||
];
|
||||
];
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue