Artifact
e38dfe818af433edc162484d6a94d6e9faab93d7:
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 0a 09 22 23 69 6e 63 6c 75 64 65 20 3c \n".."#include <
0070: 63 64 6e 61 74 69 76 65 2e 68 3e 5c 6e 22 29 0a cdnative.h>\n").
0080: 0a 28 69 6e 63 6c 75 64 65 20 22 63 61 6e 76 61 .(include "canva
0090: 73 2d 64 72 61 77 2d 74 79 70 65 73 2e 73 63 6d s-draw-types.scm
00a0: 22 29 0a 0a 3b 3b 20 7d 7d 7d 0a 0a 3b 3b 20 7b ")..;; }}}..;; {
00b0: 7b 7b 20 43 6f 6e 74 65 78 74 20 74 79 70 65 73 {{ Context types
00c0: 0a 0a 28 64 65 66 69 6e 65 20 63 6f 6e 74 65 78 ..(define contex
00d0: 74 3a 6e 61 74 69 76 65 2d 77 69 6e 64 6f 77 0a t:native-window.
00e0: 09 28 66 6f 72 65 69 67 6e 2d 76 61 6c 75 65 20 .(foreign-value
00f0: 22 43 44 5f 4e 41 54 49 56 45 57 49 4e 44 4f 57 "CD_NATIVEWINDOW
0100: 22 20 6e 6f 6e 6e 75 6c 6c 2d 63 6f 6e 74 65 78 " nonnull-contex
0110: 74 29 29 0a 0a 3b 3b 20 7d 7d 7d 0a 0a 3b 3b 20 t))..;; }}}..;;
0120: 7b 7b 7b 20 41 75 78 69 6c 69 61 72 79 20 66 75 {{{ Auxiliary fu
0130: 6e 63 74 69 6f 6e 73 0a 0a 28 64 65 66 69 6e 65 nctions..(define
0140: 20 73 63 72 65 65 6e 2d 73 69 7a 65 0a 09 28 6c screen-size..(l
0150: 65 74 72 65 63 20 28 5b 73 63 72 65 65 6e 2d 73 etrec ([screen-s
0160: 69 7a 65 2f 72 61 77 20 28 66 6f 72 65 69 67 6e ize/raw (foreign
0170: 2d 6c 61 6d 62 64 61 20 76 6f 69 64 20 22 63 64 -lambda void "cd
0180: 47 65 74 53 63 72 65 65 6e 53 69 7a 65 22 20 28 GetScreenSize" (
0190: 63 2d 70 6f 69 6e 74 65 72 20 69 6e 74 29 20 28 c-pointer int) (
01a0: 63 2d 70 6f 69 6e 74 65 72 20 69 6e 74 29 20 28 c-pointer int) (
01b0: 63 2d 70 6f 69 6e 74 65 72 20 64 6f 75 62 6c 65 c-pointer double
01c0: 29 20 28 63 2d 70 6f 69 6e 74 65 72 20 64 6f 75 ) (c-pointer dou
01d0: 62 6c 65 29 29 5d 29 0a 09 09 28 6c 61 6d 62 64 ble))])...(lambd
01e0: 61 20 28 29 0a 09 09 09 28 6c 65 74 2d 6c 6f 63 a ()....(let-loc
01f0: 61 74 69 6f 6e 20 28 5b 77 69 64 74 68 2f 70 78 ation ([width/px
0200: 20 69 6e 74 20 30 5d 20 5b 68 65 69 67 68 74 2f int 0] [height/
0210: 70 78 20 69 6e 74 20 30 5d 0a 09 09 09 20 20 20 px int 0]....
0220: 20 20 20 20 20 20 20 20 20 20 20 20 5b 77 69 64 [wid
0230: 74 68 2f 6d 6d 20 64 6f 75 62 6c 65 20 30 5d 20 th/mm double 0]
0240: 5b 68 65 69 67 68 74 2f 6d 6d 20 64 6f 75 62 6c [height/mm doubl
0250: 65 20 30 5d 29 0a 09 09 09 20 20 28 73 63 72 65 e 0]).... (scre
0260: 65 6e 2d 73 69 7a 65 2f 72 61 77 0a 09 09 09 20 en-size/raw....
0270: 20 09 28 6c 6f 63 61 74 69 6f 6e 20 77 69 64 74 .(location widt
0280: 68 2f 70 78 29 20 28 6c 6f 63 61 74 69 6f 6e 20 h/px) (location
0290: 68 65 69 67 68 74 2f 70 78 29 0a 09 09 09 20 20 height/px)....
02a0: 09 28 6c 6f 63 61 74 69 6f 6e 20 77 69 64 74 68 .(location width
02b0: 2f 6d 6d 29 20 28 6c 6f 63 61 74 69 6f 6e 20 68 /mm) (location h
02c0: 65 69 67 68 74 2f 6d 6d 29 29 0a 09 09 09 20 20 eight/mm))....
02d0: 28 76 61 6c 75 65 73 0a 09 09 09 20 20 09 77 69 (values.... .wi
02e0: 64 74 68 2f 70 78 20 68 65 69 67 68 74 2f 70 78 dth/px height/px
02f0: 0a 09 09 09 20 20 09 77 69 64 74 68 2f 6d 6d 20 .... .width/mm
0300: 68 65 69 67 68 74 2f 6d 6d 29 29 29 29 29 0a 0a height/mm)))))..
0310: 3b 3b 20 7d 7d 7d 0a 0a 3b 3b 20 7b 7b 7b 20 4c ;; }}}..;; {{{ L
0320: 69 62 72 61 72 79 20 69 6e 69 74 69 61 6c 69 7a ibrary initializ
0330: 61 74 69 6f 6e 0a 0a 28 66 6f 72 65 69 67 6e 2d ation..(foreign-
0340: 63 6f 64 65 20 22 63 64 49 6e 69 74 43 6f 6e 74 code "cdInitCont
0350: 65 78 74 50 6c 75 73 28 29 3b 22 29 0a 0a 3b 3b extPlus();")..;;
0360: 20 7d 7d 7d 0a }}}.