chiark / gitweb /
commitid.scad.pl: 2d demo has bounding rectangles
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 5 Feb 2016 18:09:52 +0000 (18:09 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 5 Feb 2016 18:09:52 +0000 (18:09 +0000)
commitid.scad.pl

index 489d5c22c4ab868e0dffea2969a74fe7df3ab21b..f4a0d19388369df7704d179b813372a525628252 100755 (executable)
@@ -165,9 +165,15 @@ sub gentextmodule ($@) {
     p sprintf "function %s_sz() = Commitid__scale() * 0.1 * [ %d, %d ];\n",
        $modb, 2 * ($cols * 4 - 1), 2 * (@lines * 6 - 1);
 
-    push @gtm_demo_o,
-       " translate([$gtm_demo_i * st[0], $gtm_demo_j * st[1]])".
-       " ${modb}_2D();\n";
+    push @gtm_demo_o, <<END;
+ translate([$gtm_demo_i * st[0], $gtm_demo_j * st[1]]) {
+  difference(){
+   color("blue") translate([-e,-e]) square(${modb}_sz() + 2*[e,e]);
+   square(${modb}_sz());
+  }
+  ${modb}_2D();
+}
+END
     $gtm_demo_j++;
 }
 
@@ -376,6 +382,7 @@ do_git();
 
 p "module Commitid_2DDemo(){\n";
 p " st = Commitid__scale() * [ 10, 5 ];\n";
+p " e  = Commitid_pixelsz();\n";
 p $_ foreach @gtm_demo_o;
 p "}\n";