Artifact
901a63a1f85c529a15c0dbb6e0810c7f6d13c77d:
0000: 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 (if (find-librar
0010: 79 20 22 63 64 22 20 22 63 64 43 72 65 61 74 65 y "cd" "cdCreate
0020: 43 61 6e 76 61 73 22 29 0a 09 28 62 65 67 69 6e Canvas")..(begin
0030: 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ...(compile -s -
0040: 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 O2 -d1 "canvas-d
0050: 72 61 77 2d 62 61 73 65 2e 73 63 6d 22 20 2d 6a raw-base.scm" -j
0060: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 canvas-draw-bas
0070: 65 20 22 2d 6c 63 64 22 29 0a 09 09 28 63 6f 6d e "-lcd")...(com
0080: 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 pile -c -O2 -d1
0090: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 "canvas-draw-bas
00a0: 65 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 e.scm" -j canvas
00b0: 2d 64 72 61 77 2d 62 61 73 65 20 2d 75 6e 69 74 -draw-base -unit
00c0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 canvas-draw-bas
00d0: 65 29 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 e)...(compile -s
00e0: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
00f0: 2d 64 72 61 77 2d 62 61 73 65 2e 69 6d 70 6f 72 -draw-base.impor
0100: 74 2e 73 63 6d 22 29 0a 09 09 0a 09 09 28 69 6e t.scm")......(in
0110: 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a stall-extension.
0120: 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d .. 'canvas-draw-
0130: 62 61 73 65 0a 09 09 20 27 28 22 63 61 6e 76 61 base... '("canva
0140: 73 2d 64 72 61 77 2d 62 61 73 65 2e 73 6f 22 20 s-draw-base.so"
0150: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 "canvas-draw-bas
0160: 65 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 e.o" "canvas-dra
0170: 77 2d 62 61 73 65 2e 69 6d 70 6f 72 74 2e 73 6f w-base.import.so
0180: 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 74 " "canvas-draw-t
0190: 79 70 65 73 2e 73 63 6d 22 29 0a 09 09 20 27 28 ypes.scm")... '(
01a0: 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a (version 1.0.0).
01b0: 09 09 09 20 28 73 74 61 74 69 63 20 22 63 61 6e ... (static "can
01c0: 76 61 73 2d 64 72 61 77 2d 62 61 73 65 2e 6f 22 vas-draw-base.o"
01d0: 29 0a 09 09 09 20 28 73 74 61 74 69 63 2d 6f 70 ).... (static-op
01e0: 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 0a tions "-lcd"))).
01f0: 09 09 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
0200: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
0210: 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 -draw-primitives
0220: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
0230: 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 20 draw-primitives
0240: 22 2d 6c 63 64 22 29 0a 09 09 28 63 6f 6d 70 69 "-lcd")...(compi
0250: 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 le -c -O2 -d1 "c
0260: 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 anvas-draw-primi
0270: 74 69 76 65 73 2e 73 63 6d 22 20 2d 6a 20 63 61 tives.scm" -j ca
0280: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 nvas-draw-primit
0290: 69 76 65 73 20 2d 75 6e 69 74 20 63 61 6e 76 61 ives -unit canva
02a0: 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 s-draw-primitive
02b0: 73 29 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 s)...(compile -s
02c0: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
02d0: 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 -draw-primitives
02e0: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 .import.scm")...
02f0: 0a 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 ...(install-exte
0300: 6e 73 69 6f 6e 0a 09 09 20 27 63 61 6e 76 61 73 nsion... 'canvas
0310: 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 -draw-primitives
0320: 0a 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 ... '("canvas-dr
0330: 61 77 2d 70 72 69 6d 69 74 69 76 65 73 2e 73 6f aw-primitives.so
0340: 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 " "canvas-draw-p
0350: 72 69 6d 69 74 69 76 65 73 2e 6f 22 20 22 63 61 rimitives.o" "ca
0360: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 nvas-draw-primit
0370: 69 76 65 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 ives.import.so"
0380: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 74 79 70 "canvas-draw-typ
0390: 65 73 2e 73 63 6d 22 29 0a 09 09 20 27 28 28 76 es.scm")... '((v
03a0: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
03b0: 09 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 . (static "canva
03c0: 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 s-draw-primitive
03d0: 73 2e 6f 22 29 0a 09 09 09 20 28 73 74 61 74 69 s.o").... (stati
03e0: 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 c-options "-lcd"
03f0: 29 29 29 0a 09 09 0a 09 09 28 63 6f 6d 70 69 6c )))......(compil
0400: 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -s -O2 -d1 "ca
0410: 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 2e 73 nvas-draw-play.s
0420: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
0430: 61 77 2d 70 6c 61 79 20 22 2d 6c 63 64 22 29 0a aw-play "-lcd").
0440: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f ..(compile -c -O
0450: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
0460: 61 77 2d 70 6c 61 79 2e 73 63 6d 22 20 2d 6a 20 aw-play.scm" -j
0470: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 canvas-draw-play
0480: 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 -unit canvas-dr
0490: 61 77 2d 70 6c 61 79 29 0a 09 09 28 63 6f 6d 70 aw-play)...(comp
04a0: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
04b0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 canvas-draw-play
04c0: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 .import.scm")...
04d0: 0a 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 ...(install-exte
04e0: 6e 73 69 6f 6e 0a 09 09 20 27 63 61 6e 76 61 73 nsion... 'canvas
04f0: 2d 64 72 61 77 2d 70 6c 61 79 0a 09 09 20 27 28 -draw-play... '(
0500: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 "canvas-draw-pla
0510: 79 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 y.so" "canvas-dr
0520: 61 77 2d 70 6c 61 79 2e 6f 22 20 22 63 61 6e 76 aw-play.o" "canv
0530: 61 73 2d 64 72 61 77 2d 70 6c 61 79 2e 69 6d 70 as-draw-play.imp
0540: 6f 72 74 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d ort.so" "canvas-
0550: 64 72 61 77 2d 74 79 70 65 73 2e 73 63 6d 22 29 draw-types.scm")
0560: 0a 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 ... '((version 1
0570: 2e 30 2e 30 29 0a 09 09 09 20 28 73 74 61 74 69 .0.0).... (stati
0580: 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 c "canvas-draw-p
0590: 6c 61 79 2e 6f 22 29 0a 09 09 09 20 28 73 74 61 lay.o").... (sta
05a0: 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 tic-options "-lc
05b0: 64 22 29 29 29 0a 09 09 0a 09 09 28 69 66 20 28 d")))......(if (
05c0: 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 69 75 find-library "iu
05d0: 70 63 64 22 20 22 63 64 43 6f 6e 74 65 78 74 49 pcd" "cdContextI
05e0: 75 70 22 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 up")....(begin..
05f0: 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ...(compile -s -
0600: 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 O2 -d1 "canvas-d
0610: 72 61 77 2d 69 75 70 2e 73 63 6d 22 20 2d 6a 20 raw-iup.scm" -j
0620: 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 20 canvas-draw-iup
0630: 22 2d 6c 69 75 70 63 64 22 29 0a 09 09 09 09 28 "-liupcd").....(
0640: 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d compile -c -O2 -
0650: 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d1 "canvas-draw-
0660: 69 75 70 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 iup.scm" -j canv
0670: 61 73 2d 64 72 61 77 2d 69 75 70 20 2d 75 6e 69 as-draw-iup -uni
0680: 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 t canvas-draw-iu
0690: 70 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 p).....(compile
06a0: 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 -s -O2 -d0 "canv
06b0: 61 73 2d 64 72 61 77 2d 69 75 70 2e 69 6d 70 6f as-draw-iup.impo
06c0: 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 rt.scm")........
06d0: 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e ..(install-exten
06e0: 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 sion..... 'canva
06f0: 73 2d 64 72 61 77 2d 69 75 70 0a 09 09 09 09 20 s-draw-iup.....
0700: 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 '("canvas-draw-i
0710: 75 70 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 up.so" "canvas-d
0720: 72 61 77 2d 69 75 70 2e 6f 22 20 22 63 61 6e 76 raw-iup.o" "canv
0730: 61 73 2d 64 72 61 77 2d 69 75 70 2e 69 6d 70 6f as-draw-iup.impo
0740: 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 rt.so")..... '((
0750: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 version 1.0.0)..
0760: 09 09 09 09 20 28 73 74 61 74 69 63 20 22 63 61 .... (static "ca
0770: 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 2e 6f 22 nvas-draw-iup.o"
0780: 29 0a 09 09 09 09 09 20 28 73 74 61 74 69 63 2d )...... (static-
0790: 6f 70 74 69 6f 6e 73 20 22 2d 6c 69 75 70 63 64 options "-liupcd
07a0: 22 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 6e "))))....(warnin
07b0: 67 20 22 43 44 20 49 55 50 20 64 72 69 76 65 72 g "CD IUP driver
07c0: 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 not found, some
07d0: 20 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 bindings cannot
07e0: 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a be compiled")).
07f0: 09 09 0a 09 09 28 63 6f 6e 64 0a 09 09 09 5b 28 .....(cond....[(
0800: 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 find-library "cd
0810: 78 31 31 22 20 22 63 64 43 6f 6e 74 65 78 74 4e x11" "cdContextN
0820: 61 74 69 76 65 57 69 6e 64 6f 77 22 29 0a 09 09 ativeWindow")...
0830: 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f . (compile -s -O
0840: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
0850: 61 77 2d 6e 61 74 69 76 65 2e 73 63 6d 22 20 2d aw-native.scm" -
0860: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 j canvas-draw-na
0870: 74 69 76 65 20 22 2d 6c 63 64 78 31 31 20 2d 6c tive "-lcdx11 -l
0880: 63 64 63 6f 6e 74 65 78 74 70 6c 75 73 22 29 0a cdcontextplus").
0890: 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ... (compile -c
08a0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
08b0: 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 63 6d 22 draw-native.scm"
08c0: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
08d0: 6e 61 74 69 76 65 20 2d 75 6e 69 74 20 63 61 6e native -unit can
08e0: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 29 vas-draw-native)
08f0: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
0900: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
0910: 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 69 6d 70 -draw-native.imp
0920: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a 09 ort.scm").... ..
0930: 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 .. (install-exte
0940: 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 61 nsion.....'canva
0950: 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 0a 09 09 s-draw-native...
0960: 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 ..'("canvas-draw
0970: 2d 6e 61 74 69 76 65 2e 73 6f 22 20 22 63 61 6e -native.so" "can
0980: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e vas-draw-native.
0990: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
09a0: 6e 61 74 69 76 65 2e 69 6d 70 6f 72 74 2e 73 6f native.import.so
09b0: 22 29 0a 09 09 09 09 27 28 28 76 65 72 73 69 6f ").....'((versio
09c0: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 28 73 n 1.0.0)......(s
09d0: 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 tatic "canvas-dr
09e0: 61 77 2d 6e 61 74 69 76 65 2e 6f 22 29 0a 09 09 aw-native.o")...
09f0: 09 09 09 28 73 74 61 74 69 63 2d 6f 70 74 69 6f ...(static-optio
0a00: 6e 73 20 22 2d 6c 63 64 78 31 31 20 2d 6c 63 64 ns "-lcdx11 -lcd
0a10: 63 6f 6e 74 65 78 74 70 6c 75 73 22 29 29 29 5d contextplus")))]
0a20: 0a 09 09 09 5b 28 66 69 6e 64 2d 6c 69 62 72 61 ....[(find-libra
0a30: 72 79 20 22 63 64 22 20 22 63 64 43 6f 6e 74 65 ry "cd" "cdConte
0a40: 78 74 4e 61 74 69 76 65 57 69 6e 64 6f 77 22 29 xtNativeWindow")
0a50: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
0a60: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
0a70: 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 63 6d -draw-native.scm
0a80: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
0a90: 2d 6e 61 74 69 76 65 20 22 2d 6c 63 64 20 2d 6c -native "-lcd -l
0aa0: 63 64 63 6f 6e 74 65 78 74 70 6c 75 73 22 29 0a cdcontextplus").
0ab0: 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ... (compile -c
0ac0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
0ad0: 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 63 6d 22 draw-native.scm"
0ae0: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
0af0: 6e 61 74 69 76 65 20 2d 75 6e 69 74 20 63 61 6e native -unit can
0b00: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 29 vas-draw-native)
0b10: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
0b20: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
0b30: 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 69 6d 70 -draw-native.imp
0b40: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a 09 ort.scm").... ..
0b50: 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 .. (install-exte
0b60: 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 61 nsion.....'canva
0b70: 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 0a 09 09 s-draw-native...
0b80: 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 ..'("canvas-draw
0b90: 2d 6e 61 74 69 76 65 2e 73 6f 22 20 22 63 61 6e -native.so" "can
0ba0: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e vas-draw-native.
0bb0: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
0bc0: 6e 61 74 69 76 65 2e 69 6d 70 6f 72 74 2e 73 6f native.import.so
0bd0: 22 29 0a 09 09 09 09 27 28 28 76 65 72 73 69 6f ").....'((versio
0be0: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 28 73 n 1.0.0)......(s
0bf0: 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 tatic "canvas-dr
0c00: 61 77 2d 6e 61 74 69 76 65 2e 6f 22 29 0a 09 09 aw-native.o")...
0c10: 09 09 09 28 73 74 61 74 69 63 2d 6f 70 74 69 6f ...(static-optio
0c20: 6e 73 20 22 2d 6c 63 64 20 2d 6c 63 64 63 6f 6e ns "-lcd -lcdcon
0c30: 74 65 78 74 70 6c 75 73 22 29 29 29 5d 0a 09 09 textplus")))]...
0c40: 09 5b 65 6c 73 65 0a 09 09 09 20 28 77 61 72 6e .[else.... (warn
0c50: 69 6e 67 20 22 43 44 20 6e 61 74 69 76 65 20 77 ing "CD native w
0c60: 69 6e 64 6f 77 20 64 72 69 76 65 72 20 6e 6f 74 indow driver not
0c70: 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e found, some bin
0c80: 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 dings cannot be
0c90: 63 6f 6d 70 69 6c 65 64 22 29 5d 29 0a 09 09 0a compiled")])....
0ca0: 09 09 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 ..(if (find-libr
0cb0: 61 72 79 20 22 63 64 67 6c 22 20 22 63 64 43 6f ary "cdgl" "cdCo
0cc0: 6e 74 65 78 74 47 4c 22 29 0a 09 09 09 28 62 65 ntextGL")....(be
0cd0: 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 gin.....(compile
0ce0: 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e -s -O2 -d1 "can
0cf0: 76 61 73 2d 64 72 61 77 2d 67 6c 2e 73 63 6d 22 vas-draw-gl.scm"
0d00: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
0d10: 67 6c 20 22 2d 6c 63 64 67 6c 22 29 0a 09 09 09 gl "-lcdgl")....
0d20: 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 .(compile -c -O2
0d30: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
0d40: 77 2d 67 6c 2e 73 63 6d 22 20 2d 6a 20 63 61 6e w-gl.scm" -j can
0d50: 76 61 73 2d 64 72 61 77 2d 67 6c 20 2d 75 6e 69 vas-draw-gl -uni
0d60: 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c t canvas-draw-gl
0d70: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
0d80: 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 s -O2 -d0 "canva
0d90: 73 2d 64 72 61 77 2d 67 6c 2e 69 6d 70 6f 72 74 s-draw-gl.import
0da0: 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 .scm")..........
0db0: 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 (install-extensi
0dc0: 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d on..... 'canvas-
0dd0: 64 72 61 77 2d 67 6c 0a 09 09 09 09 20 27 28 22 draw-gl..... '("
0de0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c 2e 73 canvas-draw-gl.s
0df0: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
0e00: 67 6c 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 gl.o" "canvas-dr
0e10: 61 77 2d 67 6c 2e 69 6d 70 6f 72 74 2e 73 6f 22 aw-gl.import.so"
0e20: 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69 6f )..... '((versio
0e30: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 20 28 n 1.0.0)...... (
0e40: 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 static "canvas-d
0e50: 72 61 77 2d 67 6c 2e 6f 22 29 0a 09 09 09 09 09 raw-gl.o")......
0e60: 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 (static-options
0e70: 20 22 2d 6c 63 64 67 6c 22 29 29 29 29 0a 09 09 "-lcdgl"))))...
0e80: 09 28 77 61 72 6e 69 6e 67 20 22 43 44 20 4f 70 .(warning "CD Op
0e90: 65 6e 47 4c 20 64 72 69 76 65 72 20 6e 6f 74 20 enGL driver not
0ea0: 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 found, some bind
0eb0: 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 ings cannot be c
0ec0: 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 ompiled"))......
0ed0: 28 63 6f 6e 64 0a 09 09 09 5b 28 66 69 6e 64 2d (cond....[(find-
0ee0: 6c 69 62 72 61 72 79 20 22 63 64 78 31 31 22 20 library "cdx11"
0ef0: 22 63 64 43 6f 6e 74 65 78 74 43 6c 69 70 62 6f "cdContextClipbo
0f00: 61 72 64 22 29 0a 09 09 09 20 28 63 6f 6d 70 69 ard").... (compi
0f10: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 le -s -O2 -d1 "c
0f20: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 anvas-draw-clipb
0f30: 6f 61 72 64 2e 73 63 6d 22 20 2d 6a 20 63 61 6e oard.scm" -j can
0f40: 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 vas-draw-clipboa
0f50: 72 64 20 22 2d 6c 63 64 78 31 31 22 29 0a 09 09 rd "-lcdx11")...
0f60: 09 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f . (compile -c -O
0f70: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
0f80: 61 77 2d 63 6c 69 70 62 6f 61 72 64 2e 73 63 6d aw-clipboard.scm
0f90: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
0fa0: 2d 63 6c 69 70 62 6f 61 72 64 20 2d 75 6e 69 74 -clipboard -unit
0fb0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 canvas-draw-cli
0fc0: 70 62 6f 61 72 64 29 0a 09 09 09 20 28 63 6f 6d pboard).... (com
0fd0: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
0fe0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 "canvas-draw-cli
0ff0: 70 62 6f 61 72 64 2e 69 6d 70 6f 72 74 2e 73 63 pboard.import.sc
1000: 6d 22 29 0a 09 09 09 20 0a 09 09 09 20 28 69 6e m").... .... (in
1010: 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a stall-extension.
1020: 09 09 09 09 27 63 61 6e 76 61 73 2d 64 72 61 77 ....'canvas-draw
1030: 2d 63 6c 69 70 62 6f 61 72 64 0a 09 09 09 09 27 -clipboard.....'
1040: 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c ("canvas-draw-cl
1050: 69 70 62 6f 61 72 64 2e 73 6f 22 20 22 63 61 6e ipboard.so" "can
1060: 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 vas-draw-clipboa
1070: 72 64 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 rd.o" "canvas-dr
1080: 61 77 2d 63 6c 69 70 62 6f 61 72 64 2e 69 6d 70 aw-clipboard.imp
1090: 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 ort.so").....'((
10a0: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 version 1.0.0)..
10b0: 09 09 09 09 28 73 74 61 74 69 63 20 22 63 61 6e ....(static "can
10c0: 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 vas-draw-clipboa
10d0: 72 64 2e 6f 22 29 0a 09 09 09 09 09 28 73 74 61 rd.o")......(sta
10e0: 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 tic-options "-lc
10f0: 64 78 31 31 22 29 29 29 5d 0a 09 09 09 5b 28 66 dx11")))]....[(f
1100: 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 22 ind-library "cd"
1110: 20 22 63 64 43 6f 6e 74 65 78 74 43 6c 69 70 62 "cdContextClipb
1120: 6f 61 72 64 22 29 0a 09 09 09 20 28 63 6f 6d 70 oard").... (comp
1130: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 ile -s -O2 -d1 "
1140: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1150: 62 6f 61 72 64 2e 73 63 6d 22 20 2d 6a 20 63 61 board.scm" -j ca
1160: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f nvas-draw-clipbo
1170: 61 72 64 20 22 2d 6c 63 64 22 29 0a 09 09 09 20 ard "-lcd")....
1180: 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 (compile -c -O2
1190: 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d1 "canvas-draw
11a0: 2d 63 6c 69 70 62 6f 61 72 64 2e 73 63 6d 22 20 -clipboard.scm"
11b0: 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 -j canvas-draw-c
11c0: 6c 69 70 62 6f 61 72 64 20 2d 75 6e 69 74 20 63 lipboard -unit c
11d0: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 anvas-draw-clipb
11e0: 6f 61 72 64 29 0a 09 09 09 20 28 63 6f 6d 70 69 oard).... (compi
11f0: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 le -s -O2 -d0 "c
1200: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 anvas-draw-clipb
1210: 6f 61 72 64 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 oard.import.scm"
1220: 29 0a 09 09 09 20 0a 09 09 09 20 28 69 6e 73 74 ).... .... (inst
1230: 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 all-extension...
1240: 09 09 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 ..'canvas-draw-c
1250: 6c 69 70 62 6f 61 72 64 0a 09 09 09 09 27 28 22 lipboard.....'("
1260: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1270: 62 6f 61 72 64 2e 73 6f 22 20 22 63 61 6e 76 61 board.so" "canva
1280: 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 s-draw-clipboard
1290: 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 .o" "canvas-draw
12a0: 2d 63 6c 69 70 62 6f 61 72 64 2e 69 6d 70 6f 72 -clipboard.impor
12b0: 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 t.so").....'((ve
12c0: 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 rsion 1.0.0)....
12d0: 09 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 ..(static "canva
12e0: 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 s-draw-clipboard
12f0: 2e 6f 22 29 0a 09 09 09 09 09 28 73 74 61 74 69 .o")......(stati
1300: 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 c-options "-lcd"
1310: 29 29 29 5d 0a 09 09 09 5b 65 6c 73 65 0a 09 09 )))]....[else...
1320: 09 20 28 77 61 72 6e 69 6e 67 20 22 43 44 20 63 . (warning "CD c
1330: 6c 69 70 62 6f 61 72 64 20 64 72 69 76 65 72 20 lipboard driver
1340: 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 not found, some
1350: 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 bindings cannot
1360: 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 5d 29 0a be compiled")]).
1370: 09 09 0a 09 09 28 63 6f 6e 64 0a 09 09 09 5b 28 .....(cond....[(
1380: 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 find-library "cd
1390: 78 31 31 22 20 22 63 64 43 6f 6e 74 65 78 74 50 x11" "cdContextP
13a0: 72 69 6e 74 65 72 22 29 0a 09 09 09 20 28 63 6f rinter").... (co
13b0: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
13c0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 "canvas-draw-pr
13d0: 69 6e 74 65 72 2e 73 63 6d 22 20 2d 6a 20 63 61 inter.scm" -j ca
13e0: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 nvas-draw-printe
13f0: 72 20 22 2d 6c 63 64 78 31 31 22 29 0a 09 09 09 r "-lcdx11")....
1400: 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 (compile -c -O2
1410: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
1420: 77 2d 70 72 69 6e 74 65 72 2e 73 63 6d 22 20 2d w-printer.scm" -
1430: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 j canvas-draw-pr
1440: 69 6e 74 65 72 20 2d 75 6e 69 74 20 63 61 6e 76 inter -unit canv
1450: 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 29 as-draw-printer)
1460: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
1470: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
1480: 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 2e 69 6d -draw-printer.im
1490: 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a port.scm").... .
14a0: 09 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 ... (install-ext
14b0: 65 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 ension.....'canv
14c0: 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 0a as-draw-printer.
14d0: 09 09 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 ....'("canvas-dr
14e0: 61 77 2d 70 72 69 6e 74 65 72 2e 73 6f 22 20 22 aw-printer.so" "
14f0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e canvas-draw-prin
1500: 74 65 72 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 ter.o" "canvas-d
1510: 72 61 77 2d 70 72 69 6e 74 65 72 2e 69 6d 70 6f raw-printer.impo
1520: 72 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 rt.so").....'((v
1530: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
1540: 09 09 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 ...(static "canv
1550: 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 2e as-draw-printer.
1560: 6f 22 29 0a 09 09 09 09 09 28 73 74 61 74 69 63 o")......(static
1570: 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 78 31 -options "-lcdx1
1580: 31 22 29 29 29 5d 0a 09 09 09 5b 28 66 69 6e 64 1")))]....[(find
1590: 2d 6c 69 62 72 61 72 79 20 22 63 64 22 20 22 63 -library "cd" "c
15a0: 64 43 6f 6e 74 65 78 74 50 72 69 6e 74 65 72 22 dContextPrinter"
15b0: 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d ).... (compile -
15c0: 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 s -O2 -d1 "canva
15d0: 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 2e 73 s-draw-printer.s
15e0: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
15f0: 61 77 2d 70 72 69 6e 74 65 72 20 22 2d 6c 63 64 aw-printer "-lcd
1600: 22 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 ").... (compile
1610: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
1620: 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 2e as-draw-printer.
1630: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
1640: 72 61 77 2d 70 72 69 6e 74 65 72 20 2d 75 6e 69 raw-printer -uni
1650: 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 t canvas-draw-pr
1660: 69 6e 74 65 72 29 0a 09 09 09 20 28 63 6f 6d 70 inter).... (comp
1670: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
1680: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e canvas-draw-prin
1690: 74 65 72 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 ter.import.scm")
16a0: 0a 09 09 09 20 0a 09 09 09 20 28 69 6e 73 74 61 .... .... (insta
16b0: 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 ll-extension....
16c0: 09 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 .'canvas-draw-pr
16d0: 69 6e 74 65 72 0a 09 09 09 09 27 28 22 63 61 6e inter.....'("can
16e0: 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 vas-draw-printer
16f0: 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 .so" "canvas-dra
1700: 77 2d 70 72 69 6e 74 65 72 2e 6f 22 20 22 63 61 w-printer.o" "ca
1710: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 nvas-draw-printe
1720: 72 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 r.import.so")...
1730: 09 09 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 ..'((version 1.0
1740: 2e 30 29 0a 09 09 09 09 09 28 73 74 61 74 69 63 .0)......(static
1750: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 "canvas-draw-pr
1760: 69 6e 74 65 72 2e 6f 22 29 0a 09 09 09 09 09 28 inter.o")......(
1770: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
1780: 2d 6c 63 64 22 29 29 29 5d 0a 09 09 09 5b 65 6c -lcd")))]....[el
1790: 73 65 0a 09 09 09 20 28 77 61 72 6e 69 6e 67 20 se.... (warning
17a0: 22 43 44 20 70 72 69 6e 74 65 72 20 64 72 69 76 "CD printer driv
17b0: 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f er not found, so
17c0: 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e me bindings cann
17d0: 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 ot be compiled")
17e0: 5d 29 0a 09 09 0a 09 09 28 69 66 20 28 66 69 6e ])......(if (fin
17f0: 64 2d 6c 69 62 72 61 72 79 20 22 63 64 22 20 22 d-library "cd" "
1800: 63 64 43 6f 6e 74 65 78 74 50 69 63 74 75 72 65 cdContextPicture
1810: 22 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 ")....(begin....
1820: 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
1830: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
1840: 77 2d 70 69 63 74 75 72 65 2e 73 63 6d 22 20 2d w-picture.scm" -
1850: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 j canvas-draw-pi
1860: 63 74 75 72 65 20 22 2d 6c 63 64 22 29 0a 09 09 cture "-lcd")...
1870: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f ..(compile -c -O
1880: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
1890: 61 77 2d 70 69 63 74 75 72 65 2e 73 63 6d 22 20 aw-picture.scm"
18a0: 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 -j canvas-draw-p
18b0: 69 63 74 75 72 65 20 2d 75 6e 69 74 20 63 61 6e icture -unit can
18c0: 76 61 73 2d 64 72 61 77 2d 70 69 63 74 75 72 65 vas-draw-picture
18d0: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
18e0: 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 s -O2 -d0 "canva
18f0: 73 2d 64 72 61 77 2d 70 69 63 74 75 72 65 2e 69 s-draw-picture.i
1900: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 mport.scm").....
1910: 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 .....(install-ex
1920: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 tension..... 'ca
1930: 6e 76 61 73 2d 64 72 61 77 2d 70 69 63 74 75 72 nvas-draw-pictur
1940: 65 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 e..... '("canvas
1950: 2d 64 72 61 77 2d 70 69 63 74 75 72 65 2e 73 6f -draw-picture.so
1960: 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 " "canvas-draw-p
1970: 69 63 74 75 72 65 2e 6f 22 20 22 63 61 6e 76 61 icture.o" "canva
1980: 73 2d 64 72 61 77 2d 70 69 63 74 75 72 65 2e 69 s-draw-picture.i
1990: 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 mport.so").....
19a0: 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 '((version 1.0.0
19b0: 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 )..... (static
19c0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 "canvas-draw-pi
19d0: 63 74 75 72 65 2e 6f 22 29 0a 09 09 09 09 20 20 cture.o").....
19e0: 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 (static-options
19f0: 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 "-lcd"))))....(
1a00: 77 61 72 6e 69 6e 67 20 22 43 44 20 70 69 63 74 warning "CD pict
1a10: 75 72 65 20 64 72 69 76 65 72 20 6e 6f 74 20 66 ure driver not f
1a20: 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 ound, some bindi
1a30: 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f ngs cannot be co
1a40: 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 mpiled"))......(
1a50: 63 6f 6e 64 0a 09 09 09 5b 28 66 69 6e 64 2d 6c cond....[(find-l
1a60: 69 62 72 61 72 79 20 22 63 64 78 31 31 22 20 22 ibrary "cdx11" "
1a70: 63 64 43 6f 6e 74 65 78 74 49 6d 61 67 65 22 29 cdContextImage")
1a80: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
1a90: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
1aa0: 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 73 63 6d -draw-server.scm
1ab0: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
1ac0: 2d 73 65 72 76 65 72 20 22 2d 6c 63 64 78 31 31 -server "-lcdx11
1ad0: 22 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 ").... (compile
1ae0: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
1af0: 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 73 as-draw-server.s
1b00: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
1b10: 61 77 2d 73 65 72 76 65 72 20 2d 75 6e 69 74 20 aw-server -unit
1b20: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 canvas-draw-serv
1b30: 65 72 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 er).... (compile
1b40: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e -s -O2 -d0 "can
1b50: 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e vas-draw-server.
1b60: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 import.scm")....
1b70: 20 0a 09 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 .... (install-e
1b80: 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 xtension.....'ca
1b90: 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 nvas-draw-server
1ba0: 0a 09 09 09 09 27 28 22 63 61 6e 76 61 73 2d 64 .....'("canvas-d
1bb0: 72 61 77 2d 73 65 72 76 65 72 2e 73 6f 22 20 22 raw-server.so" "
1bc0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 canvas-draw-serv
1bd0: 65 72 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 er.o" "canvas-dr
1be0: 61 77 2d 73 65 72 76 65 72 2e 69 6d 70 6f 72 74 aw-server.import
1bf0: 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 72 .so").....'((ver
1c00: 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 sion 1.0.0).....
1c10: 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 .(static "canvas
1c20: 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 6f 22 29 -draw-server.o")
1c30: 0a 09 09 09 09 09 28 73 74 61 74 69 63 2d 6f 70 ......(static-op
1c40: 74 69 6f 6e 73 20 22 2d 6c 63 64 78 31 31 22 29 tions "-lcdx11")
1c50: 29 29 5d 0a 09 09 09 5b 28 66 69 6e 64 2d 6c 69 ))]....[(find-li
1c60: 62 72 61 72 79 20 22 63 64 22 20 22 63 64 43 6f brary "cd" "cdCo
1c70: 6e 74 65 78 74 49 6d 61 67 65 22 29 0a 09 09 09 ntextImage")....
1c80: 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 (compile -s -O2
1c90: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
1ca0: 77 2d 73 65 72 76 65 72 2e 73 63 6d 22 20 2d 6a w-server.scm" -j
1cb0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 canvas-draw-ser
1cc0: 76 65 72 20 22 2d 6c 63 64 22 29 0a 09 09 09 20 ver "-lcd")....
1cd0: 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 (compile -c -O2
1ce0: 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d1 "canvas-draw
1cf0: 2d 73 65 72 76 65 72 2e 73 63 6d 22 20 2d 6a 20 -server.scm" -j
1d00: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 canvas-draw-serv
1d10: 65 72 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d er -unit canvas-
1d20: 64 72 61 77 2d 73 65 72 76 65 72 29 0a 09 09 09 draw-server)....
1d30: 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 (compile -s -O2
1d40: 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 -d0 "canvas-dra
1d50: 77 2d 73 65 72 76 65 72 2e 69 6d 70 6f 72 74 2e w-server.import.
1d60: 73 63 6d 22 29 0a 09 09 09 20 0a 09 09 09 20 28 scm").... .... (
1d70: 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f install-extensio
1d80: 6e 0a 09 09 09 09 27 63 61 6e 76 61 73 2d 64 72 n.....'canvas-dr
1d90: 61 77 2d 73 65 72 76 65 72 0a 09 09 09 09 27 28 aw-server.....'(
1da0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 "canvas-draw-ser
1db0: 76 65 72 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d ver.so" "canvas-
1dc0: 64 72 61 77 2d 73 65 72 76 65 72 2e 6f 22 20 22 draw-server.o" "
1dd0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 canvas-draw-serv
1de0: 65 72 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 er.import.so")..
1df0: 09 09 09 27 28 28 76 65 72 73 69 6f 6e 20 31 2e ...'((version 1.
1e00: 30 2e 30 29 0a 09 09 09 09 09 28 73 74 61 74 69 0.0)......(stati
1e10: 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 c "canvas-draw-s
1e20: 65 72 76 65 72 2e 6f 22 29 0a 09 09 09 09 09 28 erver.o")......(
1e30: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
1e40: 2d 6c 63 64 22 29 29 29 5d 0a 09 09 09 5b 65 6c -lcd")))]....[el
1e50: 73 65 0a 09 09 09 20 28 77 61 72 6e 69 6e 67 20 se.... (warning
1e60: 22 43 44 20 73 65 72 76 65 72 20 69 6d 61 67 65 "CD server image
1e70: 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e driver not foun
1e80: 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 d, some bindings
1e90: 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 cannot be compi
1ea0: 6c 65 64 22 29 5d 29 0a 09 09 0a 09 09 28 69 66 led")])......(if
1eb0: 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 (find-library "
1ec0: 63 64 22 20 22 63 64 43 6f 6e 74 65 78 74 49 6d cd" "cdContextIm
1ed0: 61 67 65 52 47 42 22 29 0a 09 09 09 28 62 65 67 ageRGB")....(beg
1ee0: 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 in.....(compile
1ef0: 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -s -O2 -d1 "canv
1f00: 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 73 as-draw-client.s
1f10: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
1f20: 61 77 2d 63 6c 69 65 6e 74 20 22 2d 6c 63 64 22 aw-client "-lcd"
1f30: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
1f40: 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 c -O2 -d1 "canva
1f50: 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 73 63 s-draw-client.sc
1f60: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
1f70: 77 2d 63 6c 69 65 6e 74 20 2d 75 6e 69 74 20 63 w-client -unit c
1f80: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e anvas-draw-clien
1f90: 74 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 t).....(compile
1fa0: 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 -s -O2 -d0 "canv
1fb0: 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 69 as-draw-client.i
1fc0: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 mport.scm").....
1fd0: 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 .....(install-ex
1fe0: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 tension..... 'ca
1ff0: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 nvas-draw-client
2000: 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d ..... '("canvas-
2010: 64 72 61 77 2d 63 6c 69 65 6e 74 2e 73 6f 22 20 draw-client.so"
2020: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 "canvas-draw-cli
2030: 65 6e 74 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 ent.o" "canvas-d
2040: 72 61 77 2d 63 6c 69 65 6e 74 2e 69 6d 70 6f 72 raw-client.impor
2050: 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 t.so")..... '((v
2060: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
2070: 09 09 20 20 20 28 73 74 61 74 69 63 20 22 63 61 .. (static "ca
2080: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 nvas-draw-client
2090: 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 73 74 61 .o")..... (sta
20a0: 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 tic-options "-lc
20b0: 64 22 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 d"))))....(warni
20c0: 6e 67 20 22 43 44 20 63 6c 69 65 6e 74 20 69 6d ng "CD client im
20d0: 61 67 65 20 64 72 69 76 65 72 20 6e 6f 74 20 66 age driver not f
20e0: 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 ound, some bindi
20f0: 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f ngs cannot be co
2100: 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 mpiled"))......(
2110: 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 if (find-library
2120: 20 22 63 64 70 64 66 22 20 22 63 64 43 6f 6e 74 "cdpdf" "cdCont
2130: 65 78 74 50 44 46 22 29 0a 09 09 09 28 62 65 67 extPDF")....(beg
2140: 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 in.....(compile
2150: 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -s -O2 -d1 "canv
2160: 61 73 2d 64 72 61 77 2d 70 64 66 2e 73 63 6d 22 as-draw-pdf.scm"
2170: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
2180: 70 64 66 20 22 2d 6c 63 64 70 64 66 22 29 0a 09 pdf "-lcdpdf")..
2190: 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d ...(compile -c -
21a0: 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 O2 -d1 "canvas-d
21b0: 72 61 77 2d 70 64 66 2e 73 63 6d 22 20 2d 6a 20 raw-pdf.scm" -j
21c0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 20 canvas-draw-pdf
21d0: 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 -unit canvas-dra
21e0: 77 2d 70 64 66 29 0a 09 09 09 09 28 63 6f 6d 70 w-pdf).....(comp
21f0: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
2200: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 2e canvas-draw-pdf.
2210: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 import.scm")....
2220: 09 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 ......(install-e
2230: 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 xtension..... 'c
2240: 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 0a 09 anvas-draw-pdf..
2250: 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 ... '("canvas-dr
2260: 61 77 2d 70 64 66 2e 73 6f 22 20 22 63 61 6e 76 aw-pdf.so" "canv
2270: 61 73 2d 64 72 61 77 2d 70 64 66 2e 6f 22 20 22 as-draw-pdf.o" "
2280: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 2e canvas-draw-pdf.
2290: 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 import.so").....
22a0: 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e '((version 1.0.
22b0: 30 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 0)..... (stati
22c0: 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 c "canvas-draw-p
22d0: 64 66 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 73 df.o")..... (s
22e0: 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d tatic-options "-
22f0: 6c 63 64 70 64 66 22 29 29 29 29 0a 09 09 09 28 lcdpdf"))))....(
2300: 77 61 72 6e 69 6e 67 20 22 43 44 20 50 44 46 20 warning "CD PDF
2310: 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 driver not found
2320: 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 , some bindings
2330: 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c cannot be compil
2340: 65 64 22 29 29 0a 09 09 0a 09 09 28 69 66 20 28 ed"))......(if (
2350: 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 find-library "cd
2360: 22 20 22 63 64 43 6f 6e 74 65 78 74 50 53 22 29 " "cdContextPS")
2370: 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 ....(begin.....(
2380: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
2390: 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d1 "canvas-draw-
23a0: 70 73 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 ps.scm" -j canva
23b0: 73 2d 64 72 61 77 2d 70 73 20 22 2d 6c 63 64 22 s-draw-ps "-lcd"
23c0: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
23d0: 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 c -O2 -d1 "canva
23e0: 73 2d 64 72 61 77 2d 70 73 2e 73 63 6d 22 20 2d s-draw-ps.scm" -
23f0: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 j canvas-draw-ps
2400: 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 -unit canvas-dr
2410: 61 77 2d 70 73 29 0a 09 09 09 09 28 63 6f 6d 70 aw-ps).....(comp
2420: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
2430: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 2e 69 canvas-draw-ps.i
2440: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 mport.scm").....
2450: 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 .....(install-ex
2460: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 tension..... 'ca
2470: 6e 76 61 73 2d 64 72 61 77 2d 70 73 0a 09 09 09 nvas-draw-ps....
2480: 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 . '("canvas-draw
2490: 2d 70 73 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d -ps.so" "canvas-
24a0: 64 72 61 77 2d 70 73 2e 6f 22 20 22 63 61 6e 76 draw-ps.o" "canv
24b0: 61 73 2d 64 72 61 77 2d 70 73 2e 69 6d 70 6f 72 as-draw-ps.impor
24c0: 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 t.so")..... '((v
24d0: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
24e0: 09 09 20 20 20 28 73 74 61 74 69 63 20 22 63 61 .. (static "ca
24f0: 6e 76 61 73 2d 64 72 61 77 2d 70 73 2e 6f 22 29 nvas-draw-ps.o")
2500: 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 2d ..... (static-
2510: 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 options "-lcd"))
2520: 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 ))....(warning "
2530: 43 44 20 50 6f 73 74 53 63 72 69 70 74 20 64 72 CD PostScript dr
2540: 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 iver not found,
2550: 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 some bindings ca
2560: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 nnot be compiled
2570: 22 29 29 0a 09 09 0a 09 09 28 69 66 20 28 66 69 "))......(if (fi
2580: 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 22 20 nd-library "cd"
2590: 22 63 64 43 6f 6e 74 65 78 74 53 56 47 22 29 0a "cdContextSVG").
25a0: 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 63 ...(begin.....(c
25b0: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
25c0: 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 1 "canvas-draw-s
25d0: 76 67 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 vg.scm" -j canva
25e0: 73 2d 64 72 61 77 2d 73 76 67 20 22 2d 6c 63 64 s-draw-svg "-lcd
25f0: 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 ").....(compile
2600: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
2610: 61 73 2d 64 72 61 77 2d 73 76 67 2e 73 63 6d 22 as-draw-svg.scm"
2620: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
2630: 73 76 67 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 svg -unit canvas
2640: 2d 64 72 61 77 2d 73 76 67 29 0a 09 09 09 09 28 -draw-svg).....(
2650: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
2660: 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d0 "canvas-draw-
2670: 73 76 67 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 svg.import.scm")
2680: 0a 09 09 09 09 0a 09 09 09 09 28 69 6e 73 74 61 ..........(insta
2690: 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 ll-extension....
26a0: 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 . 'canvas-draw-s
26b0: 76 67 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 vg..... '("canva
26c0: 73 2d 64 72 61 77 2d 73 76 67 2e 73 6f 22 20 22 s-draw-svg.so" "
26d0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 67 2e canvas-draw-svg.
26e0: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
26f0: 73 76 67 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a svg.import.so").
2700: 09 09 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 .... '((version
2710: 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 20 28 73 1.0.0)..... (s
2720: 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 tatic "canvas-dr
2730: 61 77 2d 73 76 67 2e 6f 22 29 0a 09 09 09 09 20 aw-svg.o").....
2740: 20 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e (static-option
2750: 73 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 s "-lcd"))))....
2760: 28 77 61 72 6e 69 6e 67 20 22 43 44 20 53 56 47 (warning "CD SVG
2770: 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e driver not foun
2780: 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 d, some bindings
2790: 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 cannot be compi
27a0: 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 69 66 20 led"))......(if
27b0: 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 (find-library "c
27c0: 64 22 20 22 63 64 43 6f 6e 74 65 78 74 4d 65 74 d" "cdContextMet
27d0: 61 66 69 6c 65 22 29 0a 09 09 09 28 62 65 67 69 afile")....(begi
27e0: 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d n.....(compile -
27f0: 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 s -O2 -d1 "canva
2800: 73 2d 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 2e s-draw-metafile.
2810: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
2820: 72 61 77 2d 6d 65 74 61 66 69 6c 65 20 22 2d 6c raw-metafile "-l
2830: 63 64 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c cd").....(compil
2840: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
2850: 6e 76 61 73 2d 64 72 61 77 2d 6d 65 74 61 66 69 nvas-draw-metafi
2860: 6c 65 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 le.scm" -j canva
2870: 73 2d 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 20 s-draw-metafile
2880: 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 -unit canvas-dra
2890: 77 2d 6d 65 74 61 66 69 6c 65 29 0a 09 09 09 09 w-metafile).....
28a0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 (compile -s -O2
28b0: 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d0 "canvas-draw
28c0: 2d 6d 65 74 61 66 69 6c 65 2e 69 6d 70 6f 72 74 -metafile.import
28d0: 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 .scm")..........
28e0: 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 (install-extensi
28f0: 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d on..... 'canvas-
2900: 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 0a 09 09 draw-metafile...
2910: 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 61 .. '("canvas-dra
2920: 77 2d 6d 65 74 61 66 69 6c 65 2e 73 6f 22 20 22 w-metafile.so" "
2930: 63 61 6e 76 61 73 2d 64 72 61 77 2d 6d 65 74 61 canvas-draw-meta
2940: 66 69 6c 65 2e 6f 22 20 22 63 61 6e 76 61 73 2d file.o" "canvas-
2950: 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 2e 69 6d draw-metafile.im
2960: 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 port.so")..... '
2970: 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 ((version 1.0.0)
2980: 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 20 ..... (static
2990: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 6d 65 74 "canvas-draw-met
29a0: 61 66 69 6c 65 2e 6f 22 29 0a 09 09 09 09 20 20 afile.o").....
29b0: 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 (static-options
29c0: 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 "-lcd"))))....(
29d0: 77 61 72 6e 69 6e 67 20 22 43 44 20 6d 65 74 61 warning "CD meta
29e0: 66 69 6c 65 20 64 72 69 76 65 72 20 6e 6f 74 20 file driver not
29f0: 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 found, some bind
2a00: 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 ings cannot be c
2a10: 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 ompiled"))......
2a20: 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 (if (find-librar
2a30: 79 20 22 63 64 22 20 22 63 64 43 6f 6e 74 65 78 y "cd" "cdContex
2a40: 74 44 65 62 75 67 22 29 0a 09 09 09 28 62 65 67 tDebug")....(beg
2a50: 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 in.....(compile
2a60: 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -s -O2 -d1 "canv
2a70: 61 73 2d 64 72 61 77 2d 64 65 62 75 67 2e 73 63 as-draw-debug.sc
2a80: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
2a90: 77 2d 64 65 62 75 67 20 22 2d 6c 63 64 22 29 0a w-debug "-lcd").
2aa0: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
2ab0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
2ac0: 64 72 61 77 2d 64 65 62 75 67 2e 73 63 6d 22 20 draw-debug.scm"
2ad0: 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 -j canvas-draw-d
2ae0: 65 62 75 67 20 2d 75 6e 69 74 20 63 61 6e 76 61 ebug -unit canva
2af0: 73 2d 64 72 61 77 2d 64 65 62 75 67 29 0a 09 09 s-draw-debug)...
2b00: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
2b10: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
2b20: 61 77 2d 64 65 62 75 67 2e 69 6d 70 6f 72 74 2e aw-debug.import.
2b30: 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 28 scm")..........(
2b40: 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f install-extensio
2b50: 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d 64 n..... 'canvas-d
2b60: 72 61 77 2d 64 65 62 75 67 0a 09 09 09 09 20 27 raw-debug..... '
2b70: 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 ("canvas-draw-de
2b80: 62 75 67 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d bug.so" "canvas-
2b90: 64 72 61 77 2d 64 65 62 75 67 2e 6f 22 20 22 63 draw-debug.o" "c
2ba0: 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 anvas-draw-debug
2bb0: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 .import.so")....
2bc0: 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 . '((version 1.0
2bd0: 2e 30 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 .0)..... (stat
2be0: 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d ic "canvas-draw-
2bf0: 64 65 62 75 67 2e 6f 22 29 0a 09 09 09 09 20 20 debug.o").....
2c00: 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 (static-options
2c10: 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 "-lcd"))))....(
2c20: 77 61 72 6e 69 6e 67 20 22 43 44 20 64 65 62 75 warning "CD debu
2c30: 67 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 g driver not fou
2c40: 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 nd, some binding
2c50: 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 s cannot be comp
2c60: 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 69 66 iled"))......(if
2c70: 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 22 (find-library "
2c80: 63 64 22 20 22 63 64 43 6f 6e 74 65 78 74 43 47 cd" "cdContextCG
2c90: 4d 22 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 M")....(begin...
2ca0: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
2cb0: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
2cc0: 61 77 2d 63 67 6d 2e 73 63 6d 22 20 2d 6a 20 63 aw-cgm.scm" -j c
2cd0: 61 6e 76 61 73 2d 64 72 61 77 2d 63 67 6d 20 22 anvas-draw-cgm "
2ce0: 2d 6c 63 64 22 29 0a 09 09 09 09 28 63 6f 6d 70 -lcd").....(comp
2cf0: 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 ile -c -O2 -d1 "
2d00: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 67 6d 2e canvas-draw-cgm.
2d10: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
2d20: 72 61 77 2d 63 67 6d 20 2d 75 6e 69 74 20 63 61 raw-cgm -unit ca
2d30: 6e 76 61 73 2d 64 72 61 77 2d 63 67 6d 29 0a 09 nvas-draw-cgm)..
2d40: 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ...(compile -s -
2d50: 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 O2 -d0 "canvas-d
2d60: 72 61 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e 73 raw-cgm.import.s
2d70: 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 28 69 cm")..........(i
2d80: 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e nstall-extension
2d90: 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d 64 72 ..... 'canvas-dr
2da0: 61 77 2d 63 67 6d 0a 09 09 09 09 20 27 28 22 63 aw-cgm..... '("c
2db0: 61 6e 76 61 73 2d 64 72 61 77 2d 63 67 6d 2e 73 anvas-draw-cgm.s
2dc0: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
2dd0: 63 67 6d 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 cgm.o" "canvas-d
2de0: 72 61 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e 73 raw-cgm.import.s
2df0: 6f 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 o")..... '((vers
2e00: 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 20 ion 1.0.0).....
2e10: 20 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 (static "canva
2e20: 73 2d 64 72 61 77 2d 63 67 6d 2e 6f 22 29 0a 09 s-draw-cgm.o")..
2e30: 09 09 09 20 20 20 28 73 74 61 74 69 63 2d 6f 70 ... (static-op
2e40: 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 29 tions "-lcd"))))
2e50: 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 43 44 ....(warning "CD
2e60: 20 43 47 4d 20 64 72 69 76 65 72 20 6e 6f 74 20 CGM driver not
2e70: 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 found, some bind
2e80: 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 ings cannot be c
2e90: 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 ompiled"))......
2ea0: 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 (if (find-librar
2eb0: 79 20 22 63 64 22 20 22 63 64 43 6f 6e 74 65 78 y "cd" "cdContex
2ec0: 74 44 47 4e 22 29 0a 09 09 09 28 62 65 67 69 6e tDGN")....(begin
2ed0: 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
2ee0: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
2ef0: 2d 64 72 61 77 2d 64 67 6e 2e 73 63 6d 22 20 2d -draw-dgn.scm" -
2f00: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 j canvas-draw-dg
2f10: 6e 20 22 2d 6c 63 64 22 29 0a 09 09 09 09 28 63 n "-lcd").....(c
2f20: 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 ompile -c -O2 -d
2f30: 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 1 "canvas-draw-d
2f40: 67 6e 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 gn.scm" -j canva
2f50: 73 2d 64 72 61 77 2d 64 67 6e 20 2d 75 6e 69 74 s-draw-dgn -unit
2f60: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e canvas-draw-dgn
2f70: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
2f80: 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 s -O2 -d0 "canva
2f90: 73 2d 64 72 61 77 2d 64 67 6e 2e 69 6d 70 6f 72 s-draw-dgn.impor
2fa0: 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 t.scm").........
2fb0: 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 .(install-extens
2fc0: 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 73 ion..... 'canvas
2fd0: 2d 64 72 61 77 2d 64 67 6e 0a 09 09 09 09 20 27 -draw-dgn..... '
2fe0: 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 ("canvas-draw-dg
2ff0: 6e 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 n.so" "canvas-dr
3000: 61 77 2d 64 67 6e 2e 6f 22 20 22 63 61 6e 76 61 aw-dgn.o" "canva
3010: 73 2d 64 72 61 77 2d 64 67 6e 2e 69 6d 70 6f 72 s-draw-dgn.impor
3020: 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 t.so")..... '((v
3030: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
3040: 09 09 20 20 20 28 73 74 61 74 69 63 20 22 63 61 .. (static "ca
3050: 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e 2e 6f 22 nvas-draw-dgn.o"
3060: 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 )..... (static
3070: 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 -options "-lcd")
3080: 29 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 )))....(warning
3090: 22 43 44 20 44 47 4e 20 64 72 69 76 65 72 20 6e "CD DGN driver n
30a0: 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 ot found, some b
30b0: 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 indings cannot b
30c0: 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 e compiled"))...
30d0: 0a 09 09 28 69 66 20 28 66 69 6e 64 2d 6c 69 62 ...(if (find-lib
30e0: 72 61 72 79 20 22 63 64 22 20 22 63 64 43 6f 6e rary "cd" "cdCon
30f0: 74 65 78 74 44 58 46 22 29 0a 09 09 09 28 62 65 textDXF")....(be
3100: 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 gin.....(compile
3110: 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e -s -O2 -d1 "can
3120: 76 61 73 2d 64 72 61 77 2d 64 78 66 2e 73 63 6d vas-draw-dxf.scm
3130: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
3140: 2d 64 78 66 20 22 2d 6c 63 64 22 29 0a 09 09 09 -dxf "-lcd")....
3150: 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 .(compile -c -O2
3160: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
3170: 77 2d 64 78 66 2e 73 63 6d 22 20 2d 6a 20 63 61 w-dxf.scm" -j ca
3180: 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 20 2d 75 nvas-draw-dxf -u
3190: 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d nit canvas-draw-
31a0: 64 78 66 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c dxf).....(compil
31b0: 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 e -s -O2 -d0 "ca
31c0: 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 2e 69 6d nvas-draw-dxf.im
31d0: 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a port.scm")......
31e0: 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 ....(install-ext
31f0: 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e ension..... 'can
3200: 76 61 73 2d 64 72 61 77 2d 64 78 66 0a 09 09 09 vas-draw-dxf....
3210: 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 . '("canvas-draw
3220: 2d 64 78 66 2e 73 6f 22 20 22 63 61 6e 76 61 73 -dxf.so" "canvas
3230: 2d 64 72 61 77 2d 64 78 66 2e 6f 22 20 22 63 61 -draw-dxf.o" "ca
3240: 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 2e 69 6d nvas-draw-dxf.im
3250: 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 port.so")..... '
3260: 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 ((version 1.0.0)
3270: 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 20 ..... (static
3280: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 "canvas-draw-dxf
3290: 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 73 74 61 .o")..... (sta
32a0: 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 tic-options "-lc
32b0: 64 22 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 d"))))....(warni
32c0: 6e 67 20 22 43 44 20 44 58 46 20 64 72 69 76 65 ng "CD DXF drive
32d0: 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d r not found, som
32e0: 65 20 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f e bindings canno
32f0: 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 t be compiled"))
3300: 0a 09 09 0a 09 09 28 69 66 20 28 66 69 6e 64 2d ......(if (find-
3310: 6c 69 62 72 61 72 79 20 22 63 64 22 20 22 63 64 library "cd" "cd
3320: 43 6f 6e 74 65 78 74 45 4d 46 22 29 0a 09 09 09 ContextEMF")....
3330: 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 (begin.....(comp
3340: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 ile -s -O2 -d1 "
3350: 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e canvas-draw-emf.
3360: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
3370: 72 61 77 2d 65 6d 66 20 22 2d 6c 63 64 22 29 0a raw-emf "-lcd").
3380: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
3390: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
33a0: 64 72 61 77 2d 65 6d 66 2e 73 63 6d 22 20 2d 6a draw-emf.scm" -j
33b0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 canvas-draw-emf
33c0: 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 -unit canvas-dr
33d0: 61 77 2d 65 6d 66 29 0a 09 09 09 09 28 63 6f 6d aw-emf).....(com
33e0: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
33f0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 "canvas-draw-emf
3400: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 .import.scm")...
3410: 09 09 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d .......(install-
3420: 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 extension..... '
3430: 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 0a canvas-draw-emf.
3440: 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 .... '("canvas-d
3450: 72 61 77 2d 65 6d 66 2e 73 6f 22 20 22 63 61 6e raw-emf.so" "can
3460: 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e 6f 22 20 vas-draw-emf.o"
3470: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 "canvas-draw-emf
3480: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 .import.so")....
3490: 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 . '((version 1.0
34a0: 2e 30 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 .0)..... (stat
34b0: 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d ic "canvas-draw-
34c0: 65 6d 66 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 emf.o")..... (
34d0: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
34e0: 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 77 61 -lcd"))))....(wa
34f0: 72 6e 69 6e 67 20 22 43 44 20 45 4d 46 20 64 72 rning "CD EMF dr
3500: 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 iver not found,
3510: 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 some bindings ca
3520: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 nnot be compiled
3530: 22 29 29 0a 09 09 0a 09 09 28 69 66 20 28 66 69 "))......(if (fi
3540: 6e 64 2d 6c 69 62 72 61 72 79 20 22 63 64 22 20 nd-library "cd"
3550: 22 63 64 43 6f 6e 74 65 78 74 57 4d 46 22 29 0a "cdContextWMF").
3560: 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 63 ...(begin.....(c
3570: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
3580: 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 1 "canvas-draw-w
3590: 6d 66 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 mf.scm" -j canva
35a0: 73 2d 64 72 61 77 2d 77 6d 66 20 22 2d 6c 63 64 s-draw-wmf "-lcd
35b0: 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 ").....(compile
35c0: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
35d0: 61 73 2d 64 72 61 77 2d 77 6d 66 2e 73 63 6d 22 as-draw-wmf.scm"
35e0: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
35f0: 77 6d 66 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 wmf -unit canvas
3600: 2d 64 72 61 77 2d 77 6d 66 29 0a 09 09 09 09 28 -draw-wmf).....(
3610: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d compile -s -O2 -
3620: 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d0 "canvas-draw-
3630: 77 6d 66 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 wmf.import.scm")
3640: 0a 09 09 09 09 0a 09 09 09 09 28 69 6e 73 74 61 ..........(insta
3650: 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 ll-extension....
3660: 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 . 'canvas-draw-w
3670: 6d 66 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 mf..... '("canva
3680: 73 2d 64 72 61 77 2d 77 6d 66 2e 73 6f 22 20 22 s-draw-wmf.so" "
3690: 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 2e canvas-draw-wmf.
36a0: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
36b0: 77 6d 66 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a wmf.import.so").
36c0: 09 09 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 .... '((version
36d0: 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 20 28 73 1.0.0)..... (s
36e0: 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 tatic "canvas-dr
36f0: 61 77 2d 77 6d 66 2e 6f 22 29 0a 09 09 09 09 20 aw-wmf.o").....
3700: 20 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e (static-option
3710: 73 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 s "-lcd"))))....
3720: 28 77 61 72 6e 69 6e 67 20 22 43 44 20 57 4d 46 (warning "CD WMF
3730: 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e driver not foun
3740: 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 d, some bindings
3750: 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 cannot be compi
3760: 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 63 6f 6d led"))......(com
3770: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 pile -s -O2 -d1
3780: 22 63 61 6e 76 61 73 2d 64 72 61 77 2e 73 63 6d "canvas-draw.scm
3790: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
37a0: 29 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 )...(compile -c
37b0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
37c0: 64 72 61 77 2e 73 63 6d 22 20 2d 6a 20 63 61 6e draw.scm" -j can
37d0: 76 61 73 2d 64 72 61 77 20 2d 75 6e 69 74 20 63 vas-draw -unit c
37e0: 61 6e 76 61 73 2d 64 72 61 77 29 0a 09 09 28 63 anvas-draw)...(c
37f0: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
3800: 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2e 69 0 "canvas-draw.i
3810: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 0a 09 mport.scm").....
3820: 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 .(install-extens
3830: 69 6f 6e 0a 09 09 20 27 63 61 6e 76 61 73 2d 64 ion... 'canvas-d
3840: 72 61 77 0a 09 09 20 27 28 22 63 61 6e 76 61 73 raw... '("canvas
3850: 2d 64 72 61 77 2e 73 6f 22 20 22 63 61 6e 76 61 -draw.so" "canva
3860: 73 2d 64 72 61 77 2e 6f 22 20 22 63 61 6e 76 61 s-draw.o" "canva
3870: 73 2d 64 72 61 77 2e 69 6d 70 6f 72 74 2e 73 6f s-draw.import.so
3880: 22 29 0a 09 09 20 27 28 28 76 65 72 73 69 6f 6e ")... '((version
3890: 20 31 2e 30 2e 30 29 0a 09 09 09 20 28 73 74 61 1.0.0).... (sta
38a0: 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 tic "canvas-draw
38b0: 2e 6f 22 29 29 29 29 0a 09 28 65 72 72 6f 72 20 .o"))))..(error
38c0: 22 43 44 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 6e "CD not found, n
38d0: 6f 6e 65 20 6f 66 20 74 68 65 20 62 69 6e 64 69 one of the bindi
38e0: 6e 67 73 20 63 61 6e 20 62 65 20 63 6f 6d 70 69 ngs can be compi
38f0: 6c 65 64 22 29 29 0a led")).