Artifact
0590ffc4d1888c93a6616a31056084c9ec54a54b:
0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 74 61 62 2d 77 69 64 74 68 3a 20 eme; tab-width:
0020: 32 3b 20 2d 2a 2d 20 3b 3b 0a 0a 3b 3b 20 7b 7b 2; -*- ;;..;; {{
0030: 7b 20 44 61 74 61 20 74 79 70 65 73 0a 0a 28 66 { Data types..(f
0040: 6f 72 65 69 67 6e 2d 64 65 63 6c 61 72 65 0a 09 oreign-declare..
0050: 22 23 69 6e 63 6c 75 64 65 20 3c 63 64 2e 68 3e "#include <cd.h>
0060: 5c 6e 22 29 0a 0a 28 69 6e 63 6c 75 64 65 20 22 \n")..(include "
0070: 63 61 6e 76 61 73 2d 64 72 61 77 2d 74 79 70 65 canvas-draw-type
0080: 73 2e 73 63 6d 22 29 0a 0a 3b 3b 20 7d 7d 7d 0a s.scm")..;; }}}.
0090: 0a 3b 3b 20 7b 7b 7b 20 43 6f 6e 74 65 78 74 20 .;; {{{ Context
00a0: 63 6f 6e 74 65 6e 74 20 70 6c 61 79 62 61 63 6b content playback
00b0: 0a 0a 28 64 65 66 69 6e 65 20 63 61 6e 76 61 73 ..(define canvas
00c0: 2d 70 6c 61 79 2f 70 74 72 21 0a 09 28 66 6f 72 -play/ptr!..(for
00d0: 65 69 67 6e 2d 6c 61 6d 62 64 61 20 69 6e 74 20 eign-lambda int
00e0: 22 63 64 43 61 6e 76 61 73 50 6c 61 79 22 20 6e "cdCanvasPlay" n
00f0: 6f 6e 6e 75 6c 6c 2d 63 61 6e 76 61 73 20 6e 6f onnull-canvas no
0100: 6e 6e 75 6c 6c 2d 63 6f 6e 74 65 78 74 20 69 6e nnull-context in
0110: 74 20 69 6e 74 20 69 6e 74 20 69 6e 74 20 63 2d t int int int c-
0120: 70 6f 69 6e 74 65 72 29 29 0a 0a 28 64 65 66 69 pointer))..(defi
0130: 6e 65 20 63 61 6e 76 61 73 2d 70 6c 61 79 2f 73 ne canvas-play/s
0140: 74 72 69 6e 67 21 0a 09 28 66 6f 72 65 69 67 6e tring!..(foreign
0150: 2d 6c 61 6d 62 64 61 20 69 6e 74 20 22 63 64 43 -lambda int "cdC
0160: 61 6e 76 61 73 50 6c 61 79 22 20 6e 6f 6e 6e 75 anvasPlay" nonnu
0170: 6c 6c 2d 63 61 6e 76 61 73 20 6e 6f 6e 6e 75 6c ll-canvas nonnul
0180: 6c 2d 63 6f 6e 74 65 78 74 20 69 6e 74 20 69 6e l-context int in
0190: 74 20 69 6e 74 20 69 6e 74 20 63 2d 73 74 72 69 t int int c-stri
01a0: 6e 67 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 ng))..(define (c
01b0: 61 6e 76 61 73 2d 70 6c 61 79 21 20 63 61 6e 76 anvas-play! canv
01c0: 61 73 20 63 6f 6e 74 65 78 74 20 78 30 20 78 31 as context x0 x1
01d0: 20 79 30 20 79 31 20 64 61 74 61 29 0a 09 28 6c y0 y1 data)..(l
01e0: 65 74 20 28 5b 63 61 6e 76 61 73 2d 70 6c 61 79 et ([canvas-play
01f0: 2f 64 61 74 61 21 20 28 69 66 20 28 73 74 72 69 /data! (if (stri
0200: 6e 67 3f 20 64 61 74 61 29 20 63 61 6e 76 61 73 ng? data) canvas
0210: 2d 70 6c 61 79 2f 73 74 72 69 6e 67 21 20 63 61 -play/string! ca
0220: 6e 76 61 73 2d 70 6c 61 79 2f 70 74 72 21 29 5d nvas-play/ptr!)]
0230: 29 0a 09 09 28 75 6e 6c 65 73 73 20 28 7a 65 72 )...(unless (zer
0240: 6f 3f 20 28 63 61 6e 76 61 73 2d 70 6c 61 79 2f o? (canvas-play/
0250: 64 61 74 61 21 20 63 61 6e 76 61 73 20 63 6f 6e data! canvas con
0260: 74 65 78 74 20 78 30 20 78 31 20 79 30 20 79 31 text x0 x1 y0 y1
0270: 20 64 61 74 61 29 29 0a 09 09 09 28 65 72 72 6f data))....(erro
0280: 72 20 27 63 61 6e 76 61 73 2d 70 6c 61 79 21 20 r 'canvas-play!
0290: 22 66 61 69 6c 65 64 20 74 6f 20 72 65 70 6c 61 "failed to repla
02a0: 79 20 67 72 61 70 68 69 63 73 22 29 29 29 29 0a y graphics")))).
02b0: 0a 3b 3b 20 7d 7d 7d 0a .;; }}}.