40: x new=$rob[clamp(x+(64-((x&15)-8)*((x&15)-8))/4), y]
time: 27.67u  + 3.37s = 31.03
41: x { laplace(); }
time: 63.80u  + 7.95s = 71.75
42: color
43: x new=[((64-((x&15)-8)*((x&15)-8))/4>4)?$rob:old,old,old]

x new=[($1.red>128)?$1.red:0, $1.grn, ($1.blu>100&&$1.blu<200)?Z-$1.blu:$1.blu]

22: x new.red=($2>0 || $4>0)?$3:y/2
23: x new.blu=($2>0 || $4>0)?$3:(Y-y)/2
26: x new.grn=($2>0 || $4>0)?$3:(y<Y/2)?y:(y==256)?Z:Y-y
29: x new=old[clamp(x+(64-((x&15)-8)*((x&15)-8))/4), y]

10: x new=$2[clamp((x-40)*10/9), clamp((y-40)*10/9)]
time: 115.03u  + 16.53s = 131.57
11: x new=old[x+(64-($rob&15)*($rob&15))/8, y+(64-(($rob>>4)&15)*(($rob>>4)&15))/8]
reading rob...
time: 82.82u  + 15.90s = 98.72
12: w "/munge/pjw.pap"

x new.red=($pjw[x+(64-($rob&15)*($rob&15))/8, y+(64-(($rob>>4)&15)*(($rob>>4)&15))/8]+old.red)/2
x new=[(old.red<230)?y/2:old.red, (old.red<230)?(Y-y)/2:old.grn, (old.red<230)?(y<Y/2)?y:(y==256)?Z:Y-y:old.blu]
