(aprim) |
(aprim) |
(param)(yscale)(centerp) |
(param)(yscale)(centerp) |
(newalist `((xlimitratio . 1.0) .,alist)) |
(newalist `((xlimitratio . 1.0) .,alist)) |
(xunit)) |
(xunit)(xlimit)) |
(do ((l primlist (cdr l)) |
(do ((l primlist (cdr l)) |
(i 0 (1+ i)) |
(i 0 (1+ i)) |
(prim) |
(prim) |
(param)(xscale) |
(param)(xscale) |
; (newalist `((ylimitratio . 0.5)(xlimitratio . 0.1) .,alist)) |
; (newalist `((ylimitratio . 0.5)(xlimitratio . 0.1) .,alist)) |
(realregion)(region) |
(realregion)(region) |
(yunit)) |
(yunit)(ylimit)) |
(do ((l primlist (cdr l)) |
(do ((l primlist (cdr l)) |
(i 0 (1+ i))(prim) |
(i 0 (1+ i))(prim) |
; (yunitsum 0) |
; (yunitsum 0) |