(svg-out |
100 100 |
(lambda () |
(let ( |
[rect_id (svg-def-shape (new-rect 50 50))] |
[line1_id (svg-def-shape (new-line '(10 . 0) '(0 . 50)))] |
[line2_id (svg-def-shape (new-line '(0 . 0) '(10 . 50)))] |
[rect_sstyle (sstyle-new)] |
[group_sstyle (sstyle-new)] |
[cross_line_id #f] |
[pattern_id #f] |
) |
|
(set-SSTYLE-stroke-width! group_sstyle 1) |
(set-SSTYLE-stroke! group_sstyle "black") |
(set! cross_line_id |
(svg-def-group |
(lambda () |
(svg-place-widget line1_id #:style group_sstyle) |
(svg-place-widget line2_id #:style group_sstyle) |
))) |
|
(set-SSTYLE-stroke-width! rect_sstyle 2) |
(set-SSTYLE-stroke! rect_sstyle "red") |
(set-SSTYLE-fill! rect_sstyle "orange") |
(set! pattern_id |
(svg-def-group |
(lambda () |
(svg-place-widget rect_id #:style rect_sstyle) |
(svg-place-widget cross_line_id #:at '(0 . 0)) |
(svg-place-widget cross_line_id #:at '(10 . 0)) |
(svg-place-widget cross_line_id #:at '(20 . 0)) |
(svg-place-widget cross_line_id #:at '(30 . 0)) |
(svg-place-widget cross_line_id #:at '(40 . 0))))) |
|
(svg-place-widget pattern_id #:at '(0 . 0)) |
(svg-place-widget pattern_id #:at '(50 . 0)) |
(svg-place-widget pattern_id #:at '(0 . 50)) |
(svg-place-widget pattern_id #:at '(50 . 50)) |
))) |