*! 1.1.1 NJC 25 May 2002 * 1.1.0 NJC 25 Oct 2001 * 1.0.0 NJC 22 Oct 2001 program define sq version 7.0 gettoken cmd 0 : 0, parse(" ,") syntax [varlist(ts default=none)] [fweight aweight iweight] [if] [in] /* */ [ , Aspectratio(real 1) * ] local a = `aspectratio' /* height / width */ if `a' > (23063 / 32000) { local h = 23063 local w = int(`h' / `a') } else { local w = 32000 local h = int(`w' * `a') } `cmd' `varlist' `if' `in' [`weight' `exp'], /* */ `options' bbox(0,0,`h',`w',923,444,0) end