Using make-instance to create surfaces from PNG images

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 0cf9fdb0b34b9dab6f51b94bf3d1c007a7c11d9d..f7b6b7167c5bb7a69ce776a6a475d0da32fefc8b 100644 (file)
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -124,9 +124,9 @@ (define-snippet clip-image (cr)
   (cairo:clip cr)
   (cairo:new-path cr)
 
   (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)))
     (let ((width (cairo:surface-width image))
          (height (cairo:surface-height image)))
       (cairo:scale cr (/ 1.0 width) (/ 1.0 height)))


@@ -278,8 +278,8 @@ (define-snippet gradient (cr)
 
 
 (define-snippet image (cr)
 
 
 (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))
     (cairo:translate cr 0.5 0.5)
     (cairo:rotate cr (deg-to-rad 45.0))
     (let ((width (cairo:surface-width image))


@@ -291,8 +291,8 @@ (define-snippet image (cr)
 
     
 (define-snippet image-pattern (cr)
 
     
 (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)
         (pattern (cairo:pattern-create-for-surface image)))
     (setf (cairo:pattern-extend pattern) :repeat)    
     (cairo:translate cr 0.5 0.5)