summaryrefslogtreecommitdiff
path: root/util/cairo-script/examples/hilbert.cs
diff options
context:
space:
mode:
Diffstat (limited to 'util/cairo-script/examples/hilbert.cs')
-rwxr-xr-xutil/cairo-script/examples/hilbert.cs51
1 files changed, 51 insertions, 0 deletions
diff --git a/util/cairo-script/examples/hilbert.cs b/util/cairo-script/examples/hilbert.cs
new file mode 100755
index 000000000..4278bf74c
--- /dev/null
+++ b/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