& shelf_flat_width,
_RL shelf_flat_width
CALL WRITE_0D_RL( shelf_flat_width, INDEX_NONE,
slope_pos = shelf_edge_pos - shelf_flat_width