+ upp_app_Profile(bevel);
+}
+
+module NearAnchorProfile(){
+ upp_app_Profile(a_bevel);
+}
+
+module AnchorProfile(){
+ xppE = gppL + t_bevel * [0,1];
+ xppF = gppL + t_bevel * [1,0];
+
+ upp_app_Profile(a_bevel);
+
+ difference(){
+ hull(){
+ polygon([ xppE,
+ xppF,
+ xppF + [0,1],
+ xppE + [1,0] ]);
+ translate(appM) circle(r= anchor_b);
+ }
+ translate(appM) circle(r= anchor_rad);
+ }
+}
+
+module Demo(){
+ color("red") AnchorProfile();
+ translate([0,0,2]) color("black") NearAnchorProfile();
+ color("blue") UsualProfile();
+}
+
+Demo();