EXAMPLE: Encode and decode QR codes

Oldes · May 23, 2024 · f902237 · f902237
1 parent 62c09d2
commit f902237
Show file tree

Hide file tree

Showing 4 changed files with 41 additions and 2 deletions.
diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml
@@ -35,6 +35,8 @@ jobs:
 
     - name: Install Rebol for extension test
       uses: oldes/install-rebol@v3.17.0
+      with:
+        product: Bulk # used `resize` in tests
 
     - name: Test extension
       run:  ./rebol3.exe test.r3
@@ -72,6 +74,8 @@ jobs:
 
     - name: Install Rebol for extension test
       uses: oldes/install-rebol@v3.17.0
+      with:
+        product: Bulk # used `resize` in tests
 
     - name: Test extension
       run:  ./rebol3 test.r3

diff --git a/README.md b/README.md
@@ -1,3 +1,4 @@
+
 [![Rebol-OpenCV CI](https://github.com/Oldes/Rebol-OpenCV/actions/workflows/main.yml/badge.svg)](https://github.com/Oldes/Rebol-OpenCV/actions/workflows/main.yml)
 [![Gitter](https://badges.gitter.im/rebol3/community.svg)](https://app.gitter.im/#/room/#Rebol3:gitter.im)
 
@@ -412,6 +413,23 @@ with cv [
 ]
 ```
 
+### Encode and decode QR codes
+
+```rebol
+with cv [
+    mat: qrcode-encode "Hello Rebol, hello OpenCV!"
+    mat: resize/with :mat 600% INTER_NEAREST
+    ;; display the result...
+    imshow :mat
+    waitKey 0
+    destroyAllWindows
+    ;; save as PNG image...
+    imwrite %tmp/test-qrcode.png :mat
+    ;; decode QRCode from file:
+    probe qrcode-decode %tmp/test-qrcode.png
+]
+```
+
 
 * * * *
 This file was generated using [examples.r3](examples.r3) script.
diff --git a/examples.r3 b/examples.r3
@@ -392,7 +392,25 @@ example "Computing absolute difference between 2 video frames" {
     ]
     ```
 }
-
+
+;---------------------------------------------------------------------------------------
+
+example "Encode and decode QR codes" {
+    ```rebol
+    with cv [
+        mat: qrcode-encode "Hello Rebol, hello OpenCV!"
+        mat: resize/with :mat 600% INTER_NEAREST
+        ;; display the result...
+        imshow :mat
+        waitKey 0
+        destroyAllWindows
+        ;; save as PNG image...
+        imwrite %tmp/test-qrcode.png :mat
+        ;; decode QRCode from file:
+        probe qrcode-decode %tmp/test-qrcode.png
+    ]
+    ```
+}
 
 ;---------------------------------------------------------------------------------------
 ] ; end of examples block

diff --git a/test.r3 b/test.r3
@@ -60,5 +60,4 @@ prin "From image: "
 probe cv/qrcode-decode img
 
 prin "From file:  "
-
 probe cv/qrcode-decode %tmp/qrcode.png