Artifact cd94c919f0bca07afdef22f2544eae81557690db:
- File cairo/test.ss — part of check-in [b358a80757] at 2016-09-04 14:50:46 on branch trunk — added missing file changes (user: aldo size: 18019)
0000: 0a 28 69 6d 70 6f 72 74 20 28 63 61 69 72 6f 29 .(import (cairo) 0010: 29 0a 0a 28 63 61 69 72 6f 2d 6c 69 62 72 61 72 )..(cairo-librar 0020: 79 2d 69 6e 69 74 29 0a 28 64 65 66 69 6e 65 20 y-init).(define 0030: 70 69 20 33 2e 31 34 31 35 39 32 36 35 33 36 29 pi 3.1415926536) 0040: 0a 0a 28 64 65 66 69 6e 65 20 28 74 65 73 74 2d ..(define (test- 0050: 63 61 69 72 6f 20 6e 61 6d 65 20 70 72 6f 63 29 cairo name proc) 0060: 20 0a 20 20 28 6c 65 74 2a 20 28 5b 73 75 72 66 . (let* ([surf 0070: 61 63 65 20 28 63 61 69 72 6f 2d 69 6d 61 67 65 ace (cairo-image 0080: 2d 73 75 72 66 61 63 65 2d 63 72 65 61 74 65 20 -surface-create 0090: 28 63 61 69 72 6f 2d 66 6f 72 6d 61 74 20 27 61 (cairo-format 'a 00a0: 72 67 62 2d 33 32 29 20 31 32 30 20 31 32 30 29 rgb-32) 120 120) 00b0: 5d 0a 09 20 5b 63 72 20 28 63 61 69 72 6f 2d 63 ].. [cr (cairo-c 00c0: 72 65 61 74 65 20 73 75 72 66 61 63 65 29 5d 29 reate surface)]) 00d0: 0a 20 20 20 20 28 63 61 69 72 6f 2d 73 63 61 6c . (cairo-scal 00e0: 65 20 63 72 20 31 32 30 2e 20 31 32 30 2e 29 0a e cr 120. 120.). 00f0: 20 20 20 20 28 70 72 6f 63 20 73 75 72 66 61 63 (proc surfac 0100: 65 20 63 72 29 0a 20 20 20 20 28 63 61 69 72 6f e cr). (cairo 0110: 2d 73 75 72 66 61 63 65 2d 77 72 69 74 65 2d 74 -surface-write-t 0120: 6f 2d 70 6e 67 20 73 75 72 66 61 63 65 20 28 73 o-png surface (s 0130: 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 6e 61 6d tring-append nam 0140: 65 20 22 2e 70 6e 67 22 29 29 29 29 0a 0a 28 64 e ".png"))))..(d 0150: 65 66 69 6e 65 20 28 73 61 6d 70 6c 65 2d 63 61 efine (sample-ca 0160: 69 72 6f 20 6e 61 6d 65 20 70 72 6f 63 29 20 0a iro name proc) . 0170: 20 20 28 6c 65 74 2a 20 28 5b 73 75 72 66 61 63 (let* ([surfac 0180: 65 20 28 63 61 69 72 6f 2d 69 6d 61 67 65 2d 73 e (cairo-image-s 0190: 75 72 66 61 63 65 2d 63 72 65 61 74 65 20 28 63 urface-create (c 01a0: 61 69 72 6f 2d 66 6f 72 6d 61 74 20 27 61 72 67 airo-format 'arg 01b0: 62 2d 33 32 29 20 32 35 36 20 32 35 36 29 5d 0a b-32) 256 256)]. 01c0: 09 20 5b 63 72 20 28 63 61 69 72 6f 2d 63 72 65 . [cr (cairo-cre 01d0: 61 74 65 20 73 75 72 66 61 63 65 29 5d 29 0a 20 ate surface)]). 01e0: 20 20 20 28 70 72 6f 63 20 73 75 72 66 61 63 65 (proc surface 01f0: 20 63 72 29 0a 20 20 20 20 28 63 61 69 72 6f 2d cr). (cairo- 0200: 73 75 72 66 61 63 65 2d 77 72 69 74 65 2d 74 6f surface-write-to 0210: 2d 70 6e 67 20 73 75 72 66 61 63 65 20 28 73 74 -png surface (st 0220: 72 69 6e 67 2d 61 70 70 65 6e 64 20 6e 61 6d 65 ring-append name 0230: 20 22 2e 70 6e 67 22 29 29 29 29 0a 0a 3b 3b 20 ".png"))))..;; 0240: 46 52 4f 4d 20 68 74 74 70 73 3a 2f 2f 77 77 77 FROM https://www 0250: 2e 63 61 69 72 6f 67 72 61 70 68 69 63 73 2e 6f .cairographics.o 0260: 72 67 2f 74 75 74 6f 72 69 61 6c 2f 0a 0a 28 74 rg/tutorial/..(t 0270: 65 73 74 2d 63 61 69 72 6f 20 22 73 74 72 6f 6b est-cairo "strok 0280: 65 22 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 20 e".. (lambda 0290: 28 73 75 72 66 61 63 65 20 63 72 29 0a 09 20 20 (surface cr).. 02a0: 20 20 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 6c (cairo-set-l 02b0: 69 6e 65 2d 77 69 64 74 68 20 63 72 20 30 2e 31 ine-width cr 0.1 02c0: 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d ).. (cairo- 02d0: 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 20 63 set-source-rgb c 02e0: 72 20 30 2e 20 30 2e 20 30 2e 29 0a 09 20 20 20 r 0. 0. 0.).. 02f0: 20 20 20 28 63 61 69 72 6f 2d 72 65 63 74 61 6e (cairo-rectan 0300: 67 6c 65 20 63 72 20 30 2e 32 35 20 30 2e 32 35 gle cr 0.25 0.25 0310: 20 30 2e 32 35 20 30 2e 32 35 29 0a 09 20 20 20 0.25 0.25).. 0320: 20 20 20 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 (cairo-stroke 0330: 20 63 72 29 29 29 0a 0a 28 74 65 73 74 2d 63 61 cr)))..(test-ca 0340: 69 72 6f 20 22 73 68 6f 77 74 65 78 74 22 0a 09 iro "showtext".. 0350: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 72 (lambda (sur 0360: 66 61 63 65 20 63 72 29 0a 09 20 20 20 20 20 20 face cr).. 0370: 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 (cairo-set-sourc 0380: 65 2d 72 67 62 20 63 72 20 30 2e 20 30 2e 20 30 e-rgb cr 0. 0. 0 0390: 2e 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f .).. (cairo 03a0: 2d 73 65 6c 65 63 74 2d 66 6f 6e 74 2d 66 61 63 -select-font-fac 03b0: 65 20 63 72 20 22 47 65 6f 72 67 69 61 22 20 28 e cr "Georgia" ( 03c0: 63 61 69 72 6f 2d 66 6f 6e 74 2d 73 6c 61 6e 74 cairo-font-slant 03d0: 20 27 6e 6f 72 6d 61 6c 29 20 28 63 61 69 72 6f 'normal) (cairo 03e0: 2d 66 6f 6e 74 2d 77 65 69 67 68 74 20 27 62 6f -font-weight 'bo 03f0: 6c 64 29 29 0a 09 20 20 20 20 20 20 28 63 61 69 ld)).. (cai 0400: 72 6f 2d 73 65 74 2d 66 6f 6e 74 2d 73 69 7a 65 ro-set-font-size 0410: 20 63 72 20 31 2e 32 29 0a 09 20 20 20 20 20 20 cr 1.2).. 0420: 28 6c 65 74 20 28 5b 65 78 74 65 6e 74 73 20 28 (let ([extents ( 0430: 63 61 69 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e cairo-text-exten 0440: 74 73 2d 63 72 65 61 74 65 29 5d 29 0a 09 09 28 ts-create)])...( 0450: 63 61 69 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e cairo-text-exten 0460: 74 73 20 63 72 20 22 61 22 20 65 78 74 65 6e 74 ts cr "a" extent 0470: 73 29 0a 09 09 28 6c 65 74 2d 73 74 72 75 63 74 s)...(let-struct 0480: 20 65 78 74 65 6e 74 73 20 63 61 69 72 6f 2d 74 extents cairo-t 0490: 65 78 74 2d 65 78 74 65 6e 74 73 2d 74 20 28 77 ext-extents-t (w 04a0: 69 64 74 68 20 68 65 69 67 68 74 20 78 2d 62 65 idth height x-be 04b0: 61 72 69 6e 67 20 79 2d 62 65 61 72 69 6e 67 29 aring y-bearing) 04c0: 0a 09 09 09 20 20 20 20 28 63 61 69 72 6f 2d 6d .... (cairo-m 04d0: 6f 76 65 2d 74 6f 20 63 72 20 0a 09 09 09 09 09 ove-to cr ...... 04e0: 20 20 20 28 2d 20 30 2e 35 20 28 2f 20 77 69 64 (- 0.5 (/ wid 04f0: 74 68 20 32 29 20 78 2d 62 65 61 72 69 6e 67 29 th 2) x-bearing) 0500: 0a 09 09 09 09 09 20 20 20 28 2d 20 30 2e 35 20 ...... (- 0.5 0510: 28 2f 20 68 65 69 67 68 74 20 32 29 20 79 2d 62 (/ height 2) y-b 0520: 65 61 72 69 6e 67 29 29 29 0a 09 09 28 63 61 69 earing)))...(cai 0530: 72 6f 2d 73 68 6f 77 2d 74 65 78 74 20 63 72 20 ro-show-text cr 0540: 22 61 22 29 29 29 29 0a 0a 28 74 65 73 74 2d 63 "a"))))..(test-c 0550: 61 69 72 6f 20 22 70 61 69 6e 74 22 0a 09 20 20 airo "paint".. 0560: 20 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 61 (lambda (surfa 0570: 63 65 20 63 72 29 0a 09 20 20 20 20 20 20 28 63 ce cr).. (c 0580: 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d airo-set-source- 0590: 72 67 62 20 63 72 20 30 2e 30 20 30 2e 30 20 30 rgb cr 0.0 0.0 0 05a0: 2e 30 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 .0).. (cair 05b0: 6f 2d 70 61 69 6e 74 2d 77 69 74 68 2d 61 6c 70 o-paint-with-alp 05c0: 68 61 20 63 72 20 30 2e 35 29 29 29 0a 0a 28 74 ha cr 0.5)))..(t 05d0: 65 73 74 2d 63 61 69 72 6f 20 22 6d 61 73 6b 22 est-cairo "mask" 05e0: 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 .. (lambda (s 05f0: 75 72 66 61 63 65 20 63 72 29 0a 09 20 20 20 20 urface cr).. 0600: 20 20 28 6c 65 74 2a 20 28 5b 6c 69 6e 70 61 74 (let* ([linpat 0610: 20 28 63 61 69 72 6f 2d 70 61 74 74 65 72 6e 2d (cairo-pattern- 0620: 63 72 65 61 74 65 2d 6c 69 6e 65 61 72 20 30 2e create-linear 0. 0630: 20 30 2e 20 31 2e 20 31 2e 29 5d 0a 09 09 20 20 0. 1. 1.)]... 0640: 20 20 20 5b 72 61 64 70 61 74 20 28 63 61 69 72 [radpat (cair 0650: 6f 2d 70 61 74 74 65 72 6e 2d 63 72 65 61 74 65 o-pattern-create 0660: 2d 72 61 64 69 61 6c 20 30 2e 35 20 30 2e 35 20 -radial 0.5 0.5 0670: 30 2e 32 35 20 30 2e 35 20 30 2e 35 20 30 2e 37 0.25 0.5 0.5 0.7 0680: 35 29 5d 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 5)])...(cairo-pa 0690: 74 74 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d ttern-add-color- 06a0: 73 74 6f 70 2d 72 67 62 20 6c 69 6e 70 61 74 20 stop-rgb linpat 06b0: 30 2e 20 30 2e 20 30 2e 33 20 30 2e 38 29 0a 09 0. 0. 0.3 0.8).. 06c0: 09 28 63 61 69 72 6f 2d 70 61 74 74 65 72 6e 2d .(cairo-pattern- 06d0: 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f 70 2d 72 add-color-stop-r 06e0: 67 62 20 6c 69 6e 70 61 74 20 31 2e 20 30 2e 20 gb linpat 1. 0. 06f0: 30 2e 38 20 30 2e 33 29 0a 09 09 28 63 61 69 72 0.8 0.3)...(cair 0700: 6f 2d 70 61 74 74 65 72 6e 2d 61 64 64 2d 63 6f o-pattern-add-co 0710: 6c 6f 72 2d 73 74 6f 70 2d 72 67 62 61 20 72 61 lor-stop-rgba ra 0720: 64 70 61 74 20 30 2e 20 30 2e 20 30 2e 20 30 2e dpat 0. 0. 0. 0. 0730: 20 31 2e 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 1.)...(cairo-pa 0740: 74 74 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d ttern-add-color- 0750: 73 74 6f 70 2d 72 67 62 61 20 72 61 64 70 61 74 stop-rgba radpat 0760: 20 30 2e 35 20 30 2e 20 30 2e 20 30 2e 20 30 2e 0.5 0. 0. 0. 0. 0770: 29 0a 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 )...(cairo-set-s 0780: 6f 75 72 63 65 20 63 72 20 6c 69 6e 70 61 74 29 ource cr linpat) 0790: 0a 09 09 28 63 61 69 72 6f 2d 6d 61 73 6b 20 63 ...(cairo-mask c 07a0: 72 20 72 61 64 70 61 74 29 29 29 29 0a 0a 28 74 r radpat))))..(t 07b0: 65 73 74 2d 63 61 69 72 6f 20 22 73 65 74 73 6f est-cairo "setso 07c0: 75 72 63 65 72 67 62 61 22 0a 09 20 20 20 20 28 urcergba".. ( 07d0: 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 lambda (surface 07e0: 63 72 29 0a 09 20 20 20 20 20 28 63 61 69 72 6f cr).. (cairo 07f0: 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 20 -set-source-rgb 0800: 63 72 20 30 2e 20 30 2e 20 30 2e 29 20 0a 09 20 cr 0. 0. 0.) .. 0810: 20 20 20 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d (cairo-move- 0820: 74 6f 20 63 72 20 30 2e 20 30 2e 29 0a 09 20 20 to cr 0. 0.).. 0830: 20 20 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 (cairo-line-t 0840: 6f 20 63 72 20 31 2e 20 31 2e 29 0a 09 20 20 20 o cr 1. 1.).. 0850: 20 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f (cairo-move-to 0860: 20 63 72 20 31 2e 20 30 2e 29 0a 09 20 20 20 20 cr 1. 0.).. 0870: 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 (cairo-line-to 0880: 63 72 20 30 2e 20 31 2e 29 0a 09 20 20 20 20 20 cr 0. 1.).. 0890: 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d (cairo-set-line- 08a0: 77 69 64 74 68 20 63 72 20 30 2e 32 29 0a 09 20 width cr 0.2).. 08b0: 20 20 20 20 28 63 61 69 72 6f 2d 73 74 72 6f 6b (cairo-strok 08c0: 65 20 63 72 29 0a 09 20 20 20 20 20 20 0a 09 20 e cr).. .. 08d0: 20 20 20 20 28 63 61 69 72 6f 2d 72 65 63 74 61 (cairo-recta 08e0: 6e 67 6c 65 20 63 72 20 30 2e 20 30 2e 20 30 2e ngle cr 0. 0. 0. 08f0: 35 20 30 2e 35 29 0a 09 20 20 20 20 20 28 63 61 5 0.5).. (ca 0900: 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 iro-set-source-r 0910: 67 62 61 20 63 72 20 31 2e 20 30 2e 20 30 2e 20 gba cr 1. 0. 0. 0920: 30 2e 38 30 29 0a 09 20 20 20 20 20 28 63 61 69 0.80).. (cai 0930: 72 6f 2d 66 69 6c 6c 20 63 72 29 0a 09 20 20 20 ro-fill cr).. 0940: 20 20 20 0a 09 20 20 20 20 20 28 63 61 69 72 6f .. (cairo 0950: 2d 72 65 63 74 61 6e 67 6c 65 20 63 72 20 30 2e -rectangle cr 0. 0960: 20 30 2e 35 20 30 2e 35 20 30 2e 35 29 0a 09 20 0.5 0.5 0.5).. 0970: 20 20 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 73 (cairo-set-s 0980: 6f 75 72 63 65 2d 72 67 62 61 20 63 72 20 30 2e ource-rgba cr 0. 0990: 20 31 2e 20 30 2e 20 30 2e 36 30 29 0a 09 20 20 1. 0. 0.60).. 09a0: 20 20 20 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 (cairo-fill c 09b0: 72 29 0a 09 20 20 20 20 20 20 0a 09 20 20 20 20 r).. .. 09c0: 20 28 63 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c (cairo-rectangl 09d0: 65 20 63 72 20 30 2e 35 20 30 2e 20 30 2e 35 20 e cr 0.5 0. 0.5 09e0: 30 2e 35 29 0a 09 20 20 20 20 20 28 63 61 69 72 0.5).. (cair 09f0: 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 o-set-source-rgb 0a00: 61 20 63 72 20 30 2e 20 30 2e 20 31 2e 20 30 2e a cr 0. 0. 1. 0. 0a10: 34 30 29 0a 09 20 20 20 20 20 28 63 61 69 72 6f 40).. (cairo 0a20: 2d 66 69 6c 6c 20 63 72 29 29 29 0a 0a 28 74 65 -fill cr)))..(te 0a30: 73 74 2d 63 61 69 72 6f 20 22 73 65 74 73 6f 75 st-cairo "setsou 0a40: 72 63 65 67 72 61 64 69 65 6e 74 22 0a 09 20 20 rcegradient".. 0a50: 20 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 61 (lambda (surfa 0a60: 63 65 20 63 72 29 0a 09 20 20 20 20 20 20 28 6c ce cr).. (l 0a70: 65 74 20 28 5b 72 61 64 70 61 74 20 28 63 61 69 et ([radpat (cai 0a80: 72 6f 2d 70 61 74 74 65 72 6e 2d 63 72 65 61 74 ro-pattern-creat 0a90: 65 2d 72 61 64 69 61 6c 20 30 2e 32 35 20 30 2e e-radial 0.25 0. 0aa0: 32 35 20 30 2e 31 20 20 30 2e 35 20 30 2e 35 20 25 0.1 0.5 0.5 0ab0: 30 2e 35 29 5d 0a 09 09 20 20 20 20 5b 6c 69 6e 0.5)]... [lin 0ac0: 70 61 74 20 28 63 61 69 72 6f 2d 70 61 74 74 65 pat (cairo-patte 0ad0: 72 6e 2d 63 72 65 61 74 65 2d 6c 69 6e 65 61 72 rn-create-linear 0ae0: 20 30 2e 32 35 20 30 2e 33 35 20 30 2e 37 35 20 0.25 0.35 0.75 0af0: 30 2e 36 35 29 5d 29 0a 09 09 28 63 61 69 72 6f 0.65)])...(cairo 0b00: 2d 70 61 74 74 65 72 6e 2d 61 64 64 2d 63 6f 6c -pattern-add-col 0b10: 6f 72 2d 73 74 6f 70 2d 72 67 62 20 72 61 64 70 or-stop-rgb radp 0b20: 61 74 20 30 2e 20 20 31 2e 30 20 30 2e 38 20 30 at 0. 1.0 0.8 0 0b30: 2e 38 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 .8)...(cairo-pat 0b40: 74 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 tern-add-color-s 0b50: 74 6f 70 2d 72 67 62 20 72 61 64 70 61 74 20 31 top-rgb radpat 1 0b60: 2e 20 20 30 2e 39 20 30 2e 30 20 30 2e 30 29 0a . 0.9 0.0 0.0). 0b70: 09 09 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d ..(for-each (lam 0b80: 62 64 61 20 28 69 29 20 0a 09 09 09 20 20 20 20 bda (i) .... 0b90: 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 (for-each (lambd 0ba0: 61 20 28 6a 29 20 0a 09 09 09 09 09 28 63 61 69 a (j) ......(cai 0bb0: 72 6f 2d 72 65 63 74 61 6e 67 6c 65 20 63 72 20 ro-rectangle cr 0bc0: 28 2d 20 28 2f 20 28 31 2b 20 69 29 20 31 30 2e (- (/ (1+ i) 10. 0bd0: 29 20 30 2e 30 34 29 20 28 2d 20 28 2f 20 28 31 ) 0.04) (- (/ (1 0be0: 2b 20 6a 29 20 31 30 2e 29 20 30 2e 30 34 29 20 + j) 10.) 0.04) 0bf0: 30 2e 30 38 20 30 2e 30 38 29 29 0a 09 09 09 09 0.08 0.08))..... 0c00: 20 20 20 20 20 20 28 69 6f 74 61 20 39 29 29 29 (iota 9))) 0c10: 0a 09 09 09 20 20 20 20 28 69 6f 74 61 20 39 29 .... (iota 9) 0c20: 29 0a 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 )...(cairo-set-s 0c30: 6f 75 72 63 65 20 63 72 20 72 61 64 70 61 74 29 ource cr radpat) 0c40: 0a 09 09 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 ...(cairo-fill c 0c50: 72 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 74 r)...(cairo-patt 0c60: 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 ern-add-color-st 0c70: 6f 70 2d 72 67 62 61 20 6c 69 6e 70 61 74 20 30 op-rgba linpat 0 0c80: 2e 30 30 20 20 31 2e 20 31 2e 20 31 2e 20 30 2e .00 1. 1. 1. 0. 0c90: 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 74 65 )...(cairo-patte 0ca0: 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f rn-add-color-sto 0cb0: 70 2d 72 67 62 61 20 6c 69 6e 70 61 74 20 30 2e p-rgba linpat 0. 0cc0: 32 35 20 20 30 2e 20 31 2e 20 30 2e 20 30 2e 35 25 0. 1. 0. 0.5 0cd0: 29 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 74 65 )...(cairo-patte 0ce0: 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f rn-add-color-sto 0cf0: 70 2d 72 67 62 61 20 6c 69 6e 70 61 74 20 30 2e p-rgba linpat 0. 0d00: 35 30 20 20 31 2e 20 31 2e 20 31 2e 20 30 2e 29 50 1. 1. 1. 0.) 0d10: 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 74 65 72 ...(cairo-patter 0d20: 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f 70 n-add-color-stop 0d30: 2d 72 67 62 61 20 6c 69 6e 70 61 74 20 30 2e 37 -rgba linpat 0.7 0d40: 35 20 20 30 2e 20 30 2e 20 31 2e 20 30 2e 35 29 5 0. 0. 1. 0.5) 0d50: 0a 09 09 28 63 61 69 72 6f 2d 70 61 74 74 65 72 ...(cairo-patter 0d60: 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f 70 n-add-color-stop 0d70: 2d 72 67 62 61 20 6c 69 6e 70 61 74 20 31 2e 30 -rgba linpat 1.0 0d80: 30 20 20 31 2e 20 31 2e 20 31 2e 20 30 2e 29 0a 0 1. 1. 1. 0.). 0d90: 0a 09 09 28 63 61 69 72 6f 2d 72 65 63 74 61 6e ...(cairo-rectan 0da0: 67 6c 65 20 63 72 20 30 2e 30 20 30 2e 30 20 31 gle cr 0.0 0.0 1 0db0: 2e 20 31 2e 29 0a 09 09 28 63 61 69 72 6f 2d 73 . 1.)...(cairo-s 0dc0: 65 74 2d 73 6f 75 72 63 65 20 63 72 20 6c 69 6e et-source cr lin 0dd0: 70 61 74 29 0a 09 09 28 63 61 69 72 6f 2d 66 69 pat)...(cairo-fi 0de0: 6c 6c 20 63 72 29 29 29 29 0a 0a 28 74 65 73 74 ll cr))))..(test 0df0: 2d 63 61 69 72 6f 20 22 74 69 70 73 2d 65 6c 6c -cairo "tips-ell 0e00: 69 70 73 65 22 20 0a 09 20 20 20 20 28 6c 61 6d ipse" .. (lam 0e10: 62 64 61 20 28 73 75 72 66 61 63 65 20 63 72 29 bda (surface cr) 0e20: 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d 73 .. (cairo-s 0e30: 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 et-line-width cr 0e40: 20 30 2e 31 29 0a 09 20 20 20 20 20 20 0a 09 20 0.1).. .. 0e50: 20 20 20 20 20 28 63 61 69 72 6f 2d 73 61 76 65 (cairo-save 0e60: 20 63 72 29 0a 09 20 20 20 20 20 20 28 63 61 69 cr).. (cai 0e70: 72 6f 2d 73 63 61 6c 65 20 63 72 20 30 2e 35 20 ro-scale cr 0.5 0e80: 31 2e 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 1.).. (cair 0e90: 6f 2d 61 72 63 20 63 72 20 30 2e 35 20 30 2e 35 o-arc cr 0.5 0.5 0ea0: 20 30 2e 34 30 20 30 2e 20 28 2a 20 32 2e 20 70 0.40 0. (* 2. p 0eb0: 69 29 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 i)).. (cair 0ec0: 6f 2d 73 74 72 6f 6b 65 20 63 72 29 0a 09 20 20 o-stroke cr).. 0ed0: 20 20 20 20 0a 09 20 20 20 20 20 20 28 63 61 69 .. (cai 0ee0: 72 6f 2d 74 72 61 6e 73 6c 61 74 65 20 63 72 20 ro-translate cr 0ef0: 31 2e 20 30 2e 29 0a 09 20 20 20 20 20 20 28 63 1. 0.).. (c 0f00: 61 69 72 6f 2d 61 72 63 20 63 72 20 30 2e 35 20 airo-arc cr 0.5 0f10: 30 2e 35 20 30 2e 34 30 20 30 2e 20 28 2a 20 32 0.5 0.40 0. (* 2 0f20: 2e 20 70 69 29 29 0a 09 20 20 20 20 20 20 28 63 . pi)).. (c 0f30: 61 69 72 6f 2d 72 65 73 74 6f 72 65 20 63 72 29 airo-restore cr) 0f40: 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d 73 .. (cairo-s 0f50: 74 72 6f 6b 65 20 63 72 29 29 29 0a 0a 0a 0a 3b troke cr)))....; 0f60: 3b 20 46 52 4f 4d 20 68 74 74 70 73 3a 2f 2f 77 ; FROM https://w 0f70: 77 77 2e 63 61 69 72 6f 67 72 61 70 68 69 63 73 ww.cairographics 0f80: 2e 6f 72 67 2f 73 61 6d 70 6c 65 73 2f 0a 0a 28 .org/samples/..( 0f90: 73 61 6d 70 6c 65 2d 63 61 69 72 6f 20 22 61 72 sample-cairo "ar 0fa0: 63 22 20 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 c" .. (lambda 0fb0: 20 28 73 75 72 66 61 63 65 20 63 72 29 0a 09 20 (surface cr).. 0fc0: 20 20 20 20 20 28 6c 65 74 20 28 5b 78 63 20 31 (let ([xc 1 0fd0: 32 38 2e 5d 20 5b 79 63 20 31 32 38 2e 5d 20 5b 28.] [yc 128.] [ 0fe0: 72 61 64 69 75 73 20 31 30 30 2e 5d 20 0a 09 09 radius 100.] ... 0ff0: 20 20 20 20 5b 61 6e 67 6c 65 31 20 28 2a 20 34 [angle1 (* 4 1000: 35 2e 20 28 2f 20 70 69 20 31 38 30 2e 29 29 5d 5. (/ pi 180.))] 1010: 20 5b 61 6e 67 6c 65 32 20 28 2a 20 31 38 30 2e [angle2 (* 180. 1020: 20 28 2f 20 70 69 20 31 38 30 2e 29 29 5d 29 0a (/ pi 180.))]). 1030: 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e ..(cairo-set-lin 1040: 65 2d 77 69 64 74 68 20 63 72 20 31 30 2e 30 29 e-width cr 10.0) 1050: 0a 09 09 28 63 61 69 72 6f 2d 61 72 63 20 63 72 ...(cairo-arc cr 1060: 20 78 63 20 79 63 20 72 61 64 69 75 73 20 61 6e xc yc radius an 1070: 67 6c 65 31 20 61 6e 67 6c 65 32 29 0a 09 09 28 gle1 angle2)...( 1080: 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 29 cairo-stroke cr) 1090: 0a 0a 09 09 3b 3b 2f 2a 20 64 72 61 77 20 68 65 ....;;/* draw he 10a0: 6c 70 69 6e 67 20 6c 69 6e 65 73 20 2a 2f 0a 09 lping lines */.. 10b0: 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 .(cairo-set-sour 10c0: 63 65 2d 72 67 62 61 20 63 72 20 31 2e 20 30 2e ce-rgba cr 1. 0. 10d0: 32 20 30 2e 32 20 30 2e 36 29 0a 09 09 28 63 61 2 0.2 0.6)...(ca 10e0: 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 iro-set-line-wid 10f0: 74 68 20 63 72 20 36 2e 30 29 0a 0a 09 09 28 63 th cr 6.0)....(c 1100: 61 69 72 6f 2d 61 72 63 20 63 72 20 78 63 20 79 airo-arc cr xc y 1110: 63 20 31 30 2e 30 20 30 2e 20 28 2a 20 32 20 70 c 10.0 0. (* 2 p 1120: 69 29 29 0a 09 09 28 63 61 69 72 6f 2d 66 69 6c i))...(cairo-fil 1130: 6c 20 63 72 29 0a 09 09 0a 09 09 28 63 61 69 72 l cr)......(cair 1140: 6f 2d 61 72 63 20 63 72 20 78 63 20 79 63 20 72 o-arc cr xc yc r 1150: 61 64 69 75 73 20 61 6e 67 6c 65 31 20 61 6e 67 adius angle1 ang 1160: 6c 65 31 29 0a 09 09 28 63 61 69 72 6f 2d 6c 69 le1)...(cairo-li 1170: 6e 65 2d 74 6f 20 63 72 20 78 63 20 79 63 29 0a ne-to cr xc yc). 1180: 09 09 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 ..(cairo-arc cr 1190: 78 63 20 79 63 20 72 61 64 69 75 73 20 61 6e 67 xc yc radius ang 11a0: 6c 65 32 20 61 6e 67 6c 65 32 29 0a 09 09 28 63 le2 angle2)...(c 11b0: 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 airo-line-to cr 11c0: 78 63 20 79 63 29 0a 09 09 28 63 61 69 72 6f 2d xc yc)...(cairo- 11d0: 73 74 72 6f 6b 65 20 63 72 29 29 29 29 0a 09 09 stroke cr))))... 11e0: 0a 28 73 61 6d 70 6c 65 2d 63 61 69 72 6f 20 22 .(sample-cairo " 11f0: 61 72 63 2d 6e 65 67 61 74 69 76 65 22 20 0a 09 arc-negative" .. 1200: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 72 (lambda (sur 1210: 66 61 63 65 20 63 72 29 0a 09 20 20 20 20 20 20 face cr).. 1220: 28 6c 65 74 20 28 5b 78 63 20 31 32 38 2e 5d 20 (let ([xc 128.] 1230: 5b 79 63 20 31 32 38 2e 5d 20 5b 72 61 64 69 75 [yc 128.] [radiu 1240: 73 20 31 30 30 2e 5d 20 0a 09 09 20 20 20 20 5b s 100.] ... [ 1250: 61 6e 67 6c 65 31 20 28 2a 20 34 35 2e 20 28 2f angle1 (* 45. (/ 1260: 20 70 69 20 31 38 30 2e 29 29 5d 20 5b 61 6e 67 pi 180.))] [ang 1270: 6c 65 32 20 28 2a 20 31 38 30 2e 20 28 2f 20 70 le2 (* 180. (/ p 1280: 69 20 31 38 30 2e 29 29 5d 29 0a 09 09 28 63 61 i 180.))])...(ca 1290: 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 iro-set-line-wid 12a0: 74 68 20 63 72 20 31 30 2e 30 29 0a 09 09 28 63 th cr 10.0)...(c 12b0: 61 69 72 6f 2d 61 72 63 2d 6e 65 67 61 74 69 76 airo-arc-negativ 12c0: 65 20 63 72 20 78 63 20 79 63 20 72 61 64 69 75 e cr xc yc radiu 12d0: 73 20 61 6e 67 6c 65 31 20 61 6e 67 6c 65 32 29 s angle1 angle2) 12e0: 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 ...(cairo-stroke 12f0: 20 63 72 29 0a 0a 09 09 3b 3b 2f 2a 20 64 72 61 cr)....;;/* dra 1300: 77 20 68 65 6c 70 69 6e 67 20 6c 69 6e 65 73 20 w helping lines 1310: 2a 2f 0a 09 09 28 63 61 69 72 6f 2d 73 65 74 2d */...(cairo-set- 1320: 73 6f 75 72 63 65 2d 72 67 62 61 20 63 72 20 31 source-rgba cr 1 1330: 2e 20 30 2e 32 20 30 2e 32 20 30 2e 36 29 0a 09 . 0.2 0.2 0.6).. 1340: 09 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 .(cairo-set-line 1350: 2d 77 69 64 74 68 20 63 72 20 36 2e 30 29 0a 0a -width cr 6.0).. 1360: 09 09 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 ..(cairo-arc cr 1370: 78 63 20 79 63 20 31 30 2e 30 20 30 2e 20 28 2a xc yc 10.0 0. (* 1380: 20 32 20 70 69 29 29 0a 09 09 28 63 61 69 72 6f 2 pi))...(cairo 1390: 2d 66 69 6c 6c 20 63 72 29 0a 09 09 0a 09 09 28 -fill cr)......( 13a0: 63 61 69 72 6f 2d 61 72 63 20 63 72 20 78 63 20 cairo-arc cr xc 13b0: 79 63 20 72 61 64 69 75 73 20 61 6e 67 6c 65 31 yc radius angle1 13c0: 20 61 6e 67 6c 65 31 29 0a 09 09 28 63 61 69 72 angle1)...(cair 13d0: 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 78 63 20 o-line-to cr xc 13e0: 79 63 29 0a 09 09 28 63 61 69 72 6f 2d 61 72 63 yc)...(cairo-arc 13f0: 20 63 72 20 78 63 20 79 63 20 72 61 64 69 75 73 cr xc yc radius 1400: 20 61 6e 67 6c 65 32 20 61 6e 67 6c 65 32 29 0a angle2 angle2). 1410: 09 09 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f ..(cairo-line-to 1420: 20 63 72 20 78 63 20 79 63 29 0a 09 09 28 63 61 cr xc yc)...(ca 1430: 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 29 29 29 iro-stroke cr))) 1440: 29 0a 09 09 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 ).....(sample-ca 1450: 69 72 6f 20 22 63 6c 69 70 22 20 0a 09 20 20 20 iro "clip" .. 1460: 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 (lambda (surfac 1470: 65 20 63 72 29 0a 09 20 20 20 20 20 20 28 63 61 e cr).. (ca 1480: 69 72 6f 2d 61 72 63 20 63 72 20 31 32 38 2e 30 iro-arc cr 128.0 1490: 20 31 32 38 2e 30 20 37 36 2e 38 20 30 2e 20 28 128.0 76.8 0. ( 14a0: 2a 20 32 2e 20 70 69 29 29 0a 09 20 20 20 20 20 * 2. pi)).. 14b0: 20 28 63 61 69 72 6f 2d 63 6c 69 70 20 63 72 29 (cairo-clip cr) 14c0: 0a 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d ... (cairo- 14d0: 6e 65 77 2d 70 61 74 68 20 63 72 29 20 20 20 20 new-path cr) 14e0: 20 20 20 3b 20 20 2f 2a 20 63 75 72 72 65 6e 74 ; /* current 14f0: 20 70 61 74 68 20 69 73 20 6e 6f 74 0a 09 09 09 path is not.... 1500: 20 20 20 20 20 20 20 20 20 09 3b 20 20 20 20 20 .; 1510: 63 6f 6e 73 75 6d 65 64 20 62 79 20 28 63 61 69 consumed by (cai 1520: 72 6f 2d 63 6c 69 70 28 29 20 2a 2f 0a 09 20 20 ro-clip() */.. 1530: 20 20 20 20 28 63 61 69 72 6f 2d 72 65 63 74 61 (cairo-recta 1540: 6e 67 6c 65 20 63 72 20 30 2e 20 30 2e 20 32 35 ngle cr 0. 0. 25 1550: 36 2e 20 32 35 36 2e 29 0a 09 20 20 20 20 20 20 6. 256.).. 1560: 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 72 29 0a (cairo-fill cr). 1570: 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d 73 65 . (cairo-se 1580: 74 2d 73 6f 75 72 63 65 2d 72 67 62 20 63 72 20 t-source-rgb cr 1590: 30 2e 20 31 2e 20 30 2e 29 0a 09 20 20 20 20 20 0. 1. 0.).. 15a0: 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 (cairo-move-to 15b0: 63 72 20 30 2e 20 30 2e 29 0a 09 20 20 20 20 20 cr 0. 0.).. 15c0: 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 (cairo-line-to 15d0: 63 72 20 32 35 36 2e 20 32 35 36 2e 29 0a 09 20 cr 256. 256.).. 15e0: 20 20 20 20 20 28 63 61 69 72 6f 2d 6d 6f 76 65 (cairo-move 15f0: 2d 74 6f 20 63 72 20 32 35 36 2e 20 30 2e 29 0a -to cr 256. 0.). 1600: 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d 6c 69 . (cairo-li 1610: 6e 65 2d 74 6f 20 63 72 20 30 2e 20 32 35 36 2e ne-to cr 0. 256. 1620: 29 0a 09 20 20 20 20 20 20 28 63 61 69 72 6f 2d ).. (cairo- 1630: 73 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 set-line-width c 1640: 72 20 31 30 2e 30 29 0a 09 20 20 20 20 20 20 28 r 10.0).. ( 1650: 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 29 cairo-stroke cr) 1660: 29 29 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 69 72 ))..(sample-cair 1670: 6f 20 22 63 6c 69 70 2d 69 6d 61 67 65 22 0a 09 o "clip-image".. 1680: 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 (lambda (s 1690: 75 72 66 61 63 65 20 63 72 29 0a 09 09 28 63 61 urface cr)...(ca 16a0: 69 72 6f 2d 61 72 63 20 63 72 20 31 32 38 2e 30 iro-arc cr 128.0 16b0: 20 31 32 38 2e 30 20 37 36 2e 38 20 30 2e 20 28 128.0 76.8 0. ( 16c0: 2a 20 32 20 70 69 29 29 0a 09 09 28 63 61 69 72 * 2 pi))...(cair 16d0: 6f 2d 63 6c 69 70 20 63 72 29 0a 09 09 28 63 61 o-clip cr)...(ca 16e0: 69 72 6f 2d 6e 65 77 2d 70 61 74 68 20 63 72 29 iro-new-path cr) 16f0: 3b 20 2f 2a 20 70 61 74 68 20 6e 6f 74 20 63 6f ; /* path not co 1700: 6e 73 75 6d 65 64 20 62 79 20 63 6c 69 70 28 29 nsumed by clip() 1710: 2a 2f 0a 0a 09 09 28 6c 65 74 2a 20 28 5b 69 6d */....(let* ([im 1720: 61 67 65 20 28 63 61 69 72 6f 2d 69 6d 61 67 65 age (cairo-image 1730: 2d 73 75 72 66 61 63 65 2d 63 72 65 61 74 65 2d -surface-create- 1740: 66 72 6f 6d 2d 70 6e 67 20 22 72 6f 6d 65 64 61 from-png "romeda 1750: 6c 65 6e 2e 70 6e 67 22 29 5d 0a 09 09 20 20 20 len.png")]... 1760: 20 20 20 20 5b 77 20 28 63 61 69 72 6f 2d 69 6d [w (cairo-im 1770: 61 67 65 2d 73 75 72 66 61 63 65 2d 67 65 74 2d age-surface-get- 1780: 77 69 64 74 68 20 69 6d 61 67 65 29 5d 0a 09 09 width image)]... 1790: 20 20 20 20 20 20 20 5b 68 20 28 63 61 69 72 6f [h (cairo 17a0: 2d 69 6d 61 67 65 2d 73 75 72 66 61 63 65 2d 67 -image-surface-g 17b0: 65 74 2d 68 65 69 67 68 74 20 69 6d 61 67 65 29 et-height image) 17c0: 5d 29 0a 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 ]).... (cairo-s 17d0: 63 61 6c 65 20 63 72 20 28 2f 20 32 35 36 2e 30 cale cr (/ 256.0 17e0: 20 77 29 20 28 2f 20 32 35 36 2e 30 20 68 29 29 w) (/ 256.0 h)) 17f0: 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 65 74 2d ... (cairo-set- 1800: 73 6f 75 72 63 65 2d 73 75 72 66 61 63 65 20 63 source-surface c 1810: 72 20 69 6d 61 67 65 20 30 2e 20 30 2e 29 0a 09 r image 0. 0.).. 1820: 09 20 20 28 63 61 69 72 6f 2d 70 61 69 6e 74 20 . (cairo-paint 1830: 63 72 29 29 29 29 0a 0a 28 73 61 6d 70 6c 65 2d cr))))..(sample- 1840: 63 61 69 72 6f 20 22 63 75 72 76 65 2d 72 65 63 cairo "curve-rec 1850: 74 61 6e 67 6c 65 22 0a 09 20 20 20 20 20 20 28 tangle".. ( 1860: 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 lambda (surface 1870: 63 72 29 0a 09 09 3b 20 61 20 63 75 73 74 6f 6d cr)...; a custom 1880: 20 73 68 61 70 65 20 74 68 61 74 20 63 6f 75 6c shape that coul 1890: 64 20 62 65 20 77 72 61 70 70 65 64 20 69 6e 20 d be wrapped in 18a0: 61 20 66 75 6e 63 74 69 6f 6e 0a 09 09 28 6c 65 a function...(le 18b0: 74 2a 20 28 5b 78 30 20 32 35 2e 36 5d 20 3b 20 t* ([x0 25.6] ; 18c0: 20 20 70 61 72 61 6d 65 74 65 72 73 20 6c 69 6b parameters lik 18d0: 65 20 63 61 69 72 6f 5f 72 65 63 74 61 6e 67 6c e cairo_rectangl 18e0: 65 20 0a 09 09 20 20 20 20 20 20 20 5b 79 30 20 e ... [y0 18f0: 32 35 2e 36 5d 0a 09 09 20 20 20 20 20 20 20 5b 25.6]... [ 1900: 72 65 63 74 2d 77 69 64 74 68 20 32 30 34 2e 38 rect-width 204.8 1910: 5d 0a 09 09 20 20 20 20 20 20 20 5b 72 65 63 74 ]... [rect 1920: 2d 68 65 69 67 68 74 20 32 30 34 2e 38 5d 0a 09 -height 204.8].. 1930: 09 20 20 20 20 20 20 20 5b 72 61 64 69 75 73 20 . [radius 1940: 20 31 30 32 2e 34 5d 20 3b 20 20 20 61 6e 64 20 102.4] ; and 1950: 61 6e 20 61 70 70 72 6f 78 69 6d 61 74 65 20 63 an approximate c 1960: 75 72 76 61 74 75 72 65 20 72 61 64 69 75 73 20 urvature radius 1970: 0a 09 09 20 20 20 20 20 20 20 0a 09 09 20 20 20 ... ... 1980: 20 20 20 20 5b 78 31 20 28 2b 20 78 30 20 72 65 [x1 (+ x0 re 1990: 63 74 2d 77 69 64 74 68 29 5d 0a 09 09 20 20 20 ct-width)]... 19a0: 20 20 20 20 5b 79 31 20 28 2b 20 79 30 20 72 65 [y1 (+ y0 re 19b0: 63 74 2d 68 65 69 67 68 74 29 5d 29 0a 09 09 20 ct-height)])... 19c0: 20 3b 3b 20 57 48 41 54 20 49 53 20 54 48 49 53 ;; WHAT IS THIS 19d0: 3f 0a 09 09 20 20 3b 3b 69 66 20 28 21 72 65 63 ?... ;;if (!rec 19e0: 74 5f 77 69 64 74 68 20 7c 7c 20 21 72 65 63 74 t_width || !rect 19f0: 5f 68 65 69 67 68 74 29 0a 09 09 20 20 3b 3b 72 _height)... ;;r 1a00: 65 74 75 72 6e 3b 0a 0a 09 09 20 20 28 63 6f 6e eturn;.... (con 1a10: 64 20 5b 28 3c 20 28 2f 20 72 65 63 74 2d 77 69 d [(< (/ rect-wi 1a20: 64 74 68 20 32 29 20 72 61 64 69 75 73 29 20 0a dth 2) radius) . 1a30: 09 09 09 20 28 63 6f 6e 64 20 5b 28 3c 20 28 2f ... (cond [(< (/ 1a40: 20 72 65 63 74 2d 68 65 69 67 68 74 20 32 29 20 rect-height 2) 1a50: 72 61 64 69 75 73 29 0a 09 09 09 09 28 63 61 69 radius).....(cai 1a60: 72 6f 2d 6d 6f 76 65 2d 74 6f 20 20 63 72 20 78 ro-move-to cr x 1a70: 30 20 28 2f 20 28 2b 20 79 30 20 79 31 29 20 32 0 (/ (+ y0 y1) 2 1a80: 29 29 0a 09 09 09 09 28 63 61 69 72 6f 2d 63 75 )).....(cairo-cu 1a90: 72 76 65 2d 74 6f 20 63 72 20 78 30 20 79 30 20 rve-to cr x0 y0 1aa0: 78 30 20 79 30 20 28 2f 20 28 2b 20 78 30 20 78 x0 y0 (/ (+ x0 x 1ab0: 31 29 20 32 29 20 79 30 29 0a 09 09 09 09 28 63 1) 2) y0).....(c 1ac0: 61 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 airo-curve-to cr 1ad0: 20 78 31 20 79 30 20 78 31 20 79 30 20 78 31 20 x1 y0 x1 y0 x1 1ae0: 28 2f 20 28 2b 20 79 30 20 79 31 29 20 32 29 29 (/ (+ y0 y1) 2)) 1af0: 0a 09 09 09 09 28 63 61 69 72 6f 2d 63 75 72 76 .....(cairo-curv 1b00: 65 2d 74 6f 20 63 72 20 78 31 20 79 31 20 78 31 e-to cr x1 y1 x1 1b10: 20 79 31 20 28 2f 20 28 2b 20 78 31 20 78 30 29 y1 (/ (+ x1 x0) 1b20: 20 32 29 20 79 31 29 0a 09 09 09 09 28 63 61 69 2) y1).....(cai 1b30: 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 20 78 ro-curve-to cr x 1b40: 30 20 79 31 20 78 30 20 79 31 20 78 30 20 28 2f 0 y1 x0 y1 x0 (/ 1b50: 20 28 2b 20 79 30 20 79 31 29 20 32 29 29 5d 0a (+ y0 y1) 2))]. 1b60: 09 09 09 20 20 20 20 20 20 20 5b 65 6c 73 65 0a ... [else. 1b70: 09 09 09 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d ....(cairo-move- 1b80: 74 6f 20 20 63 72 20 78 30 20 28 2b 20 79 30 20 to cr x0 (+ y0 1b90: 72 61 64 69 75 73 29 29 0a 09 09 09 09 28 63 61 radius)).....(ca 1ba0: 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 20 iro-curve-to cr 1bb0: 78 30 20 79 30 20 78 30 20 79 30 20 28 2f 20 28 x0 y0 x0 y0 (/ ( 1bc0: 2b 20 78 30 20 78 31 29 20 32 29 20 79 30 29 0a + x0 x1) 2) y0). 1bd0: 09 09 09 09 28 63 61 69 72 6f 2d 63 75 72 76 65 ....(cairo-curve 1be0: 2d 74 6f 20 63 72 20 78 31 20 79 30 20 78 31 20 -to cr x1 y0 x1 1bf0: 79 30 20 78 31 20 28 2b 20 79 30 20 72 61 64 69 y0 x1 (+ y0 radi 1c00: 75 73 29 29 0a 09 09 09 09 28 63 61 69 72 6f 2d us)).....(cairo- 1c10: 6c 69 6e 65 2d 74 6f 20 63 72 20 78 31 20 20 79 line-to cr x1 y 1c20: 31 20 2d 20 72 61 64 69 75 73 29 0a 09 09 09 09 1 - radius)..... 1c30: 28 63 61 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 (cairo-curve-to 1c40: 63 72 20 78 31 20 79 31 20 78 31 20 79 31 20 28 cr x1 y1 x1 y1 ( 1c50: 2f 20 28 2b 20 78 31 20 78 30 29 20 32 29 20 79 / (+ x1 x0) 2) y 1c60: 31 29 0a 09 09 09 09 28 63 61 69 72 6f 2d 63 75 1).....(cairo-cu 1c70: 72 76 65 2d 74 6f 20 63 72 20 78 30 20 79 31 20 rve-to cr x0 y1 1c80: 78 30 20 79 31 20 78 30 20 28 2d 20 79 31 20 72 x0 y1 x0 (- y1 r 1c90: 61 64 69 75 73 29 29 5d 29 5d 0a 09 09 09 5b 65 adius))])]....[e 1ca0: 6c 73 65 0a 09 09 09 20 28 63 6f 6e 64 20 20 5b lse.... (cond [ 1cb0: 28 3c 20 28 2f 20 72 65 63 74 2d 68 65 69 67 68 (< (/ rect-heigh 1cc0: 74 20 32 29 20 72 61 64 69 75 73 29 0a 09 09 09 t 2) radius).... 1cd0: 09 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f . (cairo-move-to 1ce0: 20 20 63 72 20 78 30 20 28 2f 20 28 2b 20 79 30 cr x0 (/ (+ y0 1cf0: 20 79 31 29 20 32 29 29 0a 09 09 09 09 20 28 63 y1) 2))..... (c 1d00: 61 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 airo-curve-to cr 1d10: 20 78 30 20 20 79 30 20 78 30 20 20 79 30 20 28 x0 y0 x0 y0 ( 1d20: 2b 20 78 30 20 72 61 64 69 75 73 29 20 79 30 29 + x0 radius) y0) 1d30: 0a 09 09 09 09 20 28 63 61 69 72 6f 2d 6c 69 6e ..... (cairo-lin 1d40: 65 2d 74 6f 20 63 72 20 28 2d 20 78 31 20 72 61 e-to cr (- x1 ra 1d50: 64 69 75 73 29 20 79 30 29 0a 09 09 09 09 20 28 dius) y0)..... ( 1d60: 63 61 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 cairo-curve-to c 1d70: 72 20 78 31 20 79 30 20 78 31 20 79 30 20 78 31 r x1 y0 x1 y0 x1 1d80: 20 28 2f 20 28 2b 20 79 30 20 79 31 29 20 32 29 (/ (+ y0 y1) 2) 1d90: 29 0a 09 09 09 09 20 28 63 61 69 72 6f 2d 63 75 )..... (cairo-cu 1da0: 72 76 65 2d 74 6f 20 63 72 20 78 31 20 79 31 20 rve-to cr x1 y1 1db0: 78 31 20 79 31 20 28 2d 20 78 31 20 72 61 64 69 x1 y1 (- x1 radi 1dc0: 75 73 29 20 79 31 29 0a 09 09 09 09 20 28 63 61 us) y1)..... (ca 1dd0: 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 28 iro-line-to cr ( 1de0: 2b 20 78 30 20 72 61 64 69 75 73 29 20 79 31 29 + x0 radius) y1) 1df0: 0a 09 09 09 09 20 28 63 61 69 72 6f 2d 63 75 72 ..... (cairo-cur 1e00: 76 65 2d 74 6f 20 63 72 20 78 30 20 79 31 20 78 ve-to cr x0 y1 x 1e10: 30 20 79 31 20 78 30 20 28 2f 20 28 2b 20 79 30 0 y1 x0 (/ (+ y0 1e20: 20 79 31 29 20 32 29 29 5d 0a 09 09 09 09 5b 65 y1) 2))].....[e 1e30: 6c 73 65 0a 09 09 09 09 20 28 63 61 69 72 6f 2d lse..... (cairo- 1e40: 6d 6f 76 65 2d 74 6f 20 20 63 72 20 78 30 20 28 move-to cr x0 ( 1e50: 2b 20 79 30 20 72 61 64 69 75 73 29 29 0a 09 09 + y0 radius))... 1e60: 09 09 20 28 63 61 69 72 6f 2d 63 75 72 76 65 2d .. (cairo-curve- 1e70: 74 6f 20 63 72 20 78 30 20 20 79 30 20 78 30 20 to cr x0 y0 x0 1e80: 20 79 30 20 28 2b 20 78 30 20 72 61 64 69 75 73 y0 (+ x0 radius 1e90: 29 20 79 30 29 0a 09 09 09 09 20 28 63 61 69 72 ) y0)..... (cair 1ea0: 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 28 2d 20 o-line-to cr (- 1eb0: 78 31 20 72 61 64 69 75 73 29 20 79 30 29 0a 09 x1 radius) y0).. 1ec0: 09 09 09 20 28 63 61 69 72 6f 2d 63 75 72 76 65 ... (cairo-curve 1ed0: 2d 74 6f 20 63 72 20 78 31 20 79 30 20 78 31 20 -to cr x1 y0 x1 1ee0: 79 30 20 78 31 20 28 2b 20 79 30 20 72 61 64 69 y0 x1 (+ y0 radi 1ef0: 75 73 29 29 0a 09 09 09 09 20 28 63 61 69 72 6f us))..... (cairo 1f00: 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 78 31 20 20 -line-to cr x1 1f10: 28 2d 20 79 31 20 72 61 64 69 75 73 29 29 0a 09 (- y1 radius)).. 1f20: 09 09 09 20 28 63 61 69 72 6f 2d 63 75 72 76 65 ... (cairo-curve 1f30: 2d 74 6f 20 63 72 20 78 31 20 79 31 20 78 31 20 -to cr x1 y1 x1 1f40: 79 31 20 28 2d 20 78 31 20 72 61 64 69 75 73 29 y1 (- x1 radius) 1f50: 20 79 31 29 0a 09 09 09 09 20 28 63 61 69 72 6f y1)..... (cairo 1f60: 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 28 2b 20 78 -line-to cr (+ x 1f70: 30 20 72 61 64 69 75 73 29 20 79 31 29 0a 09 09 0 radius) y1)... 1f80: 09 09 20 28 63 61 69 72 6f 2d 63 75 72 76 65 2d .. (cairo-curve- 1f90: 74 6f 20 63 72 20 78 30 20 79 31 20 78 30 20 79 to cr x0 y1 x0 y 1fa0: 31 20 78 30 20 28 2d 20 79 31 20 72 61 64 69 75 1 x0 (- y1 radiu 1fb0: 73 29 29 5d 29 5d 29 0a 0a 09 09 09 20 28 63 61 s))])])..... (ca 1fc0: 69 72 6f 2d 63 6c 6f 73 65 2d 70 61 74 68 20 63 iro-close-path c 1fd0: 72 29 0a 09 09 09 20 28 63 61 69 72 6f 2d 73 65 r).... (cairo-se 1fe0: 74 2d 73 6f 75 72 63 65 2d 72 67 62 20 63 72 20 t-source-rgb cr 1ff0: 30 2e 35 20 30 2e 35 20 31 2e 29 0a 09 09 09 20 0.5 0.5 1.).... 2000: 28 63 61 69 72 6f 2d 66 69 6c 6c 2d 70 72 65 73 (cairo-fill-pres 2010: 65 72 76 65 20 63 72 29 0a 09 09 09 20 28 63 61 erve cr).... (ca 2020: 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 iro-set-source-r 2030: 67 62 61 20 63 72 20 30 2e 35 20 30 2e 20 30 2e gba cr 0.5 0. 0. 2040: 20 30 2e 35 29 0a 09 09 09 20 28 63 61 69 72 6f 0.5).... (cairo 2050: 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 -set-line-width 2060: 63 72 20 31 30 2e 30 29 0a 09 09 09 20 28 63 61 cr 10.0).... (ca 2070: 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 29 29 29 iro-stroke cr))) 2080: 29 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 69 72 6f )..(sample-cairo 2090: 20 22 63 75 72 76 65 2d 74 6f 22 0a 09 20 20 20 "curve-to".. 20a0: 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 (lambda (surf 20b0: 61 63 65 20 63 72 29 0a 09 09 28 6c 65 74 20 28 ace cr)...(let ( 20c0: 5b 78 20 32 35 2e 36 5d 20 5b 79 20 31 32 38 2e [x 25.6] [y 128. 20d0: 30 5d 0a 09 09 20 20 20 20 20 20 5b 78 31 20 31 0]... [x1 1 20e0: 30 32 2e 34 5d 20 5b 79 31 20 32 33 30 2e 34 5d 02.4] [y1 230.4] 20f0: 0a 09 09 20 20 20 20 20 20 5b 78 32 20 31 35 33 ... [x2 153 2100: 2e 36 5d 20 5b 79 32 20 32 35 2e 36 5d 0a 09 09 .6] [y2 25.6]... 2110: 20 20 20 20 20 20 5b 78 33 20 32 33 30 2e 34 5d [x3 230.4] 2120: 20 5b 79 33 20 31 32 38 2e 30 5d 29 0a 0a 09 09 [y3 128.0]).... 2130: 20 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f (cairo-move-to 2140: 20 63 72 20 78 20 79 29 0a 09 09 20 20 28 63 61 cr x y)... (ca 2150: 69 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 20 iro-curve-to cr 2160: 78 31 20 79 31 20 78 32 20 79 32 20 78 33 20 79 x1 y1 x2 y2 x3 y 2170: 33 29 0a 09 09 20 20 0a 09 09 20 20 28 63 61 69 3)... ... (cai 2180: 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 74 ro-set-line-widt 2190: 68 20 63 72 20 31 30 2e 30 29 0a 09 09 20 20 28 h cr 10.0)... ( 21a0: 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 29 cairo-stroke cr) 21b0: 0a 09 09 20 20 0a 09 09 20 20 28 63 61 69 72 6f ... ... (cairo 21c0: 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 61 -set-source-rgba 21d0: 20 63 72 20 31 2e 20 30 2e 32 20 30 2e 32 20 30 cr 1. 0.2 0.2 0 21e0: 2e 36 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 .6)... (cairo-s 21f0: 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 et-line-width cr 2200: 20 36 2e 30 29 0a 09 09 20 20 28 63 61 69 72 6f 6.0)... (cairo 2210: 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 78 20 79 29 -move-to cr x y) 2220: 20 20 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 (cairo-line-t 2230: 6f 20 63 72 20 78 31 20 79 31 29 0a 09 09 20 20 o cr x1 y1)... 2240: 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 63 (cairo-move-to c 2250: 72 20 78 32 20 79 32 29 20 28 63 61 69 72 6f 2d r x2 y2) (cairo- 2260: 6c 69 6e 65 2d 74 6f 20 63 72 20 78 33 20 79 33 line-to cr x3 y3 2270: 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 74 72 )... (cairo-str 2280: 6f 6b 65 20 63 72 29 29 29 29 0a 0a 0a 28 73 61 oke cr))))...(sa 2290: 6d 70 6c 65 2d 63 61 69 72 6f 20 22 64 61 73 68 mple-cairo "dash 22a0: 22 0a 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 ".. (lambda 22b0: 20 28 73 75 72 66 61 63 65 20 63 72 29 0a 09 09 (surface cr)... 22c0: 28 6c 65 74 20 28 5b 64 61 73 68 65 73 20 27 23 (let ([dashes '# 22d0: 28 35 30 2e 30 20 20 20 20 3b 20 69 6e 6b 20 0a (50.0 ; ink . 22e0: 09 09 09 09 20 31 30 2e 30 20 20 20 20 3b 20 73 .... 10.0 ; s 22f0: 6b 69 70 0a 09 09 09 09 20 31 30 2e 30 20 20 20 kip..... 10.0 2300: 20 3b 20 69 6e 6b 20 0a 09 09 09 09 20 31 30 2e ; ink ..... 10. 2310: 30 29 5d 20 20 3b 20 73 6b 69 70 0a 09 09 20 20 0)] ; skip... 2320: 20 20 20 20 5b 6f 66 66 73 65 74 20 2d 35 30 2e [offset -50. 2330: 5d 29 0a 09 20 20 20 20 20 20 20 0a 09 09 20 20 ]).. ... 2340: 28 63 61 69 72 6f 2d 73 65 74 2d 64 61 73 68 20 (cairo-set-dash 2350: 63 72 20 64 61 73 68 65 73 20 28 76 65 63 74 6f cr dashes (vecto 2360: 72 2d 6c 65 6e 67 74 68 20 64 61 73 68 65 73 29 r-length dashes) 2370: 20 6f 66 66 73 65 74 29 0a 09 09 20 20 28 63 61 offset)... (ca 2380: 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 iro-set-line-wid 2390: 74 68 20 63 72 20 31 30 2e 30 29 0a 0a 09 09 20 th cr 10.0).... 23a0: 20 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 (cairo-move-to 23b0: 63 72 20 31 32 38 2e 30 20 32 35 2e 36 29 0a 09 cr 128.0 25.6).. 23c0: 09 20 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 . (cairo-line-t 23d0: 6f 20 63 72 20 32 33 30 2e 34 20 32 33 30 2e 34 o cr 230.4 230.4 23e0: 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 72 65 6c )... (cairo-rel 23f0: 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 2d 31 30 32 -line-to cr -102 2400: 2e 34 20 30 2e 30 29 0a 09 09 20 20 28 63 61 69 .4 0.0)... (cai 2410: 72 6f 2d 63 75 72 76 65 2d 74 6f 20 63 72 20 35 ro-curve-to cr 5 2420: 31 2e 32 20 32 33 30 2e 34 20 35 31 2e 32 20 31 1.2 230.4 51.2 1 2430: 32 38 2e 30 20 31 32 38 2e 30 20 31 32 38 2e 30 28.0 128.0 128.0 2440: 29 0a 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 74 ).... (cairo-st 2450: 72 6f 6b 65 20 63 72 29 29 29 29 0a 0a 28 73 61 roke cr))))..(sa 2460: 6d 70 6c 65 2d 63 61 69 72 6f 20 22 66 69 6c 6c mple-cairo "fill 2470: 2d 61 6e 64 2d 73 74 72 6f 6b 65 32 22 0a 09 20 -and-stroke2".. 2480: 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 (lambda (su 2490: 72 66 61 63 65 20 63 72 29 0a 09 09 28 63 61 69 rface cr)...(cai 24a0: 72 6f 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 31 32 ro-move-to cr 12 24b0: 38 2e 30 20 32 35 2e 36 29 0a 09 09 28 63 61 69 8.0 25.6)...(cai 24c0: 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 32 33 ro-line-to cr 23 24d0: 30 2e 34 20 32 33 30 2e 34 29 0a 09 09 28 63 61 0.4 230.4)...(ca 24e0: 69 72 6f 2d 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 iro-rel-line-to 24f0: 63 72 20 2d 31 30 32 2e 34 20 30 2e 30 29 0a 09 cr -102.4 0.0).. 2500: 09 28 63 61 69 72 6f 2d 63 75 72 76 65 2d 74 6f .(cairo-curve-to 2510: 20 63 72 20 35 31 2e 32 20 32 33 30 2e 34 20 35 cr 51.2 230.4 5 2520: 31 2e 32 20 31 32 38 2e 30 20 31 32 38 2e 30 20 1.2 128.0 128.0 2530: 31 32 38 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 128.0)...(cairo- 2540: 63 6c 6f 73 65 2d 70 61 74 68 20 63 72 29 0a 09 close-path cr).. 2550: 09 0a 09 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d ....(cairo-move- 2560: 74 6f 20 63 72 20 36 34 2e 30 20 32 35 2e 36 29 to cr 64.0 25.6) 2570: 0a 09 09 28 63 61 69 72 6f 2d 72 65 6c 2d 6c 69 ...(cairo-rel-li 2580: 6e 65 2d 74 6f 20 63 72 20 35 31 2e 32 20 35 31 ne-to cr 51.2 51 2590: 2e 32 29 0a 09 09 28 63 61 69 72 6f 2d 72 65 6c .2)...(cairo-rel 25a0: 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 2d 35 31 2e -line-to cr -51. 25b0: 32 20 35 31 2e 32 29 0a 09 09 28 63 61 69 72 6f 2 51.2)...(cairo 25c0: 2d 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 -rel-line-to cr 25d0: 2d 35 31 2e 32 20 2d 35 31 2e 32 29 0a 09 09 28 -51.2 -51.2)...( 25e0: 63 61 69 72 6f 2d 63 6c 6f 73 65 2d 70 61 74 68 cairo-close-path 25f0: 20 63 72 29 0a 09 09 0a 09 09 28 63 61 69 72 6f cr)......(cairo 2600: 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 -set-line-width 2610: 63 72 20 31 30 2e 30 29 0a 09 09 28 63 61 69 72 cr 10.0)...(cair 2620: 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 o-set-source-rgb 2630: 20 63 72 20 30 2e 20 30 2e 20 31 2e 29 0a 09 09 cr 0. 0. 1.)... 2640: 28 63 61 69 72 6f 2d 66 69 6c 6c 2d 70 72 65 73 (cairo-fill-pres 2650: 65 72 76 65 20 63 72 29 0a 09 09 28 63 61 69 72 erve cr)...(cair 2660: 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 o-set-source-rgb 2670: 20 63 72 20 30 2e 20 30 2e 20 30 2e 29 0a 09 09 cr 0. 0. 0.)... 2680: 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 63 72 (cairo-stroke cr 2690: 29 29 29 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 69 )))..(sample-cai 26a0: 72 6f 20 22 66 69 6c 6c 2d 73 74 79 6c 65 22 0a ro "fill-style". 26b0: 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 . (lambda ( 26c0: 73 75 72 66 61 63 65 20 63 72 29 0a 09 09 0a 09 surface cr)..... 26d0: 09 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 .(cairo-set-line 26e0: 2d 77 69 64 74 68 20 63 72 20 36 2e 29 0a 09 09 -width cr 6.)... 26f0: 0a 09 09 28 63 61 69 72 6f 2d 72 65 63 74 61 6e ...(cairo-rectan 2700: 67 6c 65 20 63 72 20 31 32 2e 20 31 32 2e 20 32 gle cr 12. 12. 2 2710: 33 32 2e 20 37 30 2e 29 0a 09 09 28 63 61 69 72 32. 70.)...(cair 2720: 6f 2d 6e 65 77 2d 73 75 62 2d 70 61 74 68 20 63 o-new-sub-path c 2730: 72 29 20 28 63 61 69 72 6f 2d 61 72 63 20 63 72 r) (cairo-arc cr 2740: 20 36 34 2e 20 36 34 2e 20 34 30 2e 20 30 2e 20 64. 64. 40. 0. 2750: 28 2a 20 32 20 70 69 29 29 0a 09 09 28 63 61 69 (* 2 pi))...(cai 2760: 72 6f 2d 6e 65 77 2d 73 75 62 2d 70 61 74 68 20 ro-new-sub-path 2770: 63 72 29 20 28 63 61 69 72 6f 2d 61 72 63 2d 6e cr) (cairo-arc-n 2780: 65 67 61 74 69 76 65 20 63 72 20 31 39 32 2e 20 egative cr 192. 2790: 36 34 2e 20 34 30 2e 20 30 2e 20 28 2a 20 2d 32 64. 40. 0. (* -2 27a0: 20 70 69 29 29 0a 0a 09 09 28 63 61 69 72 6f 2d pi))....(cairo- 27b0: 73 65 74 2d 66 69 6c 6c 2d 72 75 6c 65 20 63 72 set-fill-rule cr 27c0: 20 28 63 61 69 72 6f 2d 66 69 6c 6c 2d 72 75 6c (cairo-fill-rul 27d0: 65 20 27 65 76 65 6e 2d 6f 64 64 29 29 0a 09 09 e 'even-odd))... 27e0: 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 (cairo-set-sourc 27f0: 65 2d 72 67 62 20 63 72 20 30 2e 20 30 2e 37 20 e-rgb cr 0. 0.7 2800: 30 2e 29 20 28 63 61 69 72 6f 2d 66 69 6c 6c 2d 0.) (cairo-fill- 2810: 70 72 65 73 65 72 76 65 20 63 72 29 0a 09 09 28 preserve cr)...( 2820: 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 cairo-set-source 2830: 2d 72 67 62 20 63 72 20 30 2e 20 30 2e 20 30 2e -rgb cr 0. 0. 0. 2840: 29 20 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 ) (cairo-stroke 2850: 63 72 29 0a 0a 09 09 28 63 61 69 72 6f 2d 74 72 cr)....(cairo-tr 2860: 61 6e 73 6c 61 74 65 20 63 72 20 30 2e 20 31 32 anslate cr 0. 12 2870: 38 2e 29 0a 09 09 28 63 61 69 72 6f 2d 72 65 63 8.)...(cairo-rec 2880: 74 61 6e 67 6c 65 20 63 72 20 31 32 2e 20 31 32 tangle cr 12. 12 2890: 2e 20 32 33 32 2e 20 37 30 2e 29 0a 09 09 28 63 . 232. 70.)...(c 28a0: 61 69 72 6f 2d 6e 65 77 2d 73 75 62 2d 70 61 74 airo-new-sub-pat 28b0: 68 20 63 72 29 20 28 63 61 69 72 6f 2d 61 72 63 h cr) (cairo-arc 28c0: 20 63 72 20 36 34 2e 20 36 34 2e 20 34 30 2e 20 cr 64. 64. 40. 28d0: 30 2e 20 28 2a 20 32 20 70 69 29 29 0a 09 09 28 0. (* 2 pi))...( 28e0: 63 61 69 72 6f 2d 6e 65 77 2d 73 75 62 2d 70 61 cairo-new-sub-pa 28f0: 74 68 20 63 72 29 20 28 63 61 69 72 6f 2d 61 72 th cr) (cairo-ar 2900: 63 2d 6e 65 67 61 74 69 76 65 20 63 72 20 31 39 c-negative cr 19 2910: 32 2e 20 36 34 2e 20 34 30 2e 20 30 2e 20 28 2a 2. 64. 40. 0. (* 2920: 20 2d 32 20 70 69 29 29 0a 0a 09 09 28 63 61 69 -2 pi))....(cai 2930: 72 6f 2d 73 65 74 2d 66 69 6c 6c 2d 72 75 6c 65 ro-set-fill-rule 2940: 20 63 72 20 28 63 61 69 72 6f 2d 66 69 6c 6c 2d cr (cairo-fill- 2950: 72 75 6c 65 20 27 77 69 6e 64 69 6e 67 29 29 0a rule 'winding)). 2960: 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 ..(cairo-set-sou 2970: 72 63 65 2d 72 67 62 20 63 72 20 30 2e 20 30 2e rce-rgb cr 0. 0. 2980: 20 30 2e 39 29 20 28 63 61 69 72 6f 2d 66 69 6c 0.9) (cairo-fil 2990: 6c 2d 70 72 65 73 65 72 76 65 20 63 72 29 0a 09 l-preserve cr).. 29a0: 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 .(cairo-set-sour 29b0: 63 65 2d 72 67 62 20 63 72 20 30 2e 20 30 2e 20 ce-rgb cr 0. 0. 29c0: 30 2e 29 20 28 63 61 69 72 6f 2d 73 74 72 6f 6b 0.) (cairo-strok 29d0: 65 20 63 72 29 29 29 0a 0a 28 73 61 6d 70 6c 65 e cr)))..(sample 29e0: 2d 63 61 69 72 6f 20 22 67 72 61 64 69 65 6e 74 -cairo "gradient 29f0: 22 0a 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 ".. (lambda 2a00: 20 28 73 75 72 66 61 63 65 20 63 72 29 0a 09 09 (surface cr)... 2a10: 28 6c 65 74 20 28 5b 70 61 74 20 28 63 61 69 72 (let ([pat (cair 2a20: 6f 2d 70 61 74 74 65 72 6e 2d 63 72 65 61 74 65 o-pattern-create 2a30: 2d 6c 69 6e 65 61 72 20 30 2e 30 20 30 2e 30 20 -linear 0.0 0.0 2a40: 20 30 2e 30 20 32 35 36 2e 30 29 5d 29 0a 09 09 0.0 256.0)])... 2a50: 20 20 28 63 61 69 72 6f 2d 70 61 74 74 65 72 6e (cairo-pattern 2a60: 2d 61 64 64 2d 63 6f 6c 6f 72 2d 73 74 6f 70 2d -add-color-stop- 2a70: 72 67 62 61 20 70 61 74 20 31 20 30 20 30 20 30 rgba pat 1 0 0 0 2a80: 20 31 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 70 1)... (cairo-p 2a90: 61 74 74 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 attern-add-color 2aa0: 2d 73 74 6f 70 2d 72 67 62 61 20 70 61 74 20 30 -stop-rgba pat 0 2ab0: 20 31 20 31 20 31 20 31 29 0a 09 09 20 20 28 63 1 1 1 1)... (c 2ac0: 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 20 63 airo-rectangle c 2ad0: 72 20 30 20 30 20 32 35 36 20 32 35 36 29 0a 09 r 0 0 256 256).. 2ae0: 09 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f . (cairo-set-so 2af0: 75 72 63 65 20 63 72 20 70 61 74 29 0a 09 09 20 urce cr pat)... 2b00: 20 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 72 29 (cairo-fill cr) 2b10: 29 0a 09 09 28 6c 65 74 20 28 5b 70 61 74 20 28 )...(let ([pat ( 2b20: 63 61 69 72 6f 2d 70 61 74 74 65 72 6e 2d 63 72 cairo-pattern-cr 2b30: 65 61 74 65 2d 72 61 64 69 61 6c 20 31 31 35 2e eate-radial 115. 2b40: 32 20 31 30 32 2e 34 20 32 35 2e 36 20 31 30 32 2 102.4 25.6 102 2b50: 2e 34 20 20 31 30 32 2e 34 20 31 32 38 2e 30 29 .4 102.4 128.0) 2b60: 5d 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 70 61 ])... (cairo-pa 2b70: 74 74 65 72 6e 2d 61 64 64 2d 63 6f 6c 6f 72 2d ttern-add-color- 2b80: 73 74 6f 70 2d 72 67 62 61 20 70 61 74 20 30 20 stop-rgba pat 0 2b90: 31 20 31 20 31 20 31 29 0a 09 09 20 20 28 63 61 1 1 1 1)... (ca 2ba0: 69 72 6f 2d 70 61 74 74 65 72 6e 2d 61 64 64 2d iro-pattern-add- 2bb0: 63 6f 6c 6f 72 2d 73 74 6f 70 2d 72 67 62 61 20 color-stop-rgba 2bc0: 70 61 74 20 31 20 30 20 30 20 30 20 31 29 0a 09 pat 1 0 0 0 1).. 2bd0: 09 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f . (cairo-set-so 2be0: 75 72 63 65 20 63 72 20 70 61 74 29 0a 09 09 20 urce cr pat)... 2bf0: 20 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 31 (cairo-arc cr 1 2c00: 32 38 2e 30 20 31 32 38 2e 30 20 37 36 2e 38 20 28.0 128.0 76.8 2c10: 30 20 28 2a 20 32 20 70 69 29 29 0a 09 09 20 20 0 (* 2 pi))... 2c20: 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 72 29 29 (cairo-fill cr)) 2c30: 29 29 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 69 72 ))..(sample-cair 2c40: 6f 20 22 69 6d 61 67 65 22 0a 09 20 20 20 20 20 o "image".. 2c50: 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 (lambda (surfac 2c60: 65 20 63 72 29 0a 09 09 28 6c 65 74 2a 20 28 5b e cr)...(let* ([ 2c70: 69 6d 61 67 65 20 28 63 61 69 72 6f 2d 69 6d 61 image (cairo-ima 2c80: 67 65 2d 73 75 72 66 61 63 65 2d 63 72 65 61 74 ge-surface-creat 2c90: 65 2d 66 72 6f 6d 2d 70 6e 67 20 22 72 6f 6d 65 e-from-png "rome 2ca0: 64 61 6c 65 6e 2e 70 6e 67 22 29 5d 0a 09 09 20 dalen.png")]... 2cb0: 20 20 20 20 20 20 5b 77 20 28 63 61 69 72 6f 2d [w (cairo- 2cc0: 69 6d 61 67 65 2d 73 75 72 66 61 63 65 2d 67 65 image-surface-ge 2cd0: 74 2d 77 69 64 74 68 20 69 6d 61 67 65 29 5d 0a t-width image)]. 2ce0: 09 09 20 20 20 20 20 20 20 5b 68 20 28 63 61 69 .. [h (cai 2cf0: 72 6f 2d 69 6d 61 67 65 2d 73 75 72 66 61 63 65 ro-image-surface 2d00: 2d 67 65 74 2d 68 65 69 67 68 74 20 69 6d 61 67 -get-height imag 2d10: 65 29 5d 29 0a 0a 09 09 20 20 28 63 61 69 72 6f e)]).... (cairo 2d20: 2d 74 72 61 6e 73 6c 61 74 65 20 63 72 20 31 32 -translate cr 12 2d30: 38 2e 30 20 31 32 38 2e 30 29 0a 09 09 20 20 28 8.0 128.0)... ( 2d40: 63 61 69 72 6f 2d 72 6f 74 61 74 65 20 63 72 20 cairo-rotate cr 2d50: 28 2a 20 34 35 20 28 2f 20 70 69 20 31 38 30 29 (* 45 (/ pi 180) 2d60: 29 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 63 ))... (cairo-sc 2d70: 61 6c 65 20 20 63 72 20 28 2f 20 32 35 36 2e 30 ale cr (/ 256.0 2d80: 20 77 29 20 28 2f 20 32 35 36 2e 30 20 68 29 29 w) (/ 256.0 h)) 2d90: 0a 09 09 20 20 28 63 61 69 72 6f 2d 74 72 61 6e ... (cairo-tran 2da0: 73 6c 61 74 65 20 63 72 20 28 2a 20 2d 30 2e 35 slate cr (* -0.5 2db0: 20 77 29 20 28 2a 20 2d 30 2e 35 20 68 29 29 0a w) (* -0.5 h)). 2dc0: 09 09 20 20 0a 09 09 20 20 28 63 61 69 72 6f 2d .. ... (cairo- 2dd0: 73 65 74 2d 73 6f 75 72 63 65 2d 73 75 72 66 61 set-source-surfa 2de0: 63 65 20 63 72 20 69 6d 61 67 65 20 30 20 30 29 ce cr image 0 0) 2df0: 0a 09 09 20 20 28 63 61 69 72 6f 2d 70 61 69 6e ... (cairo-pain 2e00: 74 20 63 72 29 29 29 29 0a 0a 28 73 61 6d 70 6c t cr))))..(sampl 2e10: 65 2d 63 61 69 72 6f 20 22 69 6d 61 67 65 2d 70 e-cairo "image-p 2e20: 61 74 74 65 72 6e 22 0a 09 20 20 20 20 20 20 28 attern".. ( 2e30: 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 lambda (surface 2e40: 63 72 29 0a 09 09 28 6c 65 74 2a 20 28 5b 69 6d cr)...(let* ([im 2e50: 61 67 65 20 28 63 61 69 72 6f 2d 69 6d 61 67 65 age (cairo-image 2e60: 2d 73 75 72 66 61 63 65 2d 63 72 65 61 74 65 2d -surface-create- 2e70: 66 72 6f 6d 2d 70 6e 67 20 22 72 6f 6d 65 64 61 from-png "romeda 2e80: 6c 65 6e 2e 70 6e 67 22 29 5d 0a 09 09 20 20 20 len.png")]... 2e90: 20 20 20 20 5b 77 20 28 63 61 69 72 6f 2d 69 6d [w (cairo-im 2ea0: 61 67 65 2d 73 75 72 66 61 63 65 2d 67 65 74 2d age-surface-get- 2eb0: 77 69 64 74 68 20 69 6d 61 67 65 29 5d 0a 09 09 width image)]... 2ec0: 20 20 20 20 20 20 20 5b 68 20 28 63 61 69 72 6f [h (cairo 2ed0: 2d 69 6d 61 67 65 2d 73 75 72 66 61 63 65 2d 67 -image-surface-g 2ee0: 65 74 2d 68 65 69 67 68 74 20 69 6d 61 67 65 29 et-height image) 2ef0: 5d 29 0a 09 09 20 20 28 6c 65 74 20 28 5b 70 61 ])... (let ([pa 2f00: 74 74 65 72 6e 20 28 63 61 69 72 6f 2d 70 61 74 ttern (cairo-pat 2f10: 74 65 72 6e 2d 63 72 65 61 74 65 2d 66 6f 72 2d tern-create-for- 2f20: 73 75 72 66 61 63 65 20 69 6d 61 67 65 29 5d 0a surface image)]. 2f30: 09 09 09 5b 6d 61 74 72 69 78 20 28 63 61 69 72 ...[matrix (cair 2f40: 6f 2d 6d 61 74 72 69 78 2d 63 72 65 61 74 65 29 o-matrix-create) 2f50: 5d 29 0a 09 09 20 20 20 20 28 63 61 69 72 6f 2d ])... (cairo- 2f60: 70 61 74 74 65 72 6e 2d 73 65 74 2d 65 78 74 65 pattern-set-exte 2f70: 6e 64 20 70 61 74 74 65 72 6e 20 28 63 61 69 72 nd pattern (cair 2f80: 6f 2d 65 78 74 65 6e 64 20 27 72 65 70 65 61 74 o-extend 'repeat 2f90: 29 29 0a 0a 09 09 20 20 20 20 28 63 61 69 72 6f )).... (cairo 2fa0: 2d 74 72 61 6e 73 6c 61 74 65 20 63 72 20 31 32 -translate cr 12 2fb0: 38 2e 30 20 31 32 38 2e 30 29 0a 09 09 20 20 20 8.0 128.0)... 2fc0: 20 28 63 61 69 72 6f 2d 72 6f 74 61 74 65 20 63 (cairo-rotate c 2fd0: 72 20 28 2f 20 70 69 20 34 29 29 0a 09 09 20 20 r (/ pi 4))... 2fe0: 20 20 28 63 61 69 72 6f 2d 73 63 61 6c 65 20 63 (cairo-scale c 2ff0: 72 20 28 2f 20 31 20 28 73 71 72 74 20 32 29 29 r (/ 1 (sqrt 2)) 3000: 20 28 2f 20 31 20 28 73 71 72 74 20 32 29 29 29 (/ 1 (sqrt 2))) 3010: 0a 09 09 20 20 20 20 28 63 61 69 72 6f 2d 74 72 ... (cairo-tr 3020: 61 6e 73 6c 61 74 65 20 63 72 20 2d 31 32 38 2e anslate cr -128. 3030: 30 20 2d 31 32 38 2e 30 29 0a 09 09 20 20 20 20 0 -128.0)... 3040: 0a 09 09 20 20 20 20 28 63 61 69 72 6f 2d 6d 61 ... (cairo-ma 3050: 74 72 69 78 2d 69 6e 69 74 2d 73 63 61 6c 65 20 trix-init-scale 3060: 6d 61 74 72 69 78 20 28 2a 20 28 2f 20 77 20 32 matrix (* (/ w 2 3070: 35 36 2e 30 29 20 35 2e 30 29 20 28 2a 20 28 2f 56.0) 5.0) (* (/ 3080: 20 68 20 32 35 36 2e 30 29 20 35 2e 30 29 29 0a h 256.0) 5.0)). 3090: 09 09 20 20 20 20 28 63 61 69 72 6f 2d 70 61 74 .. (cairo-pat 30a0: 74 65 72 6e 2d 73 65 74 2d 6d 61 74 72 69 78 20 tern-set-matrix 30b0: 70 61 74 74 65 72 6e 20 6d 61 74 72 69 78 29 0a pattern matrix). 30c0: 0a 09 09 20 20 20 20 28 63 61 69 72 6f 2d 73 65 ... (cairo-se 30d0: 74 2d 73 6f 75 72 63 65 20 63 72 20 70 61 74 74 t-source cr patt 30e0: 65 72 6e 29 0a 0a 09 09 20 20 20 20 28 63 61 69 ern).... (cai 30f0: 72 6f 2d 72 65 63 74 61 6e 67 6c 65 20 63 72 20 ro-rectangle cr 3100: 30 20 30 20 32 35 36 2e 30 20 32 35 36 2e 30 29 0 0 256.0 256.0) 3110: 0a 09 09 20 20 20 20 28 63 61 69 72 6f 2d 66 69 ... (cairo-fi 3120: 6c 6c 20 63 72 29 29 29 29 29 0a 0a 0a 28 73 61 ll cr)))))...(sa 3130: 6d 70 6c 65 2d 63 61 69 72 6f 20 22 6d 75 6c 74 mple-cairo "mult 3140: 69 2d 73 65 67 6d 65 6e 74 2d 63 61 70 73 22 0a i-segment-caps". 3150: 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 . (lambda ( 3160: 73 75 72 66 61 63 65 20 63 72 29 0a 09 09 28 63 surface cr)...(c 3170: 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 airo-move-to cr 3180: 35 30 2e 30 20 37 35 2e 30 29 0a 09 09 28 63 61 50.0 75.0)...(ca 3190: 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 32 iro-line-to cr 2 31a0: 30 30 2e 30 20 37 35 2e 30 29 0a 09 09 0a 09 09 00.0 75.0)...... 31b0: 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 63 (cairo-move-to c 31c0: 72 20 35 30 2e 30 20 31 32 35 2e 30 29 0a 09 09 r 50.0 125.0)... 31d0: 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 (cairo-line-to c 31e0: 72 20 32 30 30 2e 30 20 31 32 35 2e 30 29 0a 09 r 200.0 125.0).. 31f0: 09 0a 09 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d ....(cairo-move- 3200: 74 6f 20 63 72 20 35 30 2e 30 20 31 37 35 2e 30 to cr 50.0 175.0 3210: 29 0a 09 09 28 63 61 69 72 6f 2d 6c 69 6e 65 2d )...(cairo-line- 3220: 74 6f 20 63 72 20 32 30 30 2e 30 20 31 37 35 2e to cr 200.0 175. 3230: 30 29 0a 09 09 0a 09 09 28 63 61 69 72 6f 2d 73 0)......(cairo-s 3240: 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 et-line-width cr 3250: 20 33 30 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 30.0)...(cairo- 3260: 73 65 74 2d 6c 69 6e 65 2d 63 61 70 20 63 72 20 set-line-cap cr 3270: 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 63 61 70 20 (cairo-line-cap 3280: 27 72 6f 75 6e 64 29 29 0a 09 09 28 63 61 69 72 'round))...(cair 3290: 6f 2d 73 74 72 6f 6b 65 20 63 72 29 29 29 0a 0a o-stroke cr))).. 32a0: 28 73 61 6d 70 6c 65 2d 63 61 69 72 6f 20 22 72 (sample-cairo "r 32b0: 6f 75 6e 64 65 64 2d 72 65 63 74 61 6e 67 6c 65 ounded-rectangle 32c0: 22 0a 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 ".. (lambda 32d0: 20 28 73 75 72 66 61 63 65 20 63 72 29 0a 09 09 (surface cr)... 32e0: 3b 2f 2a 20 61 20 63 75 73 74 6f 6d 20 73 68 61 ;/* a custom sha 32f0: 70 65 20 74 68 61 74 20 63 6f 75 6c 64 20 62 65 pe that could be 3300: 20 77 72 61 70 70 65 64 20 69 6e 20 61 20 66 75 wrapped in a fu 3310: 6e 63 74 69 6f 6e 20 2a 2f 0a 09 09 28 6c 65 74 nction */...(let 3320: 2a 20 28 5b 78 20 32 35 2e 36 5d 20 3b 2f 2a 20 * ([x 25.6] ;/* 3330: 70 61 72 61 6d 65 74 65 72 73 20 6c 69 6b 65 20 parameters like 3340: 28 63 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 (cairo-rectangle 3350: 20 2a 2f 0a 09 09 20 20 20 20 20 20 20 5b 79 20 */... [y 3360: 32 35 2e 36 5d 0a 09 09 20 20 20 20 20 20 20 5b 25.6]... [ 3370: 77 69 64 74 68 20 32 30 34 2e 38 5d 0a 09 09 20 width 204.8]... 3380: 20 20 20 20 20 20 5b 68 65 69 67 68 74 20 32 30 [height 20 3390: 34 2e 38 5d 0a 09 09 20 20 20 20 20 20 20 5b 61 4.8]... [a 33a0: 73 70 65 63 74 20 31 2e 30 5d 20 3b 20 20 20 20 spect 1.0] ; 33b0: 20 2f 2a 20 61 73 70 65 63 74 20 72 61 74 69 6f /* aspect ratio 33c0: 20 2a 2f 0a 09 09 20 20 20 20 20 20 20 5b 63 6f */... [co 33d0: 72 6e 65 72 2d 72 61 64 69 75 73 20 28 2f 20 68 rner-radius (/ h 33e0: 65 69 67 68 74 20 31 30 2e 30 29 5d 20 3b 20 20 eight 10.0)] ; 33f0: 20 2f 2a 20 61 6e 64 20 63 6f 72 6e 65 72 20 63 /* and corner c 3400: 75 72 76 61 74 75 72 65 20 72 61 64 69 75 73 20 urvature radius 3410: 2a 2f 0a 09 09 20 20 20 20 20 20 20 5b 72 61 64 */... [rad 3420: 69 75 73 20 28 2f 20 63 6f 72 6e 65 72 2d 72 61 ius (/ corner-ra 3430: 64 69 75 73 20 61 73 70 65 63 74 29 5d 0a 09 09 dius aspect)]... 3440: 20 20 20 20 20 20 20 5b 64 65 67 72 65 65 73 20 [degrees 3450: 28 2f 20 70 69 20 31 38 30 2e 30 29 5d 29 0a 0a (/ pi 180.0)]).. 3460: 09 09 20 20 28 63 61 69 72 6f 2d 6e 65 77 2d 73 .. (cairo-new-s 3470: 75 62 2d 70 61 74 68 20 63 72 29 0a 09 09 20 20 ub-path cr)... 3480: 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 28 2d (cairo-arc cr (- 3490: 20 28 2b 20 78 20 20 77 69 64 74 68 29 20 72 61 (+ x width) ra 34a0: 64 69 75 73 29 20 28 2b 20 79 20 72 61 64 69 75 dius) (+ y radiu 34b0: 73 29 20 72 61 64 69 75 73 20 28 2a 20 2d 39 30 s) radius (* -90 34c0: 20 64 65 67 72 65 65 73 29 20 28 2a 20 30 20 64 degrees) (* 0 d 34d0: 65 67 72 65 65 73 29 29 0a 09 09 20 20 28 63 61 egrees))... (ca 34e0: 69 72 6f 2d 61 72 63 20 63 72 20 28 2d 20 28 2b iro-arc cr (- (+ 34f0: 20 78 20 77 69 64 74 68 29 20 72 61 64 69 75 73 x width) radius 3500: 29 20 28 2d 20 28 2b 20 79 20 68 65 69 67 68 74 ) (- (+ y height 3510: 29 20 72 61 64 69 75 73 29 20 72 61 64 69 75 73 ) radius) radius 3520: 20 28 2a 20 30 20 64 65 67 72 65 65 73 29 20 28 (* 0 degrees) ( 3530: 2a 20 39 30 20 64 65 67 72 65 65 73 29 29 0a 09 * 90 degrees)).. 3540: 09 20 20 28 63 61 69 72 6f 2d 61 72 63 20 63 72 . (cairo-arc cr 3550: 20 28 2b 20 78 20 72 61 64 69 75 73 29 20 28 2d (+ x radius) (- 3560: 20 28 2b 20 79 20 68 65 69 67 68 74 29 20 72 61 (+ y height) ra 3570: 64 69 75 73 29 20 72 61 64 69 75 73 20 28 2a 20 dius) radius (* 3580: 39 30 20 64 65 67 72 65 65 73 29 20 28 2a 20 31 90 degrees) (* 1 3590: 38 30 20 64 65 67 72 65 65 73 29 29 0a 09 09 20 80 degrees))... 35a0: 20 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 28 (cairo-arc cr ( 35b0: 2b 20 78 20 72 61 64 69 75 73 29 20 28 2b 20 79 + x radius) (+ y 35c0: 20 72 61 64 69 75 73 29 20 72 61 64 69 75 73 20 radius) radius 35d0: 28 2a 20 31 38 30 20 64 65 67 72 65 65 73 29 20 (* 180 degrees) 35e0: 28 2a 20 32 37 30 20 64 65 67 72 65 65 73 29 29 (* 270 degrees)) 35f0: 0a 09 09 20 20 28 63 61 69 72 6f 2d 63 6c 6f 73 ... (cairo-clos 3600: 65 2d 70 61 74 68 20 63 72 29 0a 09 09 20 20 0a e-path cr)... . 3610: 09 09 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 73 .. (cairo-set-s 3620: 6f 75 72 63 65 2d 72 67 62 20 63 72 20 30 2e 35 ource-rgb cr 0.5 3630: 20 30 2e 35 20 31 29 0a 09 09 20 20 28 63 61 69 0.5 1)... (cai 3640: 72 6f 2d 66 69 6c 6c 2d 70 72 65 73 65 72 76 65 ro-fill-preserve 3650: 20 63 72 29 0a 09 09 20 20 28 63 61 69 72 6f 2d cr)... (cairo- 3660: 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 61 20 set-source-rgba 3670: 63 72 20 30 2e 35 20 30 20 30 20 30 2e 35 29 0a cr 0.5 0 0 0.5). 3680: 09 09 20 20 28 63 61 69 72 6f 2d 73 65 74 2d 6c .. (cairo-set-l 3690: 69 6e 65 2d 77 69 64 74 68 20 63 72 20 31 30 2e ine-width cr 10. 36a0: 30 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 73 74 0)... (cairo-st 36b0: 72 6f 6b 65 20 63 72 29 29 29 29 0a 0a 28 73 61 roke cr))))..(sa 36c0: 6d 70 6c 65 2d 63 61 69 72 6f 20 22 73 65 74 2d mple-cairo "set- 36d0: 6c 69 6e 65 2d 63 61 70 22 0a 09 20 20 20 20 20 line-cap".. 36e0: 20 28 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 (lambda (surfac 36f0: 65 20 63 72 29 0a 09 09 28 63 61 69 72 6f 2d 73 e cr)...(cairo-s 3700: 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 et-line-width cr 3710: 20 33 30 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 30.0)...(cairo- 3720: 73 65 74 2d 6c 69 6e 65 2d 63 61 70 20 63 72 20 set-line-cap cr 3730: 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 63 61 70 20 (cairo-line-cap 3740: 27 62 75 74 74 29 29 20 3b 2f 2a 20 64 65 66 61 'butt)) ;/* defa 3750: 75 6c 74 20 2a 2f 0a 09 09 28 63 61 69 72 6f 2d ult */...(cairo- 3760: 6d 6f 76 65 2d 74 6f 20 63 72 20 36 34 2e 30 20 move-to cr 64.0 3770: 35 30 2e 30 29 20 28 63 61 69 72 6f 2d 6c 69 6e 50.0) (cairo-lin 3780: 65 2d 74 6f 20 63 72 20 36 34 2e 30 20 32 30 30 e-to cr 64.0 200 3790: 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 .0)...(cairo-str 37a0: 6f 6b 65 20 63 72 29 0a 09 09 28 63 61 69 72 6f oke cr)...(cairo 37b0: 2d 73 65 74 2d 6c 69 6e 65 2d 63 61 70 20 63 72 -set-line-cap cr 37c0: 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 63 61 70 (cairo-line-cap 37d0: 20 27 72 6f 75 6e 64 29 29 0a 09 09 28 63 61 69 'round))...(cai 37e0: 72 6f 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 31 32 ro-move-to cr 12 37f0: 38 2e 30 20 35 30 2e 30 29 20 28 63 61 69 72 6f 8.0 50.0) (cairo 3800: 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 31 32 38 2e -line-to cr 128. 3810: 30 20 32 30 30 2e 30 29 0a 09 09 28 63 61 69 72 0 200.0)...(cair 3820: 6f 2d 73 74 72 6f 6b 65 20 63 72 29 0a 09 09 28 o-stroke cr)...( 3830: 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 63 cairo-set-line-c 3840: 61 70 20 63 72 20 28 63 61 69 72 6f 2d 6c 69 6e ap cr (cairo-lin 3850: 65 2d 63 61 70 20 27 73 71 75 61 72 65 29 29 0a e-cap 'square)). 3860: 09 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f ..(cairo-move-to 3870: 20 63 72 20 31 39 32 2e 30 20 35 30 2e 30 29 20 cr 192.0 50.0) 3880: 28 63 61 69 72 6f 2d 6c 69 6e 65 2d 74 6f 20 63 (cairo-line-to c 3890: 72 20 31 39 32 2e 30 20 32 30 30 2e 30 29 0a 09 r 192.0 200.0).. 38a0: 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 63 .(cairo-stroke c 38b0: 72 29 0a 0a 09 09 3b 2f 2a 20 64 72 61 77 20 68 r)....;/* draw h 38c0: 65 6c 70 69 6e 67 20 6c 69 6e 65 73 20 2a 2f 0a elping lines */. 38d0: 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 ..(cairo-set-sou 38e0: 72 63 65 2d 72 67 62 20 63 72 20 31 20 30 2e 32 rce-rgb cr 1 0.2 38f0: 20 30 2e 32 29 0a 09 09 28 63 61 69 72 6f 2d 73 0.2)...(cairo-s 3900: 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 et-line-width cr 3910: 20 32 2e 35 36 29 0a 09 09 28 63 61 69 72 6f 2d 2.56)...(cairo- 3920: 6d 6f 76 65 2d 74 6f 20 63 72 20 36 34 2e 30 20 move-to cr 64.0 3930: 35 30 2e 30 29 20 28 63 61 69 72 6f 2d 6c 69 6e 50.0) (cairo-lin 3940: 65 2d 74 6f 20 63 72 20 36 34 2e 30 20 32 30 30 e-to cr 64.0 200 3950: 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 6d 6f 76 .0)...(cairo-mov 3960: 65 2d 74 6f 20 63 72 20 31 32 38 2e 30 20 35 30 e-to cr 128.0 50 3970: 2e 30 29 20 20 28 63 61 69 72 6f 2d 6c 69 6e 65 .0) (cairo-line 3980: 2d 74 6f 20 63 72 20 31 32 38 2e 30 20 32 30 30 -to cr 128.0 200 3990: 2e 30 29 0a 09 09 28 63 61 69 72 6f 2d 6d 6f 76 .0)...(cairo-mov 39a0: 65 2d 74 6f 20 63 72 20 31 39 32 2e 30 20 35 30 e-to cr 192.0 50 39b0: 2e 30 29 20 28 63 61 69 72 6f 2d 6c 69 6e 65 2d .0) (cairo-line- 39c0: 74 6f 20 63 72 20 31 39 32 2e 30 20 32 30 30 2e to cr 192.0 200. 39d0: 30 29 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 0)...(cairo-stro 39e0: 6b 65 20 63 72 29 29 29 0a 0a 28 73 61 6d 70 6c ke cr)))..(sampl 39f0: 65 2d 63 61 69 72 6f 20 22 73 65 74 2d 6c 69 6e e-cairo "set-lin 3a00: 65 2d 6a 6f 69 6e 22 0a 09 20 20 20 20 20 20 28 e-join".. ( 3a10: 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 lambda (surface 3a20: 63 72 29 0a 09 09 28 63 61 69 72 6f 2d 73 65 74 cr)...(cairo-set 3a30: 2d 6c 69 6e 65 2d 77 69 64 74 68 20 63 72 20 34 -line-width cr 4 3a40: 30 2e 39 36 29 0a 09 09 28 63 61 69 72 6f 2d 6d 0.96)...(cairo-m 3a50: 6f 76 65 2d 74 6f 20 63 72 20 37 36 2e 38 20 38 ove-to cr 76.8 8 3a60: 34 2e 34 38 29 0a 09 09 28 63 61 69 72 6f 2d 72 4.48)...(cairo-r 3a70: 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 35 31 el-line-to cr 51 3a80: 2e 32 20 2d 35 31 2e 32 29 0a 09 09 28 63 61 69 .2 -51.2)...(cai 3a90: 72 6f 2d 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 ro-rel-line-to c 3aa0: 72 20 35 31 2e 32 20 35 31 2e 32 29 0a 09 09 28 r 51.2 51.2)...( 3ab0: 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 6a cairo-set-line-j 3ac0: 6f 69 6e 20 63 72 20 28 63 61 69 72 6f 2d 6c 69 oin cr (cairo-li 3ad0: 6e 65 2d 6a 6f 69 6e 20 27 6d 69 74 65 72 29 29 ne-join 'miter)) 3ae0: 3b 20 2f 2a 20 64 65 66 61 75 6c 74 20 2a 2f 0a ; /* default */. 3af0: 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 20 ..(cairo-stroke 3b00: 63 72 29 0a 0a 09 09 28 63 61 69 72 6f 2d 6d 6f cr)....(cairo-mo 3b10: 76 65 2d 74 6f 20 63 72 20 37 36 2e 38 20 31 36 ve-to cr 76.8 16 3b20: 31 2e 32 38 29 0a 09 09 28 63 61 69 72 6f 2d 72 1.28)...(cairo-r 3b30: 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 35 31 el-line-to cr 51 3b40: 2e 32 20 2d 35 31 2e 32 29 0a 09 09 28 63 61 69 .2 -51.2)...(cai 3b50: 72 6f 2d 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 ro-rel-line-to c 3b60: 72 20 35 31 2e 32 20 35 31 2e 32 29 0a 09 09 28 r 51.2 51.2)...( 3b70: 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d 6a cairo-set-line-j 3b80: 6f 69 6e 20 63 72 20 28 63 61 69 72 6f 2d 6c 69 oin cr (cairo-li 3b90: 6e 65 2d 6a 6f 69 6e 20 27 62 65 76 65 6c 29 29 ne-join 'bevel)) 3ba0: 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 ...(cairo-stroke 3bb0: 20 63 72 29 0a 0a 09 09 28 63 61 69 72 6f 2d 6d cr)....(cairo-m 3bc0: 6f 76 65 2d 74 6f 20 63 72 20 37 36 2e 38 20 32 ove-to cr 76.8 2 3bd0: 33 38 2e 30 38 29 0a 09 09 28 63 61 69 72 6f 2d 38.08)...(cairo- 3be0: 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 35 rel-line-to cr 5 3bf0: 31 2e 32 20 2d 35 31 2e 32 29 0a 09 09 28 63 61 1.2 -51.2)...(ca 3c00: 69 72 6f 2d 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 iro-rel-line-to 3c10: 63 72 20 35 31 2e 32 20 35 31 2e 32 29 0a 09 09 cr 51.2 51.2)... 3c20: 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e 65 2d (cairo-set-line- 3c30: 6a 6f 69 6e 20 63 72 20 28 63 61 69 72 6f 2d 6c join cr (cairo-l 3c40: 69 6e 65 2d 6a 6f 69 6e 20 27 72 6f 75 6e 64 29 ine-join 'round) 3c50: 29 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b )...(cairo-strok 3c60: 65 20 63 72 29 29 29 0a 0a 0a 28 73 61 6d 70 6c e cr)))...(sampl 3c70: 65 2d 63 61 69 72 6f 20 22 74 65 78 74 22 0a 09 e-cairo "text".. 3c80: 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 (lambda (s 3c90: 75 72 66 61 63 65 20 63 72 29 0a 09 09 28 63 61 urface cr)...(ca 3ca0: 69 72 6f 2d 73 65 6c 65 63 74 2d 66 6f 6e 74 2d iro-select-font- 3cb0: 66 61 63 65 20 63 72 20 22 53 61 6e 73 22 20 28 face cr "Sans" ( 3cc0: 63 61 69 72 6f 2d 66 6f 6e 74 2d 73 6c 61 6e 74 cairo-font-slant 3cd0: 20 27 6e 6f 72 6d 61 6c 29 0a 09 09 09 09 09 09 'normal)....... 3ce0: 20 20 20 28 63 61 69 72 6f 2d 66 6f 6e 74 2d 77 (cairo-font-w 3cf0: 65 69 67 68 74 20 27 62 6f 6c 64 29 29 0a 09 09 eight 'bold))... 3d00: 28 63 61 69 72 6f 2d 73 65 74 2d 66 6f 6e 74 2d (cairo-set-font- 3d10: 73 69 7a 65 20 63 72 20 39 30 2e 30 29 0a 0a 09 size cr 90.0)... 3d20: 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 .(cairo-move-to 3d30: 63 72 20 31 30 2e 30 20 31 33 35 2e 30 29 0a 09 cr 10.0 135.0).. 3d40: 09 28 63 61 69 72 6f 2d 73 68 6f 77 2d 74 65 78 .(cairo-show-tex 3d50: 74 20 63 72 20 22 48 65 6c 6c 6f 22 29 0a 0a 09 t cr "Hello")... 3d60: 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 .(cairo-move-to 3d70: 63 72 20 37 30 2e 30 20 31 36 35 2e 30 29 0a 09 cr 70.0 165.0).. 3d80: 09 28 63 61 69 72 6f 2d 74 65 78 74 2d 70 61 74 .(cairo-text-pat 3d90: 68 20 63 72 20 22 76 6f 69 64 22 29 0a 09 09 28 h cr "void")...( 3da0: 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 cairo-set-source 3db0: 2d 72 67 62 20 63 72 20 30 2e 35 20 30 2e 35 20 -rgb cr 0.5 0.5 3dc0: 31 29 0a 09 09 28 63 61 69 72 6f 2d 66 69 6c 6c 1)...(cairo-fill 3dd0: 2d 70 72 65 73 65 72 76 65 20 63 72 29 0a 09 09 -preserve cr)... 3de0: 28 63 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 (cairo-set-sourc 3df0: 65 2d 72 67 62 20 63 72 20 30 20 30 20 30 29 0a e-rgb cr 0 0 0). 3e00: 09 09 28 63 61 69 72 6f 2d 73 65 74 2d 6c 69 6e ..(cairo-set-lin 3e10: 65 2d 77 69 64 74 68 20 63 72 20 32 2e 35 36 29 e-width cr 2.56) 3e20: 0a 09 09 28 63 61 69 72 6f 2d 73 74 72 6f 6b 65 ...(cairo-stroke 3e30: 20 63 72 29 0a 09 09 0a 09 09 3b 2f 2a 20 64 72 cr)......;/* dr 3e40: 61 77 20 68 65 6c 70 69 6e 67 20 6c 69 6e 65 73 aw helping lines 3e50: 20 2a 2f 0a 09 09 28 63 61 69 72 6f 2d 73 65 74 */...(cairo-set 3e60: 2d 73 6f 75 72 63 65 2d 72 67 62 61 20 63 72 20 -source-rgba cr 3e70: 31 20 30 2e 32 20 30 2e 32 20 30 2e 36 29 0a 09 1 0.2 0.2 0.6).. 3e80: 09 28 63 61 69 72 6f 2d 61 72 63 20 63 72 20 31 .(cairo-arc cr 1 3e90: 30 2e 30 20 31 33 35 2e 30 20 35 2e 31 32 20 30 0.0 135.0 5.12 0 3ea0: 20 28 2a 20 32 20 70 69 29 29 0a 09 09 28 63 61 (* 2 pi))...(ca 3eb0: 69 72 6f 2d 63 6c 6f 73 65 2d 70 61 74 68 20 63 iro-close-path c 3ec0: 72 29 0a 09 09 28 63 61 69 72 6f 2d 61 72 63 20 r)...(cairo-arc 3ed0: 63 72 20 37 30 2e 30 20 31 36 35 2e 30 20 35 2e cr 70.0 165.0 5. 3ee0: 31 32 20 30 20 28 2a 20 32 20 70 69 29 29 0a 09 12 0 (* 2 pi)).. 3ef0: 09 28 63 61 69 72 6f 2d 66 69 6c 6c 20 63 72 29 .(cairo-fill cr) 3f00: 29 29 0a 0a 0a 0a 28 73 61 6d 70 6c 65 2d 63 61 ))....(sample-ca 3f10: 69 72 6f 20 22 74 65 78 74 2d 61 6c 69 67 6e 2d iro "text-align- 3f20: 63 65 6e 74 65 72 22 0a 09 20 20 20 20 20 20 28 center".. ( 3f30: 6c 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 lambda (surface 3f40: 63 72 29 0a 09 09 28 6c 65 74 20 28 5b 75 74 66 cr)...(let ([utf 3f50: 38 20 22 63 61 69 72 6f 22 5d 0a 09 09 20 20 20 8 "cairo"]... 3f60: 20 20 20 5b 65 78 74 65 6e 74 73 20 28 63 61 69 [extents (cai 3f70: 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e 74 73 2d ro-text-extents- 3f80: 63 72 65 61 74 65 29 5d 29 0a 09 09 20 20 28 63 create)])... (c 3f90: 61 69 72 6f 2d 73 65 6c 65 63 74 2d 66 6f 6e 74 airo-select-font 3fa0: 2d 66 61 63 65 20 63 72 20 22 53 61 6e 73 22 20 -face cr "Sans" 3fb0: 28 63 61 69 72 6f 2d 66 6f 6e 74 2d 73 6c 61 6e (cairo-font-slan 3fc0: 74 20 27 6e 6f 72 6d 61 6c 29 20 28 63 61 69 72 t 'normal) (cair 3fd0: 6f 2d 66 6f 6e 74 2d 77 65 69 67 68 74 20 27 6e o-font-weight 'n 3fe0: 6f 72 6d 61 6c 29 29 0a 09 09 20 20 28 63 61 69 ormal))... (cai 3ff0: 72 6f 2d 73 65 74 2d 66 6f 6e 74 2d 73 69 7a 65 ro-set-font-size 4000: 20 63 72 20 35 32 2e 30 29 0a 0a 09 09 20 20 28 cr 52.0).... ( 4010: 63 61 69 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e cairo-text-exten 4020: 74 73 20 63 72 20 75 74 66 38 20 65 78 74 65 6e ts cr utf8 exten 4030: 74 73 29 0a 09 09 20 20 28 6c 65 74 2d 73 74 72 ts)... (let-str 4040: 75 63 74 20 65 78 74 65 6e 74 73 20 63 61 69 72 uct extents cair 4050: 6f 2d 74 65 78 74 2d 65 78 74 65 6e 74 73 2d 74 o-text-extents-t 4060: 20 28 77 69 64 74 68 20 68 65 69 67 68 74 20 78 (width height x 4070: 2d 62 65 61 72 69 6e 67 20 79 2d 62 65 61 72 69 -bearing y-beari 4080: 6e 67 29 0a 09 09 09 20 20 20 20 20 20 28 6c 65 ng).... (le 4090: 74 20 28 5b 78 20 28 2d 20 31 32 38 2e 30 20 28 t ([x (- 128.0 ( 40a0: 2b 20 28 2f 20 77 69 64 74 68 20 32 29 20 78 2d + (/ width 2) x- 40b0: 62 65 61 72 69 6e 67 29 29 5d 0a 09 09 09 09 20 bearing))]..... 40c0: 20 20 20 5b 79 20 28 2d 20 31 32 38 2e 30 20 28 [y (- 128.0 ( 40d0: 2b 20 28 2f 20 68 65 69 67 68 74 20 32 29 20 79 + (/ height 2) y 40e0: 2d 62 65 61 72 69 6e 67 29 29 5d 29 0a 09 09 09 -bearing))]).... 40f0: 09 28 63 61 69 72 6f 2d 6d 6f 76 65 2d 74 6f 20 .(cairo-move-to 4100: 63 72 20 78 20 79 29 0a 09 09 09 09 28 63 61 69 cr x y).....(cai 4110: 72 6f 2d 73 68 6f 77 2d 74 65 78 74 20 63 72 20 ro-show-text cr 4120: 75 74 66 38 29 0a 09 09 09 09 0a 09 09 09 09 09 utf8)........... 4130: 3b 2f 2a 20 64 72 61 77 20 68 65 6c 70 69 6e 67 ;/* draw helping 4140: 20 6c 69 6e 65 73 20 2a 2f 0a 09 09 09 09 28 63 lines */.....(c 4150: 61 69 72 6f 2d 73 65 74 2d 73 6f 75 72 63 65 2d airo-set-source- 4160: 72 67 62 61 20 63 72 20 31 20 30 2e 32 20 30 2e rgba cr 1 0.2 0. 4170: 32 20 30 2e 36 29 0a 09 09 09 09 28 63 61 69 72 2 0.6).....(cair 4180: 6f 2d 73 65 74 2d 6c 69 6e 65 2d 77 69 64 74 68 o-set-line-width 4190: 20 63 72 20 36 2e 30 29 0a 09 09 09 09 28 63 61 cr 6.0).....(ca 41a0: 69 72 6f 2d 61 72 63 20 63 72 20 78 20 79 20 31 iro-arc cr x y 1 41b0: 30 2e 30 20 30 20 28 2a 20 32 20 70 69 29 29 29 0.0 0 (* 2 pi))) 41c0: 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 66 69 6c )... (cairo-fil 41d0: 6c 20 63 72 29 0a 09 09 20 20 28 63 61 69 72 6f l cr)... (cairo 41e0: 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 31 32 38 2e -move-to cr 128. 41f0: 30 20 30 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 0 0)... (cairo- 4200: 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 30 rel-line-to cr 0 4210: 20 32 35 36 29 0a 09 09 20 20 28 63 61 69 72 6f 256)... (cairo 4220: 2d 6d 6f 76 65 2d 74 6f 20 63 72 20 30 20 31 32 -move-to cr 0 12 4230: 38 2e 30 29 0a 09 09 20 20 28 63 61 69 72 6f 2d 8.0)... (cairo- 4240: 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 63 72 20 32 rel-line-to cr 2 4250: 35 36 20 30 29 0a 09 09 20 20 28 63 61 69 72 6f 56 0)... (cairo 4260: 2d 73 74 72 6f 6b 65 20 63 72 29 29 29 29 0a 0a -stroke cr)))).. 4270: 3b 3b 20 74 68 69 73 20 69 73 20 61 6e 20 65 78 ;; this is an ex 4280: 61 6d 70 6c 65 20 75 73 69 6e 67 20 77 69 74 68 ample using with 4290: 2d 63 61 69 72 6f 20 73 79 6e 74 61 78 0a 3b 3b -cairo syntax.;; 42a0: 20 6e 6f 74 65 20 74 68 61 74 20 69 74 20 77 69 note that it wi 42b0: 6c 6c 20 6e 6f 74 20 72 65 63 75 72 73 65 20 69 ll not recurse i 42c0: 6e 74 6f 20 73 75 62 66 6f 72 6d 73 20 61 73 20 nto subforms as 42d0: 79 6f 75 20 73 65 65 20 69 6e 73 69 64 65 20 6c you see inside l 42e0: 65 74 2d 73 74 72 75 63 74 0a 28 73 61 6d 70 6c et-struct.(sampl 42f0: 65 2d 63 61 69 72 6f 20 22 74 65 78 74 2d 65 78 e-cairo "text-ex 4300: 74 65 6e 74 73 22 0a 09 20 20 20 20 20 20 28 6c tents".. (l 4310: 61 6d 62 64 61 20 28 73 75 72 66 61 63 65 20 63 ambda (surface c 4320: 72 29 0a 09 09 28 6c 65 74 20 28 5b 75 74 66 38 r)...(let ([utf8 4330: 20 22 63 61 69 72 6f 22 5d 0a 09 09 20 20 20 20 "cairo"]... 4340: 20 20 5b 65 78 74 65 6e 74 73 20 28 63 61 69 72 [extents (cair 4350: 6f 2d 74 65 78 74 2d 65 78 74 65 6e 74 73 2d 63 o-text-extents-c 4360: 72 65 61 74 65 29 5d 0a 09 09 20 20 20 20 20 20 reate)]... 4370: 5b 78 20 32 35 5d 20 5b 79 20 31 35 30 5d 29 0a [x 25] [y 150]). 4380: 09 09 20 20 28 77 69 74 68 2d 63 61 69 72 6f 20 .. (with-cairo 4390: 63 72 0a 09 09 09 20 20 20 20 20 20 28 73 65 6c cr.... (sel 43a0: 65 63 74 2d 66 6f 6e 74 2d 66 61 63 65 20 22 53 ect-font-face "S 43b0: 61 6e 73 22 20 28 63 61 69 72 6f 2d 66 6f 6e 74 ans" (cairo-font 43c0: 2d 73 6c 61 6e 74 20 27 6e 6f 72 6d 61 6c 29 20 -slant 'normal) 43d0: 28 63 61 69 72 6f 2d 66 6f 6e 74 2d 77 65 69 67 (cairo-font-weig 43e0: 68 74 20 27 6e 6f 72 6d 61 6c 29 29 0a 09 09 09 ht 'normal)).... 43f0: 20 20 20 20 20 20 28 73 65 74 2d 66 6f 6e 74 2d (set-font- 4400: 73 69 7a 65 20 31 30 30 2e 30 29 0a 09 09 09 20 size 100.0).... 4410: 20 20 20 20 20 28 74 65 78 74 2d 65 78 74 65 6e (text-exten 4420: 74 73 20 75 74 66 38 20 65 78 74 65 6e 74 73 29 ts utf8 extents) 4430: 0a 09 09 09 20 20 20 20 20 20 0a 09 09 09 20 20 .... .... 4440: 20 20 20 20 28 6d 6f 76 65 2d 74 6f 20 78 20 79 (move-to x y 4450: 29 0a 09 09 09 20 20 20 20 20 20 28 73 68 6f 77 ).... (show 4460: 2d 74 65 78 74 20 75 74 66 38 29 0a 09 09 09 20 -text utf8).... 4470: 20 20 20 20 20 0a 09 09 09 09 09 3b 3b 2f 2a 20 ......;;/* 4480: 64 72 61 77 20 68 65 6c 70 69 6e 67 20 6c 69 6e draw helping lin 4490: 65 73 20 2a 2f 0a 09 09 09 20 20 20 20 20 20 28 es */.... ( 44a0: 73 65 74 2d 73 6f 75 72 63 65 2d 72 67 62 61 20 set-source-rgba 44b0: 31 20 30 2e 32 20 30 2e 32 20 30 2e 36 29 0a 09 1 0.2 0.2 0.6).. 44c0: 09 09 20 20 20 20 20 20 28 73 65 74 2d 6c 69 6e .. (set-lin 44d0: 65 2d 77 69 64 74 68 20 36 2e 30 29 0a 09 09 09 e-width 6.0).... 44e0: 20 20 20 20 20 20 28 61 72 63 20 78 20 79 20 31 (arc x y 1 44f0: 30 2e 30 20 30 20 28 2a 20 32 20 70 69 29 29 0a 0.0 0 (* 2 pi)). 4500: 09 09 09 20 20 20 20 20 20 28 66 69 6c 6c 29 0a ... (fill). 4510: 09 09 09 20 20 20 20 20 20 28 6d 6f 76 65 2d 74 ... (move-t 4520: 6f 20 78 20 79 29 0a 09 09 09 20 20 20 20 20 0a o x y).... . 4530: 09 09 09 20 20 20 20 20 20 28 6c 65 74 2d 73 74 ... (let-st 4540: 72 75 63 74 20 65 78 74 65 6e 74 73 20 63 61 69 ruct extents cai 4550: 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e 74 73 2d ro-text-extents- 4560: 74 20 28 77 69 64 74 68 20 68 65 69 67 68 74 20 t (width height 4570: 78 2d 62 65 61 72 69 6e 67 20 79 2d 62 65 61 72 x-bearing y-bear 4580: 69 6e 67 29 0a 09 09 09 20 20 20 20 20 20 09 09 ing).... .. 4590: 20 20 28 77 69 74 68 2d 63 61 69 72 6f 20 63 72 (with-cairo cr 45a0: 0a 09 09 09 20 20 20 20 20 20 09 09 09 20 20 20 .... ... 45b0: 20 20 20 28 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 (rel-line-to 45c0: 30 20 28 2d 20 68 65 69 67 68 74 29 29 0a 09 09 0 (- height))... 45d0: 09 20 20 20 20 20 20 09 09 09 20 20 20 20 20 20 . ... 45e0: 28 72 65 6c 2d 6c 69 6e 65 2d 74 6f 20 77 69 64 (rel-line-to wid 45f0: 74 68 20 30 29 0a 09 09 09 20 20 20 20 20 20 09 th 0).... . 4600: 09 09 20 20 20 20 20 20 28 72 65 6c 2d 6c 69 6e .. (rel-lin 4610: 65 2d 74 6f 20 78 2d 62 65 61 72 69 6e 67 20 28 e-to x-bearing ( 4620: 2d 20 79 2d 62 65 61 72 69 6e 67 29 29 29 29 0a - y-bearing)))). 4630: 09 09 09 20 20 20 20 20 20 28 73 74 72 6f 6b 65 ... (stroke 4640: 29 29 29 29 29 0a 0a 0a 09 09 09 20 20 20 20 20 )))))...... 4650: 20 0a 28 73 79 73 74 65 6d 20 22 65 6f 67 20 2e .(system "eog . 4660: 22 29 0a ").