1 files changed, 18 insertions, 0 deletions
diff --git a/2-dragon/main.ua b/2-dragon/main.ua
new file mode 100644
index 0000000..86ece69
--- /dev/null
+++ b/2-dragon/main.ua
@@ -0,0 +1,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