From 87fec0a73fe233ee27a0be196ea12df48ae21535 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 22 Jan 2021 23:03:27 +0000
Subject: [PATCH] scaffold-clamp-cleat: sort out toplevels

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 scaffold-clamp-cleat.scad  | 6 +++---
 scaffold-clamp-common.scad | 7 +++++++
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/scaffold-clamp-cleat.scad b/scaffold-clamp-cleat.scad
index ec697a3..9825406 100644
--- a/scaffold-clamp-cleat.scad
+++ b/scaffold-clamp-cleat.scad
@@ -1,11 +1,11 @@
 // -*- C -*-
 
 // Per cleat print
-//     VCleatA
+//     VCleatA        OR    VCleatA x2, one upside-down
 //     GeneralB
-//     Pin
+//     Pin                  Pin
 
 //// toplevels-from:
 include <scaffold-clamp-common.scad>
 
-module DemoA(){ VHookA(); }
+module DemoA(){ VCleatA(); }
diff --git a/scaffold-clamp-common.scad b/scaffold-clamp-common.scad
index 90b194a..c16fbd8 100644
--- a/scaffold-clamp-common.scad
+++ b/scaffold-clamp-common.scad
@@ -423,5 +423,12 @@ module Demo(){ ////toplevel
     rotate([0,0,180]) PinSitu();
 }
 
+module DemoPair(){ ////toplevel
+  color("red") rotate([180,0,0]) DemoA();
+  color("blue") DemoA();
+  color("orange") translate([hinge_x, 0, min_z - hinge_z_gap])
+    rotate([0,0,180]) PinSitu();
+}
+
 //PlanDemo();
 //HalfClamp();
-- 
2.30.2