From df8bd6ea627b3bf0f8919d9621b5cea325f32afa Mon Sep 17 00:00:00 2001
From: Naveen Michaud-Agrawal <naveen.michaudagrawal@gmail.com>
Date: Sat, 11 Nov 2023 03:25:50 +0000
Subject: Support non-uniform image scaling

---
 virtual-programs/display/image.folk | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display/image.folk b/virtual-programs/display/image.folk
index 7415b260..de0408af 100644
--- a/virtual-programs/display/image.folk
+++ b/virtual-programs/display/image.folk
@@ -3,7 +3,7 @@ On process "display" {
     set rotate $::rotate
     # TODO: Do this with a wish, instead of hard-coding the global dict.
     dict set ::pipelines "image" [Gpu::pipeline {sampler2D image vec2 imageSize
-                              vec2 pos float radians float scale
+                              vec2 pos float radians vec2 scale
                               fn rotate} {
         vec2 a = pos + scale * (rotate(-imageSize/2, -radians));
         vec2 b = pos + scale * (rotate(vec2(imageSize.x, -imageSize.y)/2, -radians));
@@ -108,6 +108,9 @@ On process "display" {
         set im [dict get $options image]
         set radians [dict get $options radians]
         set scale [dict_getdef $options scale 1.0]
+        if {[llength $scale] == 1} {
+          set scale [list $scale $scale] 
+        }
 
         set gim [ImageCache::getOrInsert $im]
 
-- 
cgit v1.2.3