line from FRAME.w to FRAME.s
]}
-# Basic triangle
+# Basic triangle, NO above YES
define triangle {[
FRAME: box invis " $1" ht 1.0 $2 $3 $4
line from FRAME.w to FRAME.ne
"YES" at YES + (0.2, 0.06)
]}
-# Sme triangle, YES and NO swapped
-define triangle {[
+# Same triangle, YES above NO
+define invtriangle {[
FRAME: box invis " $1" ht 1.0 $2 $3 $4
line from FRAME.w to FRAME.ne
line from FRAME.w to FRAME.se
]}
# It would be nice to make this work inside [], but pic refuses
-define hannotate {$2 at $1.end + (-0.1,0.1)}
-define vannotate {$2 at $1.end + (0.1,0.1)}
+define hannotate {$2 at $1.c + (-0.1,0.1)}
+define vannotate {$2 at $1.c + (0.1,0.1)}