38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
;; get extents of all objects and put rectangle around it
;;
(define big-xtnts (vg:instances-get-extents d1))
(vg:add-objs-to-comp c2 (apply vg:make-rect big-xtnts))
(vg:instantiate d1 "firstlib" "secondcomp" "inst3" 0 0)
(vg:drawing-scalex-set! d1 1.8)
(vg:drawing-scaley-set! d1 1.1)
(define cnv #f)
(define the-cnv (canvas
#:size "500x400"
#:expand "YES"
#:scrollbar "YES"
#:posx "0.5"
|
|
|
|
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
;; get extents of all objects and put rectangle around it
;;
(define big-xtnts (vg:instances-get-extents d1))
(vg:add-objs-to-comp c2 (apply vg:make-rect big-xtnts))
(vg:instantiate d1 "firstlib" "secondcomp" "inst3" 0 0)
(vg:drawing-scalex-set! d1 1.5)
(vg:drawing-scaley-set! d1 1.5)
(define cnv #f)
(define the-cnv (canvas
#:size "500x400"
#:expand "YES"
#:scrollbar "YES"
#:posx "0.5"
|