Cairo__Examples2.st
changeset 51 5293f2b851ab
parent 50 239120c68187
child 53 57718b3ac316
--- a/Cairo__Examples2.st	Thu Feb 25 20:55:41 2016 +0000
+++ b/Cairo__Examples2.st	Sun Feb 28 14:53:56 2016 +0000
@@ -52,7 +52,7 @@
     "Created: / 26-02-2016 / 22:57:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-example02: gc <example: '01 - Rectangles (rounded)'>
+example02: gc <example: '02 - Rectangles (rounded)'>
 gc lineWidth: 10.
 gc paint: Color red.
 gc displayRoundRectangleX: 10 y: 10 width: gc width - 20 height: gc height - 20
@@ -65,6 +65,38 @@
 gc displayLineFromX: 1 y: (gc height / 2) rounded toX: gc width y: (gc height / 2) rounded.
 
     "Created: / 27-02-2016 / 09:04:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-02-2016 / 16:14:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+example03: gc <example: '03 - PNG with alpha'>
+| image |
+
+gc paint: Color white.
+gc fillRectangleX:1 y:1 width: 32 height: 32.
+
+gc paint: Color black.
+gc fillRectangleX:33 y:33 width: 32 height: 32.
+
+image := Image fromFile: 'square1.png' inPackage: 'stx:goodies/libcairo'.
+image displayOn: gc x: 1 y: 1.
+
+    "Created: / 27-02-2016 / 16:14:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-02-2016 / 14:50:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+example04: gc <example: '03 - PNG with alpha II'>
+| image |
+
+gc paint: Color white.
+gc fillRectangleX:1 y:1 width: 32 height: 32.
+
+gc paint: Color black.
+gc fillRectangleX:33 y:33 width: 32 height: 32.
+
+image := Image fromFile: 'circle1.png' inPackage: 'stx:goodies/libcairo'.
+image displayOn: gc x: 1 y: 1.
+
+    "Created: / 28-02-2016 / 14:49:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Examples2 methodsFor:'private'!