summaryrefslogtreecommitdiff
path: root/libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs
diff options
context:
space:
mode:
Diffstat (limited to 'libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs')
-rw-r--r--libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs48
1 files changed, 0 insertions, 48 deletions
diff --git a/libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs b/libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs
deleted file mode 100644
index 1060ca6..0000000
--- a/libs/cairo-1.16.0/util/cairo-script/examples/dragon.cs
+++ /dev/null
@@ -1,48 +0,0 @@
-%!CairoScript
-/pot { % n -- n
- 1 sub
- dup -1 bitshift or
- dup -2 bitshift or
- dup -4 bitshift or
- dup -8 bitshift or
- dup -16 bitshift or
- 1 add
-} bind def
-
-/direction { % i -- bool
- dup 2 lt { pop true } {
- dup 1 add dup pot dup 3 -1 roll eq { pop pop true } {
- 2 div 1 sub 2 mul exch sub direction not
- } ifelse
- } ifelse
-} bind def
-
-/path { % cr dx dy -- cr
- 0 1 2048 {
- 4 1 roll 3 copy L pop 4 -1 roll direction {
- exch neg
- } {
- neg exch
- } ifelse
- } for
- pop pop
-} bind def
-
-dict
- /width 512 set
- /height 512 set
- surface context
-
-1 g set-source paint
-
-//LINE_CAP_ROUND set-line-cap
-//LINE_JOIN_ROUND set-line-join
-4 set-line-width
-
-256 256 m 12 0 path 0 0 0 rgb set-source stroke
-256 256 m -12 0 path 1 0 0 rgb set-source stroke
-256 256 m 0 12 path 0 1 0 rgb set-source stroke
-256 256 m 0 -12 path 0 0 1 rgb set-source stroke
-
-/target get (out.png) write-to-png pop
-pop