question about first perl script

Question

Hi all: 
 I'm trying to write my first perl script to calculate space for graphics and scale accordingly. For graphics inside of tables (cals tables), I'm trying to pass along the column width to my perl script. I'm using <whichcol(%col)> to get the info, then set an x-register and pass that value to the perl script. However, the number I get is way different than what I see when I look at the status window. Even when I account for gutters, it's still way off. I'm using XPP 9.1 on Windows. Any ideas? Thank you!

Tracey Koslowksi · Accepted Answer

Thanks, everyone, for the input. It turns out I didn't read the XPP doc very well. The <?whichcol?> macro that you use before getting the %tbcwith system variable is looking at the PRECEDING table, not the current one. It appears there is no easy way to determine the width of the current table cell. I will simply use the scale argument on the igt macro to achieve what I need.

XPP > XPP

question about first perl script