2
function preprocess () {
3
if (getRK_val ("is_embed")) { ?>
4
dev.set (<? getRK ("devnum"); ?>)
8
function calculate () {
11
function printout () {
12
$nx = getRK_val ("nx");
13
if ($nx == "other") $gridoptions = 'nx=' . getRK_val ("nx_cells");
14
else $gridoptions = 'nx=' . $nx;
16
$ny = getRK_val ("ny");
17
if ($ny == "other") $gridoptions .= ', ny=' . getRK_val ("ny_cells");
18
else $gridoptions .= ', ny=' . $ny;
20
$gridoptions .= getRK_val ("col.code.printout");
22
if (getRK_val("custlwd")) $gridoptions .= ', lwd=' . round(getRK_val ("lwd"),1);
24
$lty = getRK_val("linetype");
25
if ($lty != "") $gridoptions .= ", lty=\"{$lty}\"";
27
if (!getRK_val("equilogs")) $gridoptions .= ', equilogs=FALSE';
29
grid(<? echo ($gridoptions); ?>);
b'\\ No newline at end of file'