From 530ffd0b7d3c39757b20f00716e486b5caf89aff Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Wed, 12 Oct 2022 12:03:23 -0500
Subject: add cairo

---
 .../util/cairo-script/examples/hilbert.cs          | 51 ++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 libs/cairo-1.16.0/util/cairo-script/examples/hilbert.cs

(limited to 'libs/cairo-1.16.0/util/cairo-script/examples/hilbert.cs')

diff --git a/libs/cairo-1.16.0/util/cairo-script/examples/hilbert.cs b/libs/cairo-1.16.0/util/cairo-script/examples/hilbert.cs
new file mode 100644
index 0000000..4278bf7
--- /dev/null
+++ b/libs/cairo-1.16.0/util/cairo-script/examples/hilbert.cs
@@ -0,0 +1,51 @@
+%!CairoScript
+
+/hA { % cr dist lvl *hA* cr dist
+  dup not { pop } {
+      1 sub
+      3 copy hB 0 exch L pop
+      3 copy hA 0 L pop
+      3 copy hA neg 0 exch L pop
+      hC
+  } ifelse
+} bind def
+
+/hB { % cr dist lvl *hB* cr dist
+  dup not { pop } {
+      1 sub
+      3 copy hA 0 L pop
+      3 copy hB 0 exch L pop
+      3 copy hB neg 0 L pop
+      hD
+  } ifelse
+} bind def
+
+/hC { % cr dist lvl *hC* cr dist
+  dup not { pop } {
+      1 sub
+      3 copy hD neg 0 L pop
+      3 copy hC neg 0 exch L pop
+      3 copy hC 0 L pop
+      hA
+  } ifelse
+} bind def
+
+/hD { % cr dist lvl *hD* cr dist
+  dup not { pop } {
+      1 sub
+      3 copy hC neg 0 exch L pop
+      3 copy hD neg 0 L pop
+      3 copy hD 0 exch L pop
+      hB
+  } ifelse
+} bind def
+
+dict
+  /width  1024 set
+  /height 1024 set
+  surface context
+
+2 2 m 4 10 hA pop 1 g set-source stroke
+
+/target get (out.png) write-to-png pop
+pop
-- 
cgit v1.2.1