Artifact 42c9a2be47fc1816fac7452d5443e9f496c57359:
- File cairo/types.ss — part of check-in [13f43a0da0] at 2018-12-09 15:20:02 on branch trunk — changed signature of cairo-write-func-t and cairo-read-func-t (user: aldo size: 9359)
0000: 3b 3b 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 ;;.;; Copyright 0010: 32 30 31 36 20 41 6c 64 6f 20 4e 69 63 6f 6c 61 2016 Aldo Nicola 0020: 73 20 42 72 75 6e 6f 0a 3b 3b 0a 3b 3b 20 4c 69 s Bruno.;;.;; Li 0030: 63 65 6e 73 65 64 20 75 6e 64 65 72 20 74 68 65 censed under the 0040: 20 41 70 61 63 68 65 20 4c 69 63 65 6e 73 65 2c Apache License, 0050: 20 56 65 72 73 69 6f 6e 20 32 2e 30 20 28 74 68 Version 2.0 (th 0060: 65 20 22 4c 69 63 65 6e 73 65 22 29 3b 0a 3b 3b e "License");.;; 0070: 20 79 6f 75 20 6d 61 79 20 6e 6f 74 20 75 73 65 you may not use 0080: 20 74 68 69 73 20 66 69 6c 65 20 65 78 63 65 70 this file excep 0090: 74 20 69 6e 20 63 6f 6d 70 6c 69 61 6e 63 65 20 t in compliance 00a0: 77 69 74 68 20 74 68 65 20 4c 69 63 65 6e 73 65 with the License 00b0: 2e 0a 3b 3b 20 59 6f 75 20 6d 61 79 20 6f 62 74 ..;; You may obt 00c0: 61 69 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 ain a copy of th 00d0: 65 20 4c 69 63 65 6e 73 65 20 61 74 0a 3b 3b 0a e License at.;;. 00e0: 3b 3b 20 20 20 20 20 68 74 74 70 3a 2f 2f 77 77 ;; http://ww 00f0: 77 2e 61 70 61 63 68 65 2e 6f 72 67 2f 6c 69 63 w.apache.org/lic 0100: 65 6e 73 65 73 2f 4c 49 43 45 4e 53 45 2d 32 2e enses/LICENSE-2. 0110: 30 0a 3b 3b 0a 3b 3b 20 55 6e 6c 65 73 73 20 72 0.;;.;; Unless r 0120: 65 71 75 69 72 65 64 20 62 79 20 61 70 70 6c 69 equired by appli 0130: 63 61 62 6c 65 20 6c 61 77 20 6f 72 20 61 67 72 cable law or agr 0140: 65 65 64 20 74 6f 20 69 6e 20 77 72 69 74 69 6e eed to in writin 0150: 67 2c 20 73 6f 66 74 77 61 72 65 0a 3b 3b 20 64 g, software.;; d 0160: 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 istributed under 0170: 20 74 68 65 20 4c 69 63 65 6e 73 65 20 69 73 20 the License is 0180: 64 69 73 74 72 69 62 75 74 65 64 20 6f 6e 20 61 distributed on a 0190: 6e 20 22 41 53 20 49 53 22 20 42 41 53 49 53 2c n "AS IS" BASIS, 01a0: 0a 3b 3b 20 57 49 54 48 4f 55 54 20 57 41 52 52 .;; WITHOUT WARR 01b0: 41 4e 54 49 45 53 20 4f 52 20 43 4f 4e 44 49 54 ANTIES OR CONDIT 01c0: 49 4f 4e 53 20 4f 46 20 41 4e 59 20 4b 49 4e 44 IONS OF ANY KIND 01d0: 2c 20 65 69 74 68 65 72 20 65 78 70 72 65 73 73 , either express 01e0: 20 6f 72 20 69 6d 70 6c 69 65 64 2e 0a 3b 3b 20 or implied..;; 01f0: 53 65 65 20 74 68 65 20 4c 69 63 65 6e 73 65 20 See the License 0200: 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 for the specific 0210: 20 6c 61 6e 67 75 61 67 65 20 67 6f 76 65 72 6e language govern 0220: 69 6e 67 20 70 65 72 6d 69 73 73 69 6f 6e 73 20 ing permissions 0230: 61 6e 64 0a 3b 3b 20 6c 69 6d 69 74 61 74 69 6f and.;; limitatio 0240: 6e 73 20 75 6e 64 65 72 20 74 68 65 20 4c 69 63 ns under the Lic 0250: 65 6e 73 65 2e 0a 0a 20 28 64 65 66 69 6e 65 2d ense... (define- 0260: 66 74 79 70 65 20 75 6e 73 69 67 6e 65 64 2d 38 ftype unsigned-8 0270: 2a 20 28 2a 20 75 6e 73 69 67 6e 65 64 2d 38 29 * (* unsigned-8) 0280: 29 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 ). (define-ftype 0290: 20 75 6e 73 69 67 6e 65 64 2d 63 68 61 72 20 75 unsigned-char u 02a0: 6e 73 69 67 6e 65 64 2d 38 29 0a 0a 20 28 64 65 nsigned-8).. (de 02b0: 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f fine-ftype cairo 02c0: 2d 62 6f 6f 6c 2d 74 20 69 6e 74 29 0a 20 28 64 -bool-t int). (d 02d0: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 02e0: 6f 2d 74 20 28 73 74 72 75 63 74 29 29 0a 0a 20 o-t (struct)).. 02f0: 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 (define-ftype ca 0300: 69 72 6f 2d 73 75 72 66 61 63 65 2d 74 20 28 73 iro-surface-t (s 0310: 74 72 75 63 74 29 29 0a 20 28 64 65 66 69 6e 65 truct)). (define 0320: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 73 75 72 -ftype cairo-sur 0330: 66 61 63 65 2d 74 2a 20 28 2a 20 63 61 69 72 6f face-t* (* cairo 0340: 2d 73 75 72 66 61 63 65 2d 74 29 29 0a 20 28 64 -surface-t)). (d 0350: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 0360: 6f 2d 64 65 76 69 63 65 2d 74 20 76 6f 69 64 2a o-device-t void* 0370: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 ).. (define-ftyp 0380: 65 20 63 61 69 72 6f 2d 6d 61 74 72 69 78 2d 74 e cairo-matrix-t 0390: 0a 20 20 20 28 73 74 72 75 63 74 0a 20 20 20 20 . (struct. 03a0: 5b 78 78 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [xx double]. 03b0: 5b 79 78 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [yx double]. 03c0: 5b 78 79 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [xy double]. 03d0: 5b 79 79 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [yy double]. 03e0: 5b 78 30 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [x0 double]. 03f0: 5b 79 30 20 64 6f 75 62 6c 65 5d 29 29 0a 0a 20 [y0 double])).. 0400: 28 64 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 6c (define-ftype-al 0410: 6c 6f 63 61 74 6f 72 20 63 61 69 72 6f 2d 6d 61 locator cairo-ma 0420: 74 72 69 78 2d 63 72 65 61 74 65 20 63 61 69 72 trix-create cair 0430: 6f 2d 6d 61 74 72 69 78 2d 74 29 0a 0a 20 28 64 o-matrix-t).. (d 0440: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 0450: 6f 2d 70 61 74 74 65 72 6e 2d 74 20 28 73 74 72 o-pattern-t (str 0460: 75 63 74 29 29 0a 0a 09 09 09 09 09 3b 20 28 64 uct)).......; (d 0470: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 0480: 6f 2d 64 65 73 74 72 6f 79 2d 66 75 6e 63 2d 74 o-destroy-func-t 0490: 20 28 66 75 6e 63 74 69 6f 6e 20 28 76 6f 69 64 (function (void 04a0: 2a 29 20 76 6f 69 64 29 29 0a 20 28 64 65 66 69 *) void)). (defi 04b0: 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 64 ne-ftype cairo-d 04c0: 65 73 74 72 6f 79 2d 66 75 6e 63 2d 74 20 76 6f estroy-func-t vo 04d0: 69 64 2a 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 id*).. (define-f 04e0: 74 79 70 65 20 63 61 69 72 6f 2d 75 73 65 72 2d type cairo-user- 04f0: 64 61 74 61 2d 6b 65 79 2d 74 20 28 73 74 72 75 data-key-t (stru 0500: 63 74 20 5b 75 6e 75 73 65 64 20 69 6e 74 5d 29 ct [unused int]) 0510: 29 0a 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 )... (define-fty 0520: 70 65 20 63 61 69 72 6f 2d 73 74 61 74 75 73 2d pe cairo-status- 0530: 74 20 69 6e 74 29 0a 0a 20 28 64 65 66 69 6e 65 t int).. (define 0540: 2d 65 6e 75 6d 65 72 61 74 69 6f 6e 2a 20 63 61 -enumeration* ca 0550: 69 72 6f 2d 73 74 61 74 75 73 2d 65 6e 75 6d 0a iro-status-enum. 0560: 20 20 20 28 73 75 63 63 65 73 73 20 6e 6f 2d 6d (success no-m 0570: 65 6d 6f 72 79 20 69 6e 76 61 6c 69 64 2d 72 65 emory invalid-re 0580: 73 74 6f 72 65 20 69 6e 76 61 6c 69 64 2d 70 6f store invalid-po 0590: 70 2d 67 72 6f 75 70 0a 09 20 20 20 20 6e 6f 2d p-group.. no- 05a0: 63 75 72 72 65 6e 74 2d 70 6f 69 6e 74 20 69 6e current-point in 05b0: 76 61 6c 69 64 2d 6d 61 74 72 69 78 20 69 6e 76 valid-matrix inv 05c0: 61 6c 69 64 2d 73 74 61 74 75 73 20 6e 75 6c 6c alid-status null 05d0: 2d 70 6f 69 6e 74 65 72 0a 09 20 20 20 20 69 6e -pointer.. in 05e0: 76 61 6c 69 64 2d 73 74 72 69 6e 67 20 69 6e 76 valid-string inv 05f0: 61 6c 69 64 2d 70 61 74 68 2d 64 61 74 61 20 72 alid-path-data r 0600: 65 61 64 2d 65 72 72 6f 72 20 77 72 69 74 65 2d ead-error write- 0610: 65 72 72 6f 72 0a 09 20 20 20 20 73 75 72 66 61 error.. surfa 0620: 63 65 2d 66 69 6e 69 73 68 65 64 20 73 75 72 66 ce-finished surf 0630: 61 63 65 2d 74 79 70 65 2d 6d 69 73 6d 61 74 63 ace-type-mismatc 0640: 68 20 70 61 74 74 65 72 6e 2d 74 79 70 65 2d 6d h pattern-type-m 0650: 69 73 6d 61 74 63 68 0a 09 20 20 20 20 69 6e 76 ismatch.. inv 0660: 61 6c 69 64 2d 63 6f 6e 74 65 6e 74 20 69 6e 76 alid-content inv 0670: 61 6c 69 64 2d 66 6f 72 6d 61 74 20 69 6e 76 61 alid-format inva 0680: 6c 69 64 2d 76 69 73 75 61 6c 20 66 69 6c 65 2d lid-visual file- 0690: 6e 6f 74 2d 66 6f 75 6e 64 0a 09 20 20 20 20 69 not-found.. i 06a0: 6e 76 61 6c 69 64 2d 64 61 73 68 20 69 6e 76 61 nvalid-dash inva 06b0: 6c 69 64 2d 64 73 63 2d 63 6f 6d 6d 65 6e 74 20 lid-dsc-comment 06c0: 69 6e 76 61 6c 69 64 2d 69 6e 64 65 78 0a 09 20 invalid-index.. 06d0: 20 20 20 63 6c 69 70 2d 6e 6f 74 2d 72 65 70 72 clip-not-repr 06e0: 65 73 65 6e 74 61 62 6c 65 20 74 65 6d 70 2d 66 esentable temp-f 06f0: 69 6c 65 2d 65 72 72 6f 72 20 69 6e 76 61 6c 69 ile-error invali 0700: 64 2d 73 74 72 69 64 65 0a 09 20 20 20 20 66 6f d-stride.. fo 0710: 6e 74 2d 74 79 70 65 2d 6d 69 73 6d 61 74 63 68 nt-type-mismatch 0720: 20 75 73 65 72 2d 66 6f 6e 74 2d 69 6d 6d 75 74 user-font-immut 0730: 61 62 6c 65 20 75 73 65 72 2d 66 6f 6e 74 2d 65 able user-font-e 0740: 72 72 6f 72 0a 09 20 20 20 20 6e 65 67 61 74 69 rror.. negati 0750: 76 65 2d 63 6f 75 6e 74 20 69 6e 76 61 6c 69 64 ve-count invalid 0760: 2d 63 6c 75 73 74 65 72 73 20 69 6e 76 61 6c 69 -clusters invali 0770: 64 2d 73 6c 61 6e 74 20 69 6e 76 61 6c 69 64 2d d-slant invalid- 0780: 77 65 69 67 68 74 0a 09 20 20 20 20 69 6e 76 61 weight.. inva 0790: 6c 69 64 2d 73 69 7a 65 20 75 73 65 72 2d 66 6f lid-size user-fo 07a0: 6e 74 2d 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 nt-not-implement 07b0: 65 64 20 64 65 76 69 63 65 2d 74 79 70 65 2d 6d ed device-type-m 07c0: 69 73 6d 61 74 63 68 0a 09 20 20 20 20 64 65 76 ismatch.. dev 07d0: 69 63 65 2d 65 72 72 6f 72 20 69 6e 76 61 6c 69 ice-error invali 07e0: 64 2d 6d 65 73 68 2d 63 6f 6e 73 74 72 75 63 74 d-mesh-construct 07f0: 69 6f 6e 20 64 65 76 69 63 65 2d 66 69 6e 69 73 ion device-finis 0800: 68 65 64 0a 09 20 20 20 20 6a 62 69 67 32 2d 67 hed.. jbig2-g 0810: 6c 6f 62 61 6c 2d 6d 69 73 73 69 6e 67 20 6c 61 lobal-missing la 0820: 73 74 2d 73 74 61 74 75 73 29 29 0a 0a 20 28 64 st-status)).. (d 0830: 65 66 69 6e 65 2d 66 6c 61 67 73 20 63 61 69 72 efine-flags cair 0840: 6f 2d 63 6f 6e 74 65 6e 74 0a 20 20 20 28 63 6f o-content. (co 0850: 6c 6f 72 20 34 30 39 36 29 20 28 61 6c 70 68 61 lor 4096) (alpha 0860: 20 38 31 39 32 29 20 28 63 6f 6c 6f 72 2d 61 6c 8192) (color-al 0870: 70 68 61 20 31 32 32 38 38 29 29 0a 0a 20 28 64 pha 12288)).. (d 0880: 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f efine-enumeratio 0890: 6e 2a 20 63 61 69 72 6f 2d 66 6f 72 6d 61 74 0a n* cairo-format. 08a0: 20 20 20 28 61 72 67 62 2d 33 32 20 72 67 62 2d (argb-32 rgb- 08b0: 32 34 20 61 2d 38 20 61 2d 31 20 72 67 62 2d 31 24 a-8 a-1 rgb-1 08c0: 36 2d 35 36 35 20 72 67 62 2d 33 30 29 29 0a 0a 6-565 rgb-30)).. 08d0: 20 28 64 65 66 69 6e 65 20 63 61 69 72 6f 2d 66 (define cairo-f 08e0: 6f 72 6d 61 74 2d 69 6e 76 61 6c 69 64 20 2d 31 ormat-invalid -1 08f0: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 ).. (define-ftyp 0900: 65 20 63 61 69 72 6f 2d 77 72 69 74 65 2d 66 75 e cairo-write-fu 0910: 6e 63 2d 74 0a 20 20 20 28 66 75 6e 63 74 69 6f nc-t. (functio 0920: 6e 20 28 70 74 72 20 28 2a 20 75 6e 73 69 67 6e n (ptr (* unsign 0930: 65 64 2d 38 29 20 75 6e 73 69 67 6e 65 64 2d 69 ed-8) unsigned-i 0940: 6e 74 29 20 63 61 69 72 6f 2d 73 74 61 74 75 73 nt) cairo-status 0950: 2d 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 -t)).. (define-f 0960: 74 79 70 65 20 63 61 69 72 6f 2d 72 65 61 64 2d type cairo-read- 0970: 66 75 6e 63 2d 74 0a 20 20 20 28 66 75 6e 63 74 func-t. (funct 0980: 69 6f 6e 20 28 70 74 72 20 28 2a 20 75 6e 73 69 ion (ptr (* unsi 0990: 67 6e 65 64 2d 38 29 20 75 6e 73 69 67 6e 65 64 gned-8) unsigned 09a0: 2d 69 6e 74 29 20 63 61 69 72 6f 2d 73 74 61 74 -int) cairo-stat 09b0: 75 73 2d 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 us-t)).. (define 09c0: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 72 65 63 -ftype cairo-rec 09d0: 74 61 6e 67 6c 65 2d 69 6e 74 2d 74 0a 20 20 20 tangle-int-t. 09e0: 28 73 74 72 75 63 74 20 5b 78 20 69 6e 74 5d 20 (struct [x int] 09f0: 5b 79 20 69 6e 74 5d 20 5b 77 69 64 74 68 20 69 [y int] [width i 0a00: 6e 74 5d 20 5b 68 65 69 67 68 74 20 69 6e 74 5d nt] [height int] 0a10: 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 )).. (define-fty 0a20: 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 63 61 69 pe-allocator cai 0a30: 72 6f 2d 72 65 63 74 61 6e 67 6c 65 2d 69 6e 74 ro-rectangle-int 0a40: 2d 63 72 65 61 74 65 20 63 61 69 72 6f 2d 72 65 -create cairo-re 0a50: 63 74 61 6e 67 6c 65 2d 69 6e 74 2d 74 29 0a 0a ctangle-int-t).. 0a60: 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 (define-enumera 0a70: 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 6f 70 65 72 tion* cairo-oper 0a80: 61 74 6f 72 0a 20 20 20 28 63 6c 65 61 72 20 73 ator. (clear s 0a90: 6f 75 72 63 65 20 6f 76 65 72 20 69 6e 20 6f 75 ource over in ou 0aa0: 74 20 61 74 6f 70 20 64 65 73 74 20 64 65 73 74 t atop dest dest 0ab0: 2d 6f 76 65 72 20 64 65 73 74 2d 69 6e 0a 09 20 -over dest-in.. 0ac0: 20 64 65 73 74 2d 6f 75 74 20 64 65 73 74 2d 61 dest-out dest-a 0ad0: 74 6f 70 20 78 6f 72 20 61 64 64 20 73 61 74 75 top xor add satu 0ae0: 72 61 74 65 20 6d 75 6c 74 69 70 6c 79 20 73 63 rate multiply sc 0af0: 72 65 65 6e 20 6f 76 65 72 6c 61 79 0a 09 20 20 reen overlay.. 0b00: 64 61 72 6b 65 6e 20 6c 69 67 68 74 65 6e 20 63 darken lighten c 0b10: 6f 6c 6f 72 2d 64 6f 64 67 65 20 63 6f 6c 6f 72 olor-dodge color 0b20: 2d 62 75 72 6e 20 68 61 72 64 2d 6c 69 67 68 74 -burn hard-light 0b30: 20 73 6f 66 74 2d 6c 69 67 68 74 0a 09 20 20 64 soft-light.. d 0b40: 69 66 66 65 72 65 6e 63 65 20 65 78 63 6c 75 73 ifference exclus 0b50: 69 6f 6e 20 68 73 6c 2d 68 75 65 20 68 73 6c 2d ion hsl-hue hsl- 0b60: 73 61 74 75 72 61 74 69 6f 6e 20 68 73 6c 2d 63 saturation hsl-c 0b70: 6f 6c 6f 72 0a 09 20 20 68 73 6c 2d 6c 75 6d 69 olor.. hsl-lumi 0b80: 6e 6f 73 69 74 79 29 29 0a 0a 20 28 64 65 66 69 nosity)).. (defi 0b90: 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f 6e 2a 20 ne-enumeration* 0ba0: 63 61 69 72 6f 2d 61 6e 74 69 61 6c 69 61 73 0a cairo-antialias. 0bb0: 20 20 20 28 64 65 66 61 75 6c 74 20 6e 6f 6e 65 (default none 0bc0: 20 67 72 61 79 20 73 75 62 70 69 78 65 6c 20 66 gray subpixel f 0bd0: 61 73 74 20 67 6f 6f 64 20 62 65 73 74 29 29 0a ast good best)). 0be0: 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 . (define-enumer 0bf0: 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 66 69 6c ation* cairo-fil 0c00: 6c 2d 72 75 6c 65 20 0a 20 20 20 28 77 69 6e 64 l-rule . (wind 0c10: 69 6e 67 20 65 76 65 6e 2d 6f 64 64 29 29 0a 0a ing even-odd)).. 0c20: 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 (define-enumera 0c30: 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 6c 69 6e 65 tion* cairo-line 0c40: 2d 63 61 70 20 0a 20 20 20 28 62 75 74 74 20 72 -cap . (butt r 0c50: 6f 75 6e 64 20 73 71 75 61 72 65 29 29 0a 0a 20 ound square)).. 0c60: 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 (define-enumerat 0c70: 69 6f 6e 2a 20 63 61 69 72 6f 2d 6c 69 6e 65 2d ion* cairo-line- 0c80: 6a 6f 69 6e 20 0a 20 20 20 28 6d 69 74 65 72 20 join . (miter 0c90: 72 6f 75 6e 64 20 62 65 76 65 6c 29 29 0a 0a 20 round bevel)).. 0ca0: 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 64 6f (define-ftype do 0cb0: 75 62 6c 65 2d 61 72 72 61 79 20 28 61 72 72 61 uble-array (arra 0cc0: 79 20 30 20 64 6f 75 62 6c 65 29 29 0a 20 28 64 y 0 double)). (d 0cd0: 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 72 72 61 efine-ftype-arra 0ce0: 79 2d 61 6c 6c 6f 63 61 74 6f 72 20 64 6f 75 62 y-allocator doub 0cf0: 6c 65 2d 61 72 72 61 79 2d 63 72 65 61 74 65 20 le-array-create 0d00: 64 6f 75 62 6c 65 2d 61 72 72 61 79 20 64 6f 75 double-array dou 0d10: 62 6c 65 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 ble).. (define ( 0d20: 64 6f 75 62 6c 65 2d 61 72 72 61 79 2d 63 72 65 double-array-cre 0d30: 61 74 65 2d 66 72 6f 6d 2d 76 65 63 74 6f 72 20 ate-from-vector 0d40: 6c 29 0a 20 20 20 28 6c 65 74 2a 20 28 5b 6c 73 l). (let* ([ls 0d50: 20 28 76 65 63 74 6f 72 2d 3e 6c 69 73 74 20 6c (vector->list l 0d60: 29 5d 0a 09 20 20 5b 73 69 7a 65 20 28 76 65 63 )].. [size (vec 0d70: 74 6f 72 2d 6c 65 6e 67 74 68 20 6c 29 5d 0a 09 tor-length l)].. 0d80: 20 20 5b 61 72 72 61 79 20 28 64 6f 75 62 6c 65 [array (double 0d90: 2d 61 72 72 61 79 2d 63 72 65 61 74 65 20 73 69 -array-create si 0da0: 7a 65 29 5d 29 20 0a 20 20 20 20 20 28 64 6f 20 ze)]) . (do 0db0: 28 5b 69 20 30 20 28 66 78 31 2b 20 69 29 5d 29 ([i 0 (fx1+ i)]) 0dc0: 20 0a 09 20 28 28 66 78 3e 3d 20 69 20 73 69 7a .. ((fx>= i siz 0dd0: 65 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 e)). (let 0de0: 28 5b 78 20 28 76 65 63 74 6f 72 2d 72 65 66 20 ([x (vector-ref 0df0: 6c 20 69 29 5d 0a 09 20 20 20 20 20 5b 72 20 28 l i)].. [r ( 0e00: 66 74 79 70 65 2d 26 72 65 66 20 64 6f 75 62 6c ftype-&ref doubl 0e10: 65 2d 61 72 72 61 79 20 28 69 29 20 61 72 72 61 e-array (i) arra 0e20: 79 29 5d 29 0a 09 20 28 66 74 79 70 65 2d 73 65 y)]).. (ftype-se 0e30: 74 21 20 64 6f 75 62 6c 65 20 28 29 20 72 20 78 t! double () r x 0e40: 29 29 29 0a 20 20 20 20 20 61 72 72 61 79 29 29 ))). array)) 0e50: 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 .. (define-ftype 0e60: 20 63 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 cairo-rectangle 0e70: 2d 74 0a 20 20 20 28 73 74 72 75 63 74 0a 20 20 -t. (struct. 0e80: 20 20 5b 78 20 64 6f 75 62 6c 65 5d 0a 20 20 20 [x double]. 0e90: 20 5b 79 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 [y double]. 0ea0: 5b 77 69 64 74 68 20 64 6f 75 62 6c 65 5d 0a 20 [width double]. 0eb0: 20 20 20 5b 68 65 69 67 68 74 20 64 6f 75 62 6c [height doubl 0ec0: 65 5d 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 e])).. (define-f 0ed0: 74 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 63 type-allocator c 0ee0: 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 2d 63 airo-rectangle-c 0ef0: 72 65 61 74 65 20 63 61 69 72 6f 2d 72 65 63 74 reate cairo-rect 0f00: 61 6e 67 6c 65 2d 74 29 0a 0a 20 28 64 65 66 69 angle-t).. (defi 0f10: 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 72 ne-ftype cairo-r 0f20: 65 63 74 61 6e 67 6c 65 2d 6c 69 73 74 2d 74 0a ectangle-list-t. 0f30: 20 20 20 28 73 74 72 75 63 74 0a 20 20 20 20 5b (struct. [ 0f40: 73 74 61 74 75 73 20 63 61 69 72 6f 2d 73 74 61 status cairo-sta 0f50: 74 75 73 2d 74 5d 0a 20 20 20 20 5b 72 65 63 74 tus-t]. [rect 0f60: 61 6e 67 6c 65 73 20 28 2a 20 63 61 69 72 6f 2d angles (* cairo- 0f70: 72 65 63 74 61 6e 67 6c 65 2d 74 29 5d 0a 20 20 rectangle-t)]. 0f80: 20 20 5b 6e 75 6d 2d 72 65 63 74 61 6e 67 6c 65 [num-rectangle 0f90: 73 20 69 6e 74 5d 29 29 0a 0a 20 28 64 65 66 69 s int])).. (defi 0fa0: 6e 65 2d 66 74 79 70 65 2d 61 6c 6c 6f 63 61 74 ne-ftype-allocat 0fb0: 6f 72 20 63 61 69 72 6f 2d 72 65 63 74 61 6e 67 or cairo-rectang 0fc0: 6c 65 2d 6c 69 73 74 2d 63 72 65 61 74 65 20 63 le-list-create c 0fd0: 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 2d 6c airo-rectangle-l 0fe0: 69 73 74 2d 74 29 0a 0a 20 28 64 65 66 69 6e 65 ist-t).. (define 0ff0: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 73 63 61 -ftype cairo-sca 1000: 6c 65 64 2d 66 6f 6e 74 2d 74 20 76 6f 69 64 2a led-font-t void* 1010: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 ).. (define-ftyp 1020: 65 20 63 61 69 72 6f 2d 66 6f 6e 74 2d 66 61 63 e cairo-font-fac 1030: 65 2d 74 20 76 6f 69 64 2a 29 0a 0a 20 28 64 65 e-t void*).. (de 1040: 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f fine-ftype cairo 1050: 2d 67 6c 79 70 68 2d 74 0a 20 20 20 28 73 74 72 -glyph-t. (str 1060: 75 63 74 20 5b 69 6e 64 65 78 20 75 6e 73 69 67 uct [index unsig 1070: 6e 65 64 2d 6c 6f 6e 67 5d 20 5b 78 20 64 6f 75 ned-long] [x dou 1080: 62 6c 65 5d 20 5b 79 20 64 6f 75 62 6c 65 5d 29 ble] [y double]) 1090: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 ).. (define-ftyp 10a0: 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 63 61 69 72 e-allocator cair 10b0: 6f 2d 67 6c 79 70 68 2d 63 72 65 61 74 65 20 63 o-glyph-create c 10c0: 61 69 72 6f 2d 67 6c 79 70 68 2d 74 29 0a 0a 28 airo-glyph-t)..( 10d0: 64 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 define-ftype cai 10e0: 72 6f 2d 67 6c 79 70 68 2d 74 2a 20 28 2a 20 63 ro-glyph-t* (* c 10f0: 61 69 72 6f 2d 67 6c 79 70 68 2d 74 29 29 0a 28 airo-glyph-t)).( 1100: 64 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 6c 6c define-ftype-all 1110: 6f 63 61 74 6f 72 20 63 61 69 72 6f 2d 67 6c 79 ocator cairo-gly 1120: 70 68 2a 2d 63 72 65 61 74 65 20 63 61 69 72 6f ph*-create cairo 1130: 2d 67 6c 79 70 68 2d 74 2a 29 0a 0a 20 28 64 65 -glyph-t*).. (de 1140: 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f fine-ftype cairo 1150: 2d 74 65 78 74 2d 63 6c 75 73 74 65 72 2d 74 0a -text-cluster-t. 1160: 20 20 20 28 73 74 72 75 63 74 20 5b 6e 75 6d 2d (struct [num- 1170: 62 79 74 65 73 20 69 6e 74 5d 20 5b 6e 75 6d 2d bytes int] [num- 1180: 67 6c 79 70 68 73 20 69 6e 74 5d 29 29 0a 0a 20 glyphs int])).. 1190: 28 64 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 6c (define-ftype-al 11a0: 6c 6f 63 61 74 6f 72 20 63 61 69 72 6f 2d 74 65 locator cairo-te 11b0: 78 74 2d 63 6c 75 73 74 65 72 2d 63 72 65 61 74 xt-cluster-creat 11c0: 65 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 e cairo-text-clu 11d0: 73 74 65 72 2d 74 29 0a 0a 20 28 64 65 66 69 6e ster-t).. (defin 11e0: 65 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 74 65 e-ftype cairo-te 11f0: 78 74 2d 63 6c 75 73 74 65 72 2d 74 2a 20 28 2a xt-cluster-t* (* 1200: 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 73 cairo-text-clus 1210: 74 65 72 2d 74 29 29 0a 20 28 64 65 66 69 6e 65 ter-t)). (define 1220: 2d 66 74 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 -ftype-allocator 1230: 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 73 cairo-text-clus 1240: 74 65 72 2a 2d 63 72 65 61 74 65 20 63 61 69 72 ter*-create cair 1250: 6f 2d 74 65 78 74 2d 63 6c 75 73 74 65 72 2d 74 o-text-cluster-t 1260: 2a 29 0a 20 0a 20 28 64 65 66 69 6e 65 2d 65 6e *). . (define-en 1270: 75 6d 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 6f umeration* cairo 1280: 2d 74 65 78 74 2d 63 6c 75 73 74 65 72 2d 66 6c -text-cluster-fl 1290: 61 67 0a 20 20 20 28 6e 6f 6e 65 20 62 61 63 6b ag. (none back 12a0: 77 61 72 64 29 29 0a 0a 20 28 64 65 66 69 6e 65 ward)).. (define 12b0: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 74 65 78 -ftype cairo-tex 12c0: 74 2d 63 6c 75 73 74 65 72 2d 66 6c 61 67 73 2d t-cluster-flags- 12d0: 74 20 69 6e 74 29 0a 0a 20 28 64 65 66 69 6e 65 t int).. (define 12e0: 2d 66 74 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 -ftype-allocator 12f0: 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 73 cairo-text-clus 1300: 74 65 72 2d 66 6c 61 67 73 2d 63 72 65 61 74 65 ter-flags-create 1310: 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 73 cairo-text-clus 1320: 74 65 72 2d 66 6c 61 67 73 2d 74 29 0a 0a 20 28 ter-flags-t).. ( 1330: 64 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 6c 6c define-ftype-all 1340: 6f 63 61 74 6f 72 20 63 61 69 72 6f 2d 69 6e 74 ocator cairo-int 1350: 2d 63 72 65 61 74 65 20 69 6e 74 29 0a 20 28 64 -create int). (d 1360: 65 66 69 6e 65 2d 66 74 79 70 65 2d 61 6c 6c 6f efine-ftype-allo 1370: 63 61 74 6f 72 20 63 61 69 72 6f 2d 76 6f 69 64 cator cairo-void 1380: 2a 2d 63 72 65 61 74 65 20 76 6f 69 64 2a 29 0a *-create void*). 1390: 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 . (define-ftype 13a0: 63 61 69 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e cairo-text-exten 13b0: 74 73 2d 74 0a 20 20 20 28 73 74 72 75 63 74 0a ts-t. (struct. 13c0: 20 20 20 20 5b 78 2d 62 65 61 72 69 6e 67 20 64 [x-bearing d 13d0: 6f 75 62 6c 65 5d 0a 20 20 20 20 5b 79 2d 62 65 ouble]. [y-be 13e0: 61 72 69 6e 67 20 64 6f 75 62 6c 65 5d 0a 20 20 aring double]. 13f0: 20 20 5b 77 69 64 74 68 20 64 6f 75 62 6c 65 5d [width double] 1400: 0a 20 20 20 20 5b 68 65 69 67 68 74 20 64 6f 75 . [height dou 1410: 62 6c 65 5d 0a 20 20 20 20 5b 78 2d 61 64 76 61 ble]. [x-adva 1420: 6e 63 65 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 nce double]. 1430: 5b 79 2d 61 64 76 61 6e 63 65 20 64 6f 75 62 6c [y-advance doubl 1440: 65 5d 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 e])).. (define-f 1450: 74 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 63 type-allocator c 1460: 61 69 72 6f 2d 74 65 78 74 2d 65 78 74 65 6e 74 airo-text-extent 1470: 73 2d 63 72 65 61 74 65 20 63 61 69 72 6f 2d 74 s-create cairo-t 1480: 65 78 74 2d 65 78 74 65 6e 74 73 2d 74 29 0a 0a ext-extents-t).. 1490: 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 63 (define-ftype c 14a0: 61 69 72 6f 2d 66 6f 6e 74 2d 65 78 74 65 6e 74 airo-font-extent 14b0: 73 2d 74 0a 20 20 20 28 73 74 72 75 63 74 0a 20 s-t. (struct. 14c0: 20 20 20 5b 61 73 63 65 6e 74 20 64 6f 75 62 6c [ascent doubl 14d0: 65 5d 0a 20 20 20 20 5b 64 65 73 63 65 6e 74 20 e]. [descent 14e0: 64 6f 75 62 6c 65 5d 0a 20 20 20 20 5b 68 65 69 double]. [hei 14f0: 67 68 74 20 64 6f 75 62 6c 65 5d 0a 20 20 20 20 ght double]. 1500: 5b 6d 61 78 2d 78 2d 61 64 76 61 6e 63 65 20 64 [max-x-advance d 1510: 6f 75 62 6c 65 5d 0a 20 20 20 20 5b 6d 61 78 2d ouble]. [max- 1520: 79 2d 61 64 76 61 6e 63 65 20 64 6f 75 62 6c 65 y-advance double 1530: 5d 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 ])).. (define-ft 1540: 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 63 61 ype-allocator ca 1550: 69 72 6f 2d 66 6f 6e 74 2d 65 78 74 65 6e 74 73 iro-font-extents 1560: 2d 63 72 65 61 74 65 20 63 61 69 72 6f 2d 66 6f -create cairo-fo 1570: 6e 74 2d 65 78 74 65 6e 74 73 2d 74 29 0a 09 09 nt-extents-t)... 1580: 09 09 09 3b 28 64 65 66 69 6e 65 2d 66 74 79 70 ...;(define-ftyp 1590: 65 20 63 61 69 72 6f 2d 66 6f 6e 74 2d 65 78 74 e cairo-font-ext 15a0: 65 6e 74 73 2d 74 20 69 6e 74 29 0a 0a 20 28 64 ents-t int).. (d 15b0: 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f efine-enumeratio 15c0: 6e 2a 20 63 61 69 72 6f 2d 66 6f 6e 74 2d 73 6c n* cairo-font-sl 15d0: 61 6e 74 0a 20 20 20 28 6e 6f 72 6d 61 6c 20 69 ant. (normal i 15e0: 74 61 6c 69 63 20 6f 62 6c 69 71 75 65 29 29 0a talic oblique)). 15f0: 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 . (define-enumer 1600: 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 66 6f 6e ation* cairo-fon 1610: 74 2d 77 65 69 67 68 74 20 0a 20 20 20 28 6e 6f t-weight . (no 1620: 72 6d 61 6c 20 62 6f 6c 64 29 29 0a 0a 20 28 64 rmal bold)).. (d 1630: 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f efine-enumeratio 1640: 6e 2a 20 63 61 69 72 6f 2d 73 75 62 70 69 78 65 n* cairo-subpixe 1650: 6c 2d 6f 72 64 65 72 0a 20 20 20 28 64 65 66 61 l-order. (defa 1660: 75 6c 74 20 72 67 62 20 62 67 72 20 76 72 67 62 ult rgb bgr vrgb 1670: 20 76 62 67 72 29 29 0a 0a 20 28 64 65 66 69 6e vbgr)).. (defin 1680: 65 2d 65 6e 75 6d 65 72 61 74 69 6f 6e 2a 20 63 e-enumeration* c 1690: 61 69 72 6f 2d 68 69 6e 74 2d 73 74 79 6c 65 0a airo-hint-style. 16a0: 20 20 20 28 64 65 66 61 75 6c 74 20 6e 6f 6e 65 (default none 16b0: 20 73 6c 69 67 68 74 20 6d 65 64 69 75 6d 20 66 slight medium f 16c0: 75 6c 6c 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d ull)).. (define- 16d0: 65 6e 75 6d 65 72 61 74 69 6f 6e 2a 20 63 61 69 enumeration* cai 16e0: 72 6f 2d 68 69 6e 74 2d 6d 65 74 72 69 63 73 20 ro-hint-metrics 16f0: 0a 20 20 20 28 64 65 66 61 75 6c 74 20 6f 66 66 . (default off 1700: 20 6f 6e 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d on)).. (define- 1710: 66 74 79 70 65 20 63 61 69 72 6f 2d 66 6f 6e 74 ftype cairo-font 1720: 2d 6f 70 74 69 6f 6e 73 2d 74 20 76 6f 69 64 2a -options-t void* 1730: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d ).. (define-enum 1740: 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 66 eration* cairo-f 1750: 6f 6e 74 2d 74 79 70 65 0a 20 20 20 28 74 6f 79 ont-type. (toy 1760: 20 66 74 20 77 69 6e 33 32 20 71 75 61 72 74 7a ft win32 quartz 1770: 20 75 73 65 72 29 29 0a 0a 20 28 64 65 66 69 6e user)).. (defin 1780: 65 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 75 73 e-ftype cairo-us 1790: 65 72 2d 73 63 61 6c 65 64 2d 66 6f 6e 74 2d 69 er-scaled-font-i 17a0: 6e 69 74 2d 66 75 6e 63 2d 74 0a 20 20 20 28 66 nit-func-t. (f 17b0: 75 6e 63 74 69 6f 6e 0a 20 20 20 20 28 63 61 69 unction. (cai 17c0: 72 6f 2d 73 63 61 6c 65 64 2d 66 6f 6e 74 2d 74 ro-scaled-font-t 17d0: 20 28 2a 20 63 61 69 72 6f 2d 74 29 20 28 2a 20 (* cairo-t) (* 17e0: 63 61 69 72 6f 2d 66 6f 6e 74 2d 65 78 74 65 6e cairo-font-exten 17f0: 74 73 2d 74 29 29 0a 20 20 20 20 63 61 69 72 6f ts-t)). cairo 1800: 2d 73 74 61 74 75 73 2d 74 29 29 0a 0a 20 28 64 -status-t)).. (d 1810: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 1820: 6f 2d 75 73 65 72 2d 73 63 61 6c 65 64 2d 66 6f o-user-scaled-fo 1830: 6e 74 2d 72 65 6e 64 65 72 2d 67 6c 79 70 68 2d nt-render-glyph- 1840: 66 75 6e 63 2d 74 0a 20 20 20 28 66 75 6e 63 74 func-t. (funct 1850: 69 6f 6e 0a 20 20 20 20 28 63 61 69 72 6f 2d 73 ion. (cairo-s 1860: 63 61 6c 65 64 2d 66 6f 6e 74 2d 74 0a 20 20 20 caled-font-t. 1870: 20 20 75 6e 73 69 67 6e 65 64 2d 6c 6f 6e 67 0a unsigned-long. 1880: 20 20 20 20 20 28 2a 20 63 61 69 72 6f 2d 74 29 (* cairo-t) 1890: 0a 20 20 20 20 20 28 2a 20 20 63 61 69 72 6f 2d . (* cairo- 18a0: 66 6f 6e 74 2d 65 78 74 65 6e 74 73 2d 74 20 29 font-extents-t ) 18b0: 29 0a 20 20 20 20 63 61 69 72 6f 2d 73 74 61 74 ). cairo-stat 18c0: 75 73 2d 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 us-t)).. (define 18d0: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 75 73 65 -ftype cairo-use 18e0: 72 2d 73 63 61 6c 65 64 2d 66 6f 6e 74 2d 74 65 r-scaled-font-te 18f0: 78 74 2d 74 6f 2d 67 6c 79 70 68 73 2d 66 75 6e xt-to-glyphs-fun 1900: 63 2d 74 0a 20 20 20 28 66 75 6e 63 74 69 6f 6e c-t. (function 1910: 0a 20 20 20 20 28 63 61 69 72 6f 2d 73 63 61 6c . (cairo-scal 1920: 65 64 2d 66 6f 6e 74 2d 74 20 73 74 72 69 6e 67 ed-font-t string 1930: 20 69 6e 74 20 28 2a 20 63 61 69 72 6f 2d 67 6c int (* cairo-gl 1940: 79 70 68 2d 74 29 20 69 6e 74 0a 09 09 09 20 28 yph-t) int.... ( 1950: 2a 20 63 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 * cairo-text-clu 1960: 73 74 65 72 2d 74 29 20 69 6e 74 20 28 2a 20 63 ster-t) int (* c 1970: 61 69 72 6f 2d 74 65 78 74 2d 63 6c 75 73 74 65 airo-text-cluste 1980: 72 2d 66 6c 61 67 73 2d 74 29 29 0a 20 20 20 20 r-flags-t)). 1990: 63 61 69 72 6f 2d 73 74 61 74 75 73 2d 74 29 29 cairo-status-t)) 19a0: 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 .. (define-ftype 19b0: 20 63 61 69 72 6f 2d 75 73 65 72 2d 73 63 61 6c cairo-user-scal 19c0: 65 64 2d 66 6f 6e 74 2d 75 6e 69 63 6f 64 65 2d ed-font-unicode- 19d0: 74 6f 2d 67 6c 79 70 68 2d 66 75 6e 63 2d 74 0a to-glyph-func-t. 19e0: 20 20 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 (function. 19f0: 20 28 63 61 69 72 6f 2d 73 63 61 6c 65 64 2d 66 (cairo-scaled-f 1a00: 6f 6e 74 2d 74 20 75 6e 73 69 67 6e 65 64 2d 6c ont-t unsigned-l 1a10: 6f 6e 67 20 28 2a 20 75 6e 73 69 67 6e 65 64 2d ong (* unsigned- 1a20: 6c 6f 6e 67 29 29 0a 20 20 20 20 63 61 69 72 6f long)). cairo 1a30: 2d 73 74 61 74 75 73 2d 74 29 29 0a 0a 20 28 64 -status-t)).. (d 1a40: 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f efine-enumeratio 1a50: 6e 2a 20 63 61 69 72 6f 2d 70 61 74 68 2d 64 61 n* cairo-path-da 1a60: 74 61 2d 74 79 70 65 0a 20 20 20 28 6d 6f 76 65 ta-type. (move 1a70: 2d 74 6f 20 6c 69 6e 65 2d 74 6f 20 63 75 72 76 -to line-to curv 1a80: 65 2d 74 6f 20 63 6c 6f 73 65 2d 70 61 74 68 29 e-to close-path) 1a90: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 ).. (define-ftyp 1aa0: 65 20 63 61 69 72 6f 2d 70 61 74 68 2d 64 61 74 e cairo-path-dat 1ab0: 61 2d 74 0a 20 20 20 28 75 6e 69 6f 6e 0a 20 20 a-t. (union. 1ac0: 20 20 5b 68 65 61 64 65 72 20 28 73 74 72 75 63 [header (struc 1ad0: 74 20 5b 74 79 70 65 20 63 61 69 72 6f 2d 70 61 t [type cairo-pa 1ae0: 74 68 2d 64 61 74 61 2d 74 79 70 65 2d 74 5d 20 th-data-type-t] 1af0: 5b 6c 65 6e 67 74 68 20 69 6e 74 5d 29 5d 0a 20 [length int])]. 1b00: 20 20 20 5b 70 6f 69 6e 74 20 28 73 74 72 75 63 [point (struc 1b10: 74 20 5b 78 20 64 6f 75 62 6c 65 5d 20 5b 79 20 t [x double] [y 1b20: 64 6f 75 62 6c 65 5d 29 5d 29 29 0a 0a 20 28 64 double])])).. (d 1b30: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 1b40: 6f 2d 70 61 74 68 2d 74 0a 20 20 20 28 73 74 72 o-path-t. (str 1b50: 75 63 74 0a 20 20 20 20 5b 73 74 61 74 75 73 20 uct. [status 1b60: 63 61 69 72 6f 2d 73 74 61 74 75 73 2d 74 5d 0a cairo-status-t]. 1b70: 20 20 20 20 5b 64 61 74 61 20 28 2a 20 63 61 69 [data (* cai 1b80: 72 6f 2d 70 61 74 68 2d 64 61 74 61 2d 74 29 5d ro-path-data-t)] 1b90: 0a 20 20 20 20 5b 6e 75 6d 2d 64 61 74 61 20 69 . [num-data i 1ba0: 6e 74 5d 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d nt])).. (define- 1bb0: 66 74 79 70 65 2d 61 6c 6c 6f 63 61 74 6f 72 20 ftype-allocator 1bc0: 63 61 69 72 6f 2d 70 61 74 68 2d 63 72 65 61 74 cairo-path-creat 1bd0: 65 20 63 61 69 72 6f 2d 70 61 74 68 2d 74 29 0a e cairo-path-t). 1be0: 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 . (define-enumer 1bf0: 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 64 65 76 ation* cairo-dev 1c00: 69 63 65 2d 74 79 70 65 0a 20 20 20 28 64 72 6d ice-type. (drm 1c10: 20 67 6c 20 73 63 72 69 70 74 20 78 63 62 20 78 gl script xcb x 1c20: 6c 69 62 20 78 6d 6c 20 63 6f 67 6c 20 77 69 6e lib xml cogl win 1c30: 33 32 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 63 32)).. (define c 1c40: 61 69 72 6f 2d 64 65 76 69 63 65 2d 74 79 70 65 airo-device-type 1c50: 2d 69 6e 76 61 6c 69 64 20 2d 31 29 0a 0a 20 28 -invalid -1).. ( 1c60: 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 define-enumerati 1c70: 6f 6e 2a 20 63 61 69 72 6f 2d 73 75 72 66 61 63 on* cairo-surfac 1c80: 65 2d 6f 62 73 65 72 76 65 72 2d 6d 6f 64 65 0a e-observer-mode. 1c90: 20 20 20 28 6e 6f 72 6d 61 6c 20 72 65 63 6f 72 (normal recor 1ca0: 64 2d 6f 70 65 72 61 74 69 6f 6e 73 29 29 0a 0a d-operations)).. 1cb0: 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 63 (define-ftype c 1cc0: 61 69 72 6f 2d 73 75 72 66 61 63 65 2d 6f 62 73 airo-surface-obs 1cd0: 65 72 76 65 72 2d 63 61 6c 6c 62 61 63 6b 2d 74 erver-callback-t 1ce0: 0a 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 28 . (function (( 1cf0: 2a 20 63 61 69 72 6f 2d 73 75 72 66 61 63 65 2d * cairo-surface- 1d00: 74 29 20 28 2a 20 63 61 69 72 6f 2d 73 75 72 66 t) (* cairo-surf 1d10: 61 63 65 2d 74 29 20 76 6f 69 64 2a 29 20 76 6f ace-t) void*) vo 1d20: 69 64 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 65 id)).. (define-e 1d30: 6e 75 6d 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 numeration* cair 1d40: 6f 2d 73 75 72 66 61 63 65 2d 74 79 70 65 0a 20 o-surface-type. 1d50: 20 20 28 69 6d 61 67 65 20 70 64 66 20 70 73 20 (image pdf ps 1d60: 78 6c 69 62 20 78 63 62 20 67 6c 69 7a 20 71 75 xlib xcb gliz qu 1d70: 61 72 74 7a 20 77 69 6e 33 32 20 62 65 6f 73 20 artz win32 beos 1d80: 64 69 72 65 63 74 66 62 20 73 76 67 0a 09 20 20 directfb svg.. 1d90: 6f 73 32 20 77 69 6e 33 32 2d 70 72 69 6e 74 69 os2 win32-printi 1da0: 6e 67 20 71 75 61 72 74 7a 2d 69 6d 61 67 65 20 ng quartz-image 1db0: 73 63 72 69 70 74 20 71 74 20 72 65 63 6f 72 64 script qt record 1dc0: 69 6e 67 20 76 67 20 67 6c 0a 09 20 20 64 72 6d ing vg gl.. drm 1dd0: 20 74 65 65 20 78 6d 6c 20 73 6b 69 61 20 73 75 tee xml skia su 1de0: 62 73 75 72 66 61 63 65 20 63 6f 67 6c 29 29 0a bsurface cogl)). 1df0: 0a 20 28 64 65 66 69 6e 65 20 63 61 69 72 6f 2d . (define cairo- 1e00: 6d 69 6d 65 2d 74 79 70 65 73 0a 20 20 20 27 28 mime-types. '( 1e10: 28 6a 70 65 67 20 2e 20 22 69 6d 61 67 65 2f 6a (jpeg . "image/j 1e20: 70 65 67 22 29 20 28 70 6e 67 20 2e 20 22 69 6d peg") (png . "im 1e30: 61 67 65 2f 70 6e 67 22 29 20 28 6a 70 32 20 2e age/png") (jp2 . 1e40: 20 22 69 6d 61 67 65 2f 6a 70 32 22 29 0a 20 20 "image/jp2"). 1e50: 20 20 20 28 75 72 69 20 2e 20 22 74 65 78 74 2f (uri . "text/ 1e60: 78 2d 75 72 69 22 29 0a 20 20 20 20 20 28 75 6e x-uri"). (un 1e70: 69 71 75 65 2d 69 64 20 2e 20 22 61 70 70 6c 69 ique-id . "appli 1e80: 63 61 74 69 6f 6e 2f 78 2d 63 61 69 72 6f 2e 75 cation/x-cairo.u 1e90: 75 69 64 22 29 0a 20 20 20 20 20 28 6a 62 69 67 uid"). (jbig 1ea0: 32 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2 . "application 1eb0: 2f 78 2d 63 61 69 72 6f 2e 6a 62 69 67 32 22 29 /x-cairo.jbig2") 1ec0: 0a 20 20 20 20 20 28 6a 62 69 67 32 2d 67 6c 6f . (jbig2-glo 1ed0: 62 61 6c 20 2e 20 22 61 70 70 6c 69 63 61 74 69 bal . "applicati 1ee0: 6f 6e 2f 78 2d 63 61 69 72 6f 2e 6a 62 69 67 32 on/x-cairo.jbig2 1ef0: 2d 67 6c 6f 62 61 6c 22 29 0a 20 20 20 20 20 28 -global"). ( 1f00: 6a 62 69 67 32 2d 67 6c 6f 62 61 6c 2d 69 64 20 jbig2-global-id 1f10: 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 . "application/x 1f20: 2d 63 61 69 72 6f 2e 6a 62 69 67 32 2d 67 6c 6f -cairo.jbig2-glo 1f30: 62 61 6c 2d 69 64 22 29 29 29 0a 0a 20 28 64 65 bal-id"))).. (de 1f40: 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f fine-ftype cairo 1f50: 2d 72 61 73 74 65 72 2d 73 6f 75 72 63 65 2d 61 -raster-source-a 1f60: 63 71 75 69 72 65 2d 66 75 6e 63 2d 74 0a 20 20 cquire-func-t. 1f70: 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 28 (function. ( 1f80: 28 2a 20 63 61 69 72 6f 2d 70 61 74 74 65 72 6e (* cairo-pattern 1f90: 2d 74 29 0a 20 20 20 20 20 76 6f 69 64 2a 0a 20 -t). void*. 1fa0: 20 20 20 20 28 2a 20 63 61 69 72 6f 2d 73 75 72 (* cairo-sur 1fb0: 66 61 63 65 2d 74 29 0a 20 20 20 20 20 28 2a 20 face-t). (* 1fc0: 63 61 69 72 6f 2d 72 65 63 74 61 6e 67 6c 65 2d cairo-rectangle- 1fd0: 69 6e 74 2d 74 29 29 0a 20 20 20 20 63 61 69 72 int-t)). cair 1fe0: 6f 2d 73 74 61 74 75 73 2d 74 29 29 0a 0a 20 28 o-status-t)).. ( 1ff0: 64 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 define-ftype cai 2000: 72 6f 2d 72 61 73 74 65 72 2d 73 6f 75 72 63 65 ro-raster-source 2010: 2d 61 63 71 75 69 72 65 2d 66 75 6e 63 2d 74 2a -acquire-func-t* 2020: 0a 20 20 20 28 2a 20 63 61 69 72 6f 2d 72 61 73 . (* cairo-ras 2030: 74 65 72 2d 73 6f 75 72 63 65 2d 61 63 71 75 69 ter-source-acqui 2040: 72 65 2d 66 75 6e 63 2d 74 29 29 0a 0a 20 28 64 re-func-t)).. (d 2050: 65 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 efine-ftype cair 2060: 6f 2d 72 61 73 74 65 72 2d 73 6f 75 72 63 65 2d o-raster-source- 2070: 72 65 6c 65 61 73 65 2d 66 75 6e 63 2d 74 0a 20 release-func-t. 2080: 20 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 (function. 2090: 28 28 2a 20 63 61 69 72 6f 2d 70 61 74 74 65 72 ((* cairo-patter 20a0: 6e 2d 74 29 20 76 6f 69 64 2a 20 28 2a 20 63 61 n-t) void* (* ca 20b0: 69 72 6f 2d 73 75 72 66 61 63 65 2d 74 29 29 0a iro-surface-t)). 20c0: 20 20 20 20 63 61 69 72 6f 2d 73 74 61 74 75 73 cairo-status 20d0: 2d 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 -t)).. (define-f 20e0: 74 79 70 65 20 63 61 69 72 6f 2d 72 61 73 74 65 type cairo-raste 20f0: 72 2d 73 6f 75 72 63 65 2d 72 65 6c 65 61 73 65 r-source-release 2100: 2d 66 75 6e 63 2d 74 2a 0a 20 20 28 2a 20 63 61 -func-t*. (* ca 2110: 69 72 6f 2d 72 61 73 74 65 72 2d 73 6f 75 72 63 iro-raster-sourc 2120: 65 2d 72 65 6c 65 61 73 65 2d 66 75 6e 63 2d 74 e-release-func-t 2130: 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 )).. (define-fty 2140: 70 65 20 63 61 69 72 6f 2d 72 61 73 74 65 72 2d pe cairo-raster- 2150: 73 6f 75 72 63 65 2d 73 6e 61 70 73 68 6f 74 2d source-snapshot- 2160: 66 75 6e 63 2d 74 0a 20 20 20 28 66 75 6e 63 74 func-t. (funct 2170: 69 6f 6e 20 28 28 2a 20 63 61 69 72 6f 2d 70 61 ion ((* cairo-pa 2180: 74 74 65 72 6e 2d 74 29 20 76 6f 69 64 2a 29 20 ttern-t) void*) 2190: 63 61 69 72 6f 2d 73 74 61 74 75 73 2d 74 29 29 cairo-status-t)) 21a0: 0a 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 .. (define-ftype 21b0: 20 63 61 69 72 6f 2d 72 61 73 74 65 72 2d 73 6f cairo-raster-so 21c0: 75 72 63 65 2d 63 6f 70 79 2d 66 75 6e 63 2d 74 urce-copy-func-t 21d0: 0a 20 20 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 . (function. 21e0: 20 20 28 28 2a 20 63 61 69 72 6f 2d 70 61 74 74 ((* cairo-patt 21f0: 65 72 6e 2d 74 29 20 76 6f 69 64 2a 20 28 2a 20 ern-t) void* (* 2200: 63 61 69 72 6f 2d 70 61 74 74 65 72 6e 2d 74 29 cairo-pattern-t) 2210: 29 0a 20 20 20 20 63 61 69 72 6f 2d 73 74 61 74 ). cairo-stat 2220: 75 73 2d 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 us-t)).. (define 2230: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 72 61 73 -ftype cairo-ras 2240: 74 65 72 2d 73 6f 75 72 63 65 2d 66 69 6e 69 73 ter-source-finis 2250: 68 2d 66 75 6e 63 2d 74 0a 20 20 20 28 66 75 6e h-func-t. (fun 2260: 63 74 69 6f 6e 20 28 28 2a 20 63 61 69 72 6f 2d ction ((* cairo- 2270: 70 61 74 74 65 72 6e 2d 74 29 20 76 6f 69 64 2a pattern-t) void* 2280: 29 20 63 61 69 72 6f 2d 73 74 61 74 75 73 2d 74 ) cairo-status-t 2290: 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 )).. (define-enu 22a0: 6d 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d meration* cairo- 22b0: 70 61 74 74 65 72 6e 2d 74 79 70 65 0a 20 20 20 pattern-type. 22c0: 28 73 6f 6c 69 64 20 73 75 72 66 61 63 65 20 6c (solid surface l 22d0: 69 6e 65 61 72 20 72 61 64 69 61 6c 20 6d 65 73 inear radial mes 22e0: 68 20 72 61 73 74 65 72 2d 73 6f 75 72 63 65 29 h raster-source) 22f0: 29 0a 0a 20 28 64 65 66 69 6e 65 2d 65 6e 75 6d ).. (define-enum 2300: 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 6f 2d 65 eration* cairo-e 2310: 78 74 65 6e 64 0a 20 20 20 28 6e 6f 6e 65 20 72 xtend. (none r 2320: 65 70 65 61 74 20 72 65 66 6c 65 63 74 20 70 61 epeat reflect pa 2330: 64 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 65 6e d)).. (define-en 2340: 75 6d 65 72 61 74 69 6f 6e 2a 20 63 61 69 72 6f umeration* cairo 2350: 2d 66 69 6c 74 65 72 0a 20 20 20 28 66 61 73 74 -filter. (fast 2360: 20 67 6f 6f 64 20 62 65 73 74 20 6e 65 61 72 65 good best neare 2370: 73 74 20 62 69 6c 69 6e 65 61 72 20 67 61 75 73 st bilinear gaus 2380: 73 69 61 6e 29 29 0a 0a 20 28 64 65 66 69 6e 65 sian)).. (define 2390: 2d 66 74 79 70 65 20 63 61 69 72 6f 2d 72 65 67 -ftype cairo-reg 23a0: 69 6f 6e 2d 74 20 76 6f 69 64 2a 29 0a 0a 20 28 ion-t void*).. ( 23b0: 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 define-enumerati 23c0: 6f 6e 2a 20 63 61 69 72 6f 2d 72 65 67 69 6f 6e on* cairo-region 23d0: 2d 6f 76 65 72 6c 61 70 0a 20 20 20 28 69 6e 20 -overlap. (in 23e0: 6f 75 74 20 70 61 72 74 29 29 0a 0a 20 28 64 65 out part)).. (de 23f0: 66 69 6e 65 2d 66 74 79 70 65 20 63 61 69 72 6f fine-ftype cairo 2400: 2d 70 64 66 2d 76 65 72 73 69 6f 6e 2d 74 20 69 -pdf-version-t i 2410: 6e 74 29 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 nt). (define-fty 2420: 70 65 20 63 61 69 72 6f 2d 70 64 66 2d 76 65 72 pe cairo-pdf-ver 2430: 73 69 6f 6e 2d 74 2a 20 28 2a 20 63 61 69 72 6f sion-t* (* cairo 2440: 2d 70 64 66 2d 76 65 72 73 69 6f 6e 2d 74 29 29 -pdf-version-t)) 2450: 0a 20 28 64 65 66 69 6e 65 2d 66 74 79 70 65 20 . (define-ftype 2460: 63 61 69 72 6f 2d 70 64 66 2d 76 65 72 73 69 6f cairo-pdf-versio 2470: 6e 2d 74 2d 63 6f 6e 73 74 20 63 61 69 72 6f 2d n-t-const cairo- 2480: 70 64 66 2d 76 65 72 73 69 6f 6e 2d 74 29 0a pdf-version-t).