new shape shTinyArrow

geometry.cpp

@@ -302,6 +302,8 @@ hpcshape
     shAnimatedEagle, shAnimatedTinyEagle, shAnimatedGadfly, shAnimatedHawk, shAnimatedButterfly, 
     shAnimatedGargoyle, shAnimatedGargoyle2, shAnimatedBat, shAnimatedBat2;
   
+  hpcshape shTinyArrow;
+
   hpcshape shReserved[16];
   
   int orb_inner_ring; //< for shDisk* shapes, the number of vertices in the inner ring

polygons.cpp

@@ -499,6 +499,10 @@ void geometry_information::procedural_shapes() {
     hpcpush(ddi(t*S28, zhexf*.5) * C0);
     }
 
+  bshape(shTinyArrow, PPR::ITEM);
+  for(ld d: {0, 90, -90, 0})
+    hpcpush(xspinpush0(d*degree, zhexf*.2));
+
   bshape(shDisk, PPR::ITEM);
   for(int i=0; i<=S84; i+=SD3)
     hpcpush(ddi(i, orbsize * .2) * C0);