Artifact
594fcc5d3a556ae0064eb0dcea392d74785d7a25:
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 28 64 65 66 69 2; -*- ;;..(defi
0030: 6e 65 20 6d 6f 64 75 6c 65 73 0a 09 60 28 2d 6a ne modules..`(-j
0040: 20 63 61 6e 76 61 73 2d 64 72 61 77 0a 09 09 2d canvas-draw...-
0050: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 j canvas-draw-ba
0060: 73 65 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 se -j canvas-dra
0070: 77 2d 70 72 69 6d 69 74 69 76 65 73 20 2d 6a 20 w-primitives -j
0080: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 canvas-draw-play
0090: 0a 09 09 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 ...-j canvas-dra
00a0: 77 2d 70 69 63 74 75 72 65 20 2d 6a 20 63 61 6e w-picture -j can
00b0: 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 0a vas-draw-client.
00c0: 09 09 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 ..-j canvas-draw
00d0: 2d 70 73 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 -ps -j canvas-dr
00e0: 61 77 2d 73 76 67 20 2d 6a 20 63 61 6e 76 61 73 aw-svg -j canvas
00f0: 2d 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 0a 09 -draw-metafile..
0100: 09 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d .-j canvas-draw-
0110: 63 67 6d 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cgm -j canvas-dr
0120: 61 77 2d 64 67 6e 20 2d 6a 20 63 61 6e 76 61 73 aw-dgn -j canvas
0130: 2d 64 72 61 77 2d 64 78 66 0a 09 09 2d 6a 20 63 -draw-dxf...-j c
0140: 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 20 2d anvas-draw-emf -
0150: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d j canvas-draw-wm
0160: 66 0a 09 09 2c 40 28 63 6f 6e 64 2d 65 78 70 61 f...,@(cond-expa
0170: 6e 64 0a 09 09 09 20 5b 64 69 73 61 62 6c 65 2d nd.... [disable-
0180: 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 0a canvas-draw-iup.
0190: 09 09 09 09 27 28 29 5d 0a 09 09 09 20 5b 65 6c ....'()].... [el
01a0: 73 65 0a 09 09 09 09 27 28 2d 6a 20 63 61 6e 76 se.....'(-j canv
01b0: 61 73 2d 64 72 61 77 2d 69 75 70 29 5d 29 0a 09 as-draw-iup)])..
01c0: 09 2c 40 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a .,@(cond-expand.
01d0: 09 09 09 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e ... [disable-can
01e0: 76 61 73 2d 64 72 61 77 2d 67 6c 0a 09 09 09 09 vas-draw-gl.....
01f0: 27 28 29 5d 0a 09 09 09 20 5b 65 6c 73 65 0a 09 '()].... [else..
0200: 09 09 09 27 28 2d 6a 20 63 61 6e 76 61 73 2d 64 ...'(-j canvas-d
0210: 72 61 77 2d 67 6c 29 5d 29 0a 09 09 2c 40 28 63 raw-gl)])...,@(c
0220: 6f 6e 64 2d 65 78 70 61 6e 64 0a 09 09 09 20 5b ond-expand.... [
0230: 64 69 73 61 62 6c 65 2d 63 61 6e 76 61 73 2d 64 disable-canvas-d
0240: 72 61 77 2d 6e 61 74 69 76 65 0a 09 09 09 09 27 raw-native.....'
0250: 28 29 5d 0a 09 09 09 20 5b 65 6c 73 65 0a 09 09 ()].... [else...
0260: 09 09 27 28 2d 6a 20 63 61 6e 76 61 73 2d 64 72 ..'(-j canvas-dr
0270: 61 77 2d 6e 61 74 69 76 65 20 2d 6a 20 63 61 6e aw-native -j can
0280: 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 0a vas-draw-server.
0290: 09 09 09 09 09 2d 6a 20 63 61 6e 76 61 73 2d 64 .....-j canvas-d
02a0: 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 20 2d 6a raw-clipboard -j
02b0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 canvas-draw-pri
02c0: 6e 74 65 72 29 5d 29 0a 09 09 2c 40 28 63 6f 6e nter)])...,@(con
02d0: 64 2d 65 78 70 61 6e 64 0a 09 09 09 20 5b 64 69 d-expand.... [di
02e0: 73 61 62 6c 65 2d 63 61 6e 76 61 73 2d 64 72 61 sable-canvas-dra
02f0: 77 2d 70 64 66 0a 09 09 09 09 27 28 29 5d 0a 09 w-pdf.....'()]..
0300: 09 09 20 5b 65 6c 73 65 0a 09 09 09 09 27 28 2d .. [else.....'(-
0310: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 j canvas-draw-pd
0320: 66 29 5d 29 0a 09 09 2c 40 28 63 6f 6e 64 2d 65 f)])...,@(cond-e
0330: 78 70 61 6e 64 0a 09 09 09 20 5b 65 6e 61 62 6c xpand.... [enabl
0340: 65 2d 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 e-canvas-draw-de
0350: 62 75 67 0a 09 09 09 09 27 28 2d 6a 20 63 61 6e bug.....'(-j can
0360: 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 29 5d vas-draw-debug)]
0370: 0a 09 09 09 20 5b 65 6c 73 65 0a 09 09 09 09 27 .... [else.....'
0380: 28 29 5d 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 ()])))..(define
0390: 69 6d 70 6f 72 74 2d 6c 69 62 72 61 72 69 65 73 import-libraries
03a0: 0a 09 60 28 22 63 61 6e 76 61 73 2d 64 72 61 77 ..`("canvas-draw
03b0: 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 09 09 22 63 .import.so"..."c
03c0: 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 2e anvas-draw-base.
03d0: 69 6d 70 6f 72 74 2e 73 6f 22 20 22 63 61 6e 76 import.so" "canv
03e0: 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 as-draw-primitiv
03f0: 65 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 22 63 es.import.so" "c
0400: 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 2e anvas-draw-play.
0410: 69 6d 70 6f 72 74 2e 73 6f 22 0a 09 09 22 63 61 import.so"..."ca
0420: 6e 76 61 73 2d 64 72 61 77 2d 70 69 63 74 75 72 nvas-draw-pictur
0430: 65 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 22 63 61 e.import.so" "ca
0440: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 nvas-draw-client
0450: 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 09 09 22 63 .import.so"..."c
0460: 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 2e 69 6d anvas-draw-ps.im
0470: 70 6f 72 74 2e 73 6f 22 20 22 63 61 6e 76 61 73 port.so" "canvas
0480: 2d 64 72 61 77 2d 73 76 67 2e 69 6d 70 6f 72 74 -draw-svg.import
0490: 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 .so" "canvas-dra
04a0: 77 2d 6d 65 74 61 66 69 6c 65 2e 69 6d 70 6f 72 w-metafile.impor
04b0: 74 2e 73 6f 22 0a 09 09 22 63 61 6e 76 61 73 2d t.so"..."canvas-
04c0: 64 72 61 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e draw-cgm.import.
04d0: 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 so" "canvas-draw
04e0: 2d 64 67 6e 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 -dgn.import.so"
04f0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 "canvas-draw-dxf
0500: 2e 69 6d 70 6f 72 74 2e 73 6f 22 0a 09 09 22 63 .import.so"..."c
0510: 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e 69 anvas-draw-emf.i
0520: 6d 70 6f 72 74 2e 73 6f 22 20 22 63 61 6e 76 61 mport.so" "canva
0530: 73 2d 64 72 61 77 2d 77 6d 66 2e 69 6d 70 6f 72 s-draw-wmf.impor
0540: 74 2e 73 6f 22 0a 09 09 2c 40 28 63 6f 6e 64 2d t.so"...,@(cond-
0550: 65 78 70 61 6e 64 0a 09 09 09 20 5b 64 69 73 61 expand.... [disa
0560: 62 6c 65 2d 63 61 6e 76 61 73 2d 64 72 61 77 2d ble-canvas-draw-
0570: 69 75 70 0a 09 09 09 09 27 28 29 5d 0a 09 09 09 iup.....'()]....
0580: 20 5b 65 6c 73 65 0a 09 09 09 09 27 28 22 63 61 [else.....'("ca
0590: 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 2e 69 6d nvas-draw-iup.im
05a0: 70 6f 72 74 2e 73 6f 22 29 5d 29 0a 09 09 2c 40 port.so")])...,@
05b0: 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 09 09 09 (cond-expand....
05c0: 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 61 73 [disable-canvas
05d0: 2d 64 72 61 77 2d 67 6c 0a 09 09 09 09 27 28 29 -draw-gl.....'()
05e0: 5d 0a 09 09 09 20 5b 65 6c 73 65 0a 09 09 09 09 ].... [else.....
05f0: 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 '("canvas-draw-g
0600: 6c 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 5d 29 0a l.import.so")]).
0610: 09 09 2c 40 28 63 6f 6e 64 2d 65 78 70 61 6e 64 ..,@(cond-expand
0620: 0a 09 09 09 20 5b 64 69 73 61 62 6c 65 2d 63 61 .... [disable-ca
0630: 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 nvas-draw-native
0640: 0a 09 09 09 09 27 28 29 5d 0a 09 09 09 20 5b 65 .....'()].... [e
0650: 6c 73 65 0a 09 09 09 09 27 28 22 63 61 6e 76 61 lse.....'("canva
0660: 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 69 6d s-draw-native.im
0670: 70 6f 72 74 2e 73 6f 22 20 22 63 61 6e 76 61 73 port.so" "canvas
0680: 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 69 6d 70 -draw-server.imp
0690: 6f 72 74 2e 73 6f 22 0a 09 09 09 09 09 22 63 61 ort.so"......"ca
06a0: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f nvas-draw-clipbo
06b0: 61 72 64 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 22 ard.import.so" "
06c0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e canvas-draw-prin
06d0: 74 65 72 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 5d ter.import.so")]
06e0: 29 0a 09 09 2c 40 28 63 6f 6e 64 2d 65 78 70 61 )...,@(cond-expa
06f0: 6e 64 0a 09 09 09 20 5b 64 69 73 61 62 6c 65 2d nd.... [disable-
0700: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 0a canvas-draw-pdf.
0710: 09 09 09 09 27 28 29 5d 0a 09 09 09 20 5b 65 6c ....'()].... [el
0720: 73 65 0a 09 09 09 09 27 28 22 63 61 6e 76 61 73 se.....'("canvas
0730: 2d 64 72 61 77 2d 70 64 66 2e 69 6d 70 6f 72 74 -draw-pdf.import
0740: 2e 73 6f 22 29 5d 29 0a 09 09 2c 40 28 63 6f 6e .so")])...,@(con
0750: 64 2d 65 78 70 61 6e 64 0a 09 09 09 20 5b 65 6e d-expand.... [en
0760: 61 62 6c 65 2d 63 61 6e 76 61 73 2d 64 72 61 77 able-canvas-draw
0770: 2d 64 65 62 75 67 0a 09 09 09 09 27 28 22 63 61 -debug.....'("ca
0780: 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 2e nvas-draw-debug.
0790: 69 6d 70 6f 72 74 2e 73 6f 22 29 5d 0a 09 09 09 import.so")]....
07a0: 20 5b 65 6c 73 65 0a 09 09 09 09 27 28 29 5d 29 [else.....'()])
07b0: 29 29 0a 0a 28 64 65 66 69 6e 65 20 6e 61 74 69 ))..(define nati
07c0: 76 65 2d 6c 69 62 72 61 72 69 65 73 0a 09 60 28 ve-libraries..`(
07d0: 22 2d 6c 63 64 22 0a 09 09 2c 40 28 63 6f 6e 64 "-lcd"...,@(cond
07e0: 2d 65 78 70 61 6e 64 0a 09 09 09 20 5b 64 69 73 -expand.... [dis
07f0: 61 62 6c 65 2d 63 61 6e 76 61 73 2d 64 72 61 77 able-canvas-draw
0800: 2d 69 75 70 0a 09 09 09 09 27 28 29 5d 0a 09 09 -iup.....'()]...
0810: 09 20 5b 65 6c 73 65 0a 09 09 09 09 27 28 22 2d . [else.....'("-
0820: 6c 69 75 70 63 64 22 29 5d 29 0a 09 09 2c 40 28 liupcd")])...,@(
0830: 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 09 09 09 20 cond-expand....
0840: 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 61 73 2d [disable-canvas-
0850: 64 72 61 77 2d 67 6c 0a 09 09 09 09 27 28 29 5d draw-gl.....'()]
0860: 0a 09 09 09 20 5b 65 6c 73 65 0a 09 09 09 09 27 .... [else.....'
0870: 28 22 2d 6c 63 64 67 6c 22 29 5d 29 0a 09 09 2c ("-lcdgl")])...,
0880: 40 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 09 09 @(cond-expand...
0890: 09 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 61 . [disable-canva
08a0: 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 0a 09 09 s-draw-native...
08b0: 09 09 27 28 29 5d 0a 09 09 09 20 5b 65 6c 73 65 ..'()].... [else
08c0: 0a 09 09 09 09 28 61 70 70 65 6e 64 0a 09 09 09 .....(append....
08d0: 09 20 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 . (if (find-libr
08e0: 61 72 79 20 22 63 64 78 31 31 22 20 22 63 64 43 ary "cdx11" "cdC
08f0: 6f 6e 74 65 78 74 4e 61 74 69 76 65 57 69 6e 64 ontextNativeWind
0900: 6f 77 22 29 0a 09 09 09 09 09 09 20 27 28 22 2d ow")....... '("-
0910: 6c 63 64 78 31 31 22 29 20 27 28 29 29 0a 09 09 lcdx11") '())...
0920: 09 09 20 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 .. (if (find-lib
0930: 72 61 72 79 20 22 63 64 63 6f 6e 74 65 78 74 70 rary "cdcontextp
0940: 6c 75 73 22 20 22 63 64 49 6e 69 74 43 6f 6e 74 lus" "cdInitCont
0950: 65 78 74 50 6c 75 73 22 29 0a 09 09 09 09 09 09 extPlus").......
0960: 20 27 28 22 2d 6c 63 64 63 6f 6e 74 65 78 74 70 '("-lcdcontextp
0970: 6c 75 73 22 29 20 27 28 29 29 29 5d 29 0a 09 09 lus") '()))])...
0980: 2c 40 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 09 ,@(cond-expand..
0990: 09 09 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 .. [disable-canv
09a0: 61 73 2d 64 72 61 77 2d 70 64 66 0a 09 09 09 09 as-draw-pdf.....
09b0: 27 28 29 5d 0a 09 09 09 20 5b 65 6c 73 65 0a 09 '()].... [else..
09c0: 09 09 09 27 28 22 2d 6c 63 64 70 64 66 22 29 5d ...'("-lcdpdf")]
09d0: 29 29 29 0a 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 )))..(compile -s
09e0: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
09f0: 2d 64 72 61 77 2e 73 63 6d 22 20 2c 40 6d 6f 64 -draw.scm" ,@mod
0a00: 75 6c 65 73 20 2c 40 6e 61 74 69 76 65 2d 6c 69 ules ,@native-li
0a10: 62 72 61 72 69 65 73 29 0a 28 63 6f 6d 70 69 6c braries).(compil
0a20: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
0a30: 6e 76 61 73 2d 64 72 61 77 2e 73 63 6d 22 20 2d nvas-draw.scm" -
0a40: 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 77 unit canvas-draw
0a50: 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ).(compile -s -O
0a60: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
0a70: 61 77 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a aw.import.scm").
0a80: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 (compile -s -O2
0a90: 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d0 "canvas-draw
0aa0: 2d 62 61 73 65 2e 69 6d 70 6f 72 74 2e 73 63 6d -base.import.scm
0ab0: 22 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ").(compile -s -
0ac0: 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 O2 -d0 "canvas-d
0ad0: 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 2e 69 raw-primitives.i
0ae0: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f 6d mport.scm").(com
0af0: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
0b00: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 "canvas-draw-pla
0b10: 79 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 y.import.scm").(
0b20: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
0b30: 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d0 "canvas-draw-
0b40: 70 69 63 74 75 72 65 2e 69 6d 70 6f 72 74 2e 73 picture.import.s
0b50: 63 6d 22 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 cm").(compile -s
0b60: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
0b70: 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 69 6d 70 -draw-client.imp
0b80: 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f 6d 70 69 ort.scm").(compi
0b90: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 le -s -O2 -d0 "c
0ba0: 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 2e 69 6d anvas-draw-ps.im
0bb0: 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f 6d 70 port.scm").(comp
0bc0: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
0bd0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 67 2e canvas-draw-svg.
0be0: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f import.scm").(co
0bf0: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 mpile -s -O2 -d0
0c00: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 6d 65 "canvas-draw-me
0c10: 74 61 66 69 6c 65 2e 69 6d 70 6f 72 74 2e 73 63 tafile.import.sc
0c20: 6d 22 29 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 m").(compile -s
0c30: 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d -O2 -d0 "canvas-
0c40: 64 72 61 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e draw-cgm.import.
0c50: 73 63 6d 22 29 0a 28 63 6f 6d 70 69 6c 65 20 2d scm").(compile -
0c60: 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 s -O2 -d0 "canva
0c70: 73 2d 64 72 61 77 2d 64 67 6e 2e 69 6d 70 6f 72 s-draw-dgn.impor
0c80: 74 2e 73 63 6d 22 29 0a 28 63 6f 6d 70 69 6c 65 t.scm").(compile
0c90: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e -s -O2 -d0 "can
0ca0: 76 61 73 2d 64 72 61 77 2d 64 78 66 2e 69 6d 70 vas-draw-dxf.imp
0cb0: 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f 6d 70 69 ort.scm").(compi
0cc0: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 le -s -O2 -d0 "c
0cd0: 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e 69 anvas-draw-emf.i
0ce0: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 28 63 6f 6d mport.scm").(com
0cf0: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
0d00: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 "canvas-draw-wmf
0d10: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 0a 28 .import.scm")..(
0d20: 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 5b 64 69 cond-expand. [di
0d30: 73 61 62 6c 65 2d 63 61 6e 76 61 73 2d 64 72 61 sable-canvas-dra
0d40: 77 2d 69 75 70 5d 0a 20 5b 65 6c 73 65 0a 09 28 w-iup]. [else..(
0d50: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
0d60: 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d0 "canvas-draw-
0d70: 69 75 70 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 iup.import.scm")
0d80: 5d 29 0a 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a ]).(cond-expand.
0d90: 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 61 73 [disable-canvas
0da0: 2d 64 72 61 77 2d 67 6c 5d 0a 20 5b 65 6c 73 65 -draw-gl]. [else
0db0: 0a 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
0dc0: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
0dd0: 61 77 2d 67 6c 2e 69 6d 70 6f 72 74 2e 73 63 6d aw-gl.import.scm
0de0: 22 29 5d 29 0a 28 63 6f 6e 64 2d 65 78 70 61 6e ")]).(cond-expan
0df0: 64 0a 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 d. [disable-canv
0e00: 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 5d 0a as-draw-native].
0e10: 20 5b 65 6c 73 65 0a 09 28 63 6f 6d 70 69 6c 65 [else..(compile
0e20: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e -s -O2 -d0 "can
0e30: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e vas-draw-native.
0e40: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 28 63 import.scm")..(c
0e50: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
0e60: 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 0 "canvas-draw-s
0e70: 65 72 76 65 72 2e 69 6d 70 6f 72 74 2e 73 63 6d erver.import.scm
0e80: 22 29 0a 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 ")..(compile -s
0e90: 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d -O2 -d0 "canvas-
0ea0: 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 2e 69 draw-clipboard.i
0eb0: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 28 63 6f mport.scm")..(co
0ec0: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 mpile -s -O2 -d0
0ed0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 "canvas-draw-pr
0ee0: 69 6e 74 65 72 2e 69 6d 70 6f 72 74 2e 73 63 6d inter.import.scm
0ef0: 22 29 5d 29 0a 28 63 6f 6e 64 2d 65 78 70 61 6e ")]).(cond-expan
0f00: 64 0a 20 5b 64 69 73 61 62 6c 65 2d 63 61 6e 76 d. [disable-canv
0f10: 61 73 2d 64 72 61 77 2d 70 64 66 5d 0a 20 5b 65 as-draw-pdf]. [e
0f20: 6c 73 65 0a 09 28 63 6f 6d 70 69 6c 65 20 2d 73 lse..(compile -s
0f30: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
0f40: 2d 64 72 61 77 2d 70 64 66 2e 69 6d 70 6f 72 74 -draw-pdf.import
0f50: 2e 73 63 6d 22 29 5d 29 0a 28 63 6f 6e 64 2d 65 .scm")]).(cond-e
0f60: 78 70 61 6e 64 0a 20 5b 65 6e 61 62 6c 65 2d 63 xpand. [enable-c
0f70: 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 anvas-draw-debug
0f80: 0a 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
0f90: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
0fa0: 61 77 2d 64 65 62 75 67 2e 69 6d 70 6f 72 74 2e aw-debug.import.
0fb0: 73 63 6d 22 29 5d 0a 20 5b 65 6c 73 65 5d 29 0a scm")]. [else]).
0fc0: 0a 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 .(install-extens
0fd0: 69 6f 6e 0a 20 27 63 61 6e 76 61 73 2d 64 72 61 ion. 'canvas-dra
0fe0: 77 0a 20 60 28 22 63 61 6e 76 61 73 2d 64 72 61 w. `("canvas-dra
0ff0: 77 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 w.so" "canvas-dr
1000: 61 77 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 aw.o" "canvas-dr
1010: 61 77 2d 74 79 70 65 73 2e 73 63 6d 22 20 2c 40 aw-types.scm" ,@
1020: 69 6d 70 6f 72 74 2d 6c 69 62 72 61 72 69 65 73 import-libraries
1030: 29 0a 20 60 28 28 76 65 72 73 69 6f 6e 20 31 2e ). `((version 1.
1040: 31 2e 31 29 0a 09 20 28 73 74 61 74 69 63 20 22 1.1).. (static "
1050: 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 canvas-draw-base
1060: 2e 6f 22 29 0a 09 20 28 73 74 61 74 69 63 2d 6f .o").. (static-o
1070: 70 74 69 6f 6e 73 20 2c 28 73 74 72 69 6e 67 2d ptions ,(string-
1080: 69 6e 74 65 72 73 70 65 72 73 65 20 6e 61 74 69 intersperse nati
1090: 76 65 2d 6c 69 62 72 61 72 69 65 73 29 29 29 29 ve-libraries))))
10a0: 0a .