.PS
include(libcct.m4)
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;
mm=1/25.4;
pi=atan2(0,-1);

Orig: Here;

# scale vars
pound=0.450; #kilograms
poundsep = 221.5*mm/22;
oz = pound/16*1000;
ozsep = 151*mm/16;
offset = 70*mm;

for i = 1 to 22 do {
  x = i * poundsep;
  p = i * pound;
  sprintf ("%.2f", p) at Orig+(0,x) rjust_
}
for i = 1 to 16 do {
  x = i * ozsep;
  z = i * oz;
  sprintf("%.0f", z) at Orig+(0,x)+(0,offset) ljust_
}

line from Orig to (0, 22*poundsep)
.PE