(cairo:clip cr)
(cairo:new-path cr)
- (let ((image (cairo:image-surface-create-from-png
- #p"clg:examples;romedalen.png")))
-
+ (let ((image (make-instance 'cairo:image-surface
+ :filename #p"clg:examples;romedalen.png")))
+
(let ((width (cairo:surface-width image))
(height (cairo:surface-height image)))
(cairo:scale cr (/ 1.0 width) (/ 1.0 height)))
(define-snippet image (cr)
- (let ((image (cairo:image-surface-create-from-png
- #p"clg:examples;romedalen.png")))
+ (let ((image (make-instance 'cairo:image-surface
+ :filename #p"clg:examples;romedalen.png")))
(cairo:translate cr 0.5 0.5)
(cairo:rotate cr (deg-to-rad 45.0))
(let ((width (cairo:surface-width image))
(define-snippet image-pattern (cr)
- (let* ((image (cairo:image-surface-create-from-png
- #p"clg:examples;romedalen.png"))
+ (let* ((image (make-instance 'cairo:image-surface
+ :filename #p"clg:examples;romedalen.png"))
(pattern (cairo:pattern-create-for-surface image)))
(setf (cairo:pattern-extend pattern) :repeat)
(cairo:translate cr 0.5 0.5)
(clg-init)
-#?(pkg-config:pkg-exists-p "librsvg-2.0" :atleast-version "2.13.93")
(rsvg:init)
;; We need to turn off floating point exceptions, because Cairo is
#+sbcl(sb-int:set-floating-point-modes :traps nil)
#+cmu(ext:set-floating-point-modes :traps nil)
-(create-tests)
+(within-main-loop (create-tests))