blob: 86ece69ca5f96f68dc382642e94de260c8df649b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
W ← 200
H ← 200
S ← 4
I ← 2
P ← ℂ:
PStart ← [(P (-(÷2 S) ÷2 W) (÷2 H)) (P (+(÷2 S) ÷2 W) (÷2 H))]
RotP ← +× ⊙⤚- P ∿+η ⊙∿.
Dragon ← ⍥(⊂ RotP η ⊣. ⇌.)I PStart
IsOnLine ← <0.01 ⌵- /+ ⊙(⌵-⊃⊢⊣)◡(⌵-) ⊟
IsOnDragon ← ⊙◌ ≥1 /+ ≡(IsOnLine⊃⊢⊣) ⧈∘ 2 Dragon
ToPix ← ⨬(0_0_0)(255_255_255) IsOnDragon
Img ← ∵ToPix (⍉ ⊞P ⇡W⇡H)
&fwa "./2-dragon/output.png" img "png" Img
|
