Index: trunk/src/obj_pstk.h
===================================================================
--- trunk/src/obj_pstk.h	(revision 14812)
+++ trunk/src/obj_pstk.h	(revision 14813)
@@ -167,6 +167,7 @@
 /* grow (or shrink) a prototype to or by val - change the proto in place */
 void pcb_pstk_proto_grow(pcb_pstk_proto_t *proto, pcb_bool is_absolute, pcb_coord_t val);
 void pcb_pstk_shape_grow(pcb_pstk_shape_t *shp, pcb_bool is_absolute, pcb_coord_t val);
+void pcb_pstk_shape_clr_grow(pcb_pstk_shape_t *shp, pcb_bool is_absolute, pcb_coord_t val);
 
 /* Derive (copy and bloat) the shape at dst_idx from src_idx; set the mask and comb
    for the new shape. If dst_idx is -1, allocate the new shape */
Index: trunk/src/obj_pstk_proto.c
===================================================================
--- trunk/src/obj_pstk_proto.c	(revision 14812)
+++ trunk/src/obj_pstk_proto.c	(revision 14813)
@@ -770,6 +770,8 @@
 	pcb_coord_t cx, cy;
 	int n;
 
+#warning padstack TODO: undo
+
 	switch(shp->shape) {
 		case PCB_PSSH_LINE:
 			if (is_absolute)
@@ -811,6 +813,15 @@
 	}
 }
 
+void pcb_pstk_shape_clr_grow(pcb_pstk_shape_t *shp, pcb_bool is_absolute, pcb_coord_t val)
+{
+#warning padstack TODO: undo
+	if (is_absolute)
+		shp->clearance = val;
+	else
+		shp->clearance += val;
+}
+
 void pcb_pstk_proto_grow(pcb_pstk_proto_t *proto, pcb_bool is_absolute, pcb_coord_t val)
 {
 	int n, i;