Artifact
54e46d244fdec7ea2e53e685a7891d98090bf795:
0000: 28 72 65 71 75 69 72 65 2d 6c 69 62 72 61 72 79 (require-library
0010: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 canvas-draw-bas
0020: 65 29 0a 0a 28 6d 6f 64 75 6c 65 20 63 61 6e 76 e)..(module canv
0030: 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 0a 09 as-draw-native..
0040: 28 63 6f 6e 74 65 78 74 3a 6e 61 74 69 76 65 2d (context:native-
0050: 77 69 6e 64 6f 77 0a 09 20 73 63 72 65 65 6e 2d window.. screen-
0060: 73 69 7a 65 29 0a 09 28 69 6d 70 6f 72 74 20 73 size)..(import s
0070: 63 68 65 6d 65 20 63 68 69 63 6b 65 6e 20 66 6f cheme chicken fo
0080: 72 65 69 67 6e 20 63 61 6e 76 61 73 2d 64 72 61 reign canvas-dra
0090: 77 2d 62 61 73 65 29 0a 0a 3b 3b 20 7b 7b 7b 20 w-base)..;; {{{
00a0: 44 61 74 61 20 74 79 70 65 73 0a 0a 28 66 6f 72 Data types..(for
00b0: 65 69 67 6e 2d 64 65 63 6c 61 72 65 0a 09 22 23 eign-declare.."#
00c0: 69 6e 63 6c 75 64 65 20 3c 63 64 2e 68 3e 5c 6e include <cd.h>\n
00d0: 22 0a 09 22 23 69 6e 63 6c 75 64 65 20 3c 63 64 ".."#include <cd
00e0: 6e 61 74 69 76 65 2e 68 3e 5c 6e 22 29 0a 0a 28 native.h>\n")..(
00f0: 69 6e 63 6c 75 64 65 20 22 63 61 6e 76 61 73 2d include "canvas-
0100: 64 72 61 77 2d 74 79 70 65 73 2e 73 63 6d 22 29 draw-types.scm")
0110: 0a 0a 3b 3b 20 7d 7d 7d 0a 0a 3b 3b 20 7b 7b 7b ..;; }}}..;; {{{
0120: 20 43 6f 6e 74 65 78 74 20 74 79 70 65 73 0a 0a Context types..
0130: 28 64 65 66 69 6e 65 20 63 6f 6e 74 65 78 74 3a (define context:
0140: 6e 61 74 69 76 65 2d 77 69 6e 64 6f 77 0a 09 28 native-window..(
0150: 66 6f 72 65 69 67 6e 2d 76 61 6c 75 65 20 22 43 foreign-value "C
0160: 44 5f 4e 41 54 49 56 45 57 49 4e 44 4f 57 22 20 D_NATIVEWINDOW"
0170: 6e 6f 6e 6e 75 6c 6c 2d 63 6f 6e 74 65 78 74 29 nonnull-context)
0180: 29 0a 0a 3b 3b 20 7d 7d 7d 0a 0a 3b 3b 20 7b 7b )..;; }}}..;; {{
0190: 7b 20 41 75 78 69 6c 69 61 72 79 20 66 75 6e 63 { Auxiliary func
01a0: 74 69 6f 6e 73 0a 0a 28 64 65 66 69 6e 65 20 73 tions..(define s
01b0: 63 72 65 65 6e 2d 73 69 7a 65 0a 09 28 6c 65 74 creen-size..(let
01c0: 72 65 63 20 28 5b 73 63 72 65 65 6e 2d 73 69 7a rec ([screen-siz
01d0: 65 2f 72 61 77 20 28 66 6f 72 65 69 67 6e 2d 6c e/raw (foreign-l
01e0: 61 6d 62 64 61 20 76 6f 69 64 20 22 63 64 47 65 ambda void "cdGe
01f0: 74 53 63 72 65 65 6e 53 69 7a 65 22 20 28 63 2d tScreenSize" (c-
0200: 70 6f 69 6e 74 65 72 20 69 6e 74 29 20 28 63 2d pointer int) (c-
0210: 70 6f 69 6e 74 65 72 20 69 6e 74 29 20 28 63 2d pointer int) (c-
0220: 70 6f 69 6e 74 65 72 20 64 6f 75 62 6c 65 29 20 pointer double)
0230: 28 63 2d 70 6f 69 6e 74 65 72 20 64 6f 75 62 6c (c-pointer doubl
0240: 65 29 29 5d 29 0a 09 09 28 6c 61 6d 62 64 61 20 e))])...(lambda
0250: 28 29 0a 09 09 09 28 6c 65 74 2d 6c 6f 63 61 74 ()....(let-locat
0260: 69 6f 6e 20 28 5b 77 69 64 74 68 2f 70 78 20 69 ion ([width/px i
0270: 6e 74 20 30 5d 20 5b 68 65 69 67 68 74 2f 70 78 nt 0] [height/px
0280: 20 69 6e 74 20 30 5d 0a 09 09 09 20 20 20 20 20 int 0]....
0290: 20 20 20 20 20 20 20 20 20 20 5b 77 69 64 74 68 [width
02a0: 2f 6d 6d 20 64 6f 75 62 6c 65 20 30 5d 20 5b 68 /mm double 0] [h
02b0: 65 69 67 68 74 2f 6d 6d 20 64 6f 75 62 6c 65 20 eight/mm double
02c0: 30 5d 29 0a 09 09 09 20 20 28 73 63 72 65 65 6e 0]).... (screen
02d0: 2d 73 69 7a 65 2f 72 61 77 0a 09 09 09 20 20 09 -size/raw.... .
02e0: 28 6c 6f 63 61 74 69 6f 6e 20 77 69 64 74 68 2f (location width/
02f0: 70 78 29 20 28 6c 6f 63 61 74 69 6f 6e 20 68 65 px) (location he
0300: 69 67 68 74 2f 70 78 29 0a 09 09 09 20 20 09 28 ight/px).... .(
0310: 6c 6f 63 61 74 69 6f 6e 20 77 69 64 74 68 2f 6d location width/m
0320: 6d 29 20 28 6c 6f 63 61 74 69 6f 6e 20 68 65 69 m) (location hei
0330: 67 68 74 2f 6d 6d 29 29 0a 09 09 09 20 20 28 76 ght/mm)).... (v
0340: 61 6c 75 65 73 0a 09 09 09 20 20 09 77 69 64 74 alues.... .widt
0350: 68 2f 70 78 20 68 65 69 67 68 74 2f 70 78 0a 09 h/px height/px..
0360: 09 09 20 20 09 77 69 64 74 68 2f 6d 6d 20 68 65 .. .width/mm he
0370: 69 67 68 74 2f 6d 6d 29 29 29 29 29 0a 0a 3b 3b ight/mm)))))..;;
0380: 20 7d 7d 7d 0a 0a 3b 3b 20 7b 7b 7b 20 4c 69 62 }}}..;; {{{ Lib
0390: 72 61 72 79 20 69 6e 69 74 69 61 6c 69 7a 61 74 rary initializat
03a0: 69 6f 6e 0a 0a 28 66 6f 72 65 69 67 6e 2d 63 6f ion..(foreign-co
03b0: 64 65 20 22 63 64 49 6e 69 74 43 6f 6e 74 65 78 de "cdInitContex
03c0: 74 50 6c 75 73 28 29 3b 22 29 0a 0a 3b 3b 20 7d tPlus();")..;; }
03d0: 7d 7d 0a 0a 29 0a }}..).