Index: openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/Attic/captcha-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl	27 Jan 2022 08:22:56 -0000	1.1.2.4
+++ openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl	28 Jan 2022 09:28:29 -0000	1.1.2.5
@@ -122,11 +122,21 @@
         return
     }
 
-    for {set i 0} {$i < 10} {incr i} {
+    foreach size {
+        50x150
+        100x300
+        200x600
+        400x1200
+        800x2400
+        160x120
+        320x240
+        640x480
+        1024x768
+        1280x960
+    } {
         set text [ad_generate_random_string 5]
-        set pointsize [expr {round((rand()*80))+20}]
         set captcha [captcha::image::generate \
-                         -pointsize $pointsize \
+                         -size $size \
                          -text $text]
         set ocr ""
         try {