$states->draw($img);
$iards->draw($img);
$mwradar->draw($img);
$now = time();
foreach ($data as $key => $value) {
if ($Scities[$key]["online"] == false) {
continue;
}
$bzz = $value->db;
if ($now - $bzz["ts"] < 3600) {
$pt = ms_newPointObj();
$pt->setXY($Scities[$key]["lon"], $Scities[$key]["lat"], 0);
$rotate = 0 - intval($bzz["drct"]);
$bclass->getLabel(0)->set("angle", doubleval($rotate));
$pt->draw($map, $barbs, $img, 0, skntChar($bzz["sknt"]));
$pt = ms_newPointObj();
$pt->setXY($Scities[$key]["lon"], $Scities[$key]["lat"], 0);
$tmpf = intval($bzz['tmpf']);
$pt->draw($map, $temps, $img, 1, round($bzz['tmpf'], $rnd['tmpf']));
$pt = ms_newPointObj();
$pt->setXY($Scities[$key]["lon"], $Scities[$key]["lat"], 0);
$dwpf = intval($bzz['dwpf']);
$pt->draw($map, $temps, $img, 2, round($bzz['dwpf'], $rnd['dwpf']));
}
}
$ts = strftime("%I %p");
$temps->draw($img);
$map->drawLabelCache($img);
iemmap_title($map, $img, $titles[$network] . " Station Plot", "Valid: " . date("h:i A d M Y"));
header("Content-type: image/png");
$img->saveImage('');
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 1, round($value, $rnd[$var]));
// Climate
if ($var == "gdd32" || $var == "gdd50" || $var == "prec") {
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 2, "(" . round($value - $climate[$key][$var], $rnd[$var]) . ")");
}
if (isset($_GET["var2"])) {
// Value LL
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
if ($var2 == 'c530') {
$pt->draw($map, $snet, $img, 2, $row[$var2] . " " . $row[$var2 . '_f']);
} else {
$pt->draw($map, $snet, $img, 2, round($row[$var2], $rnd[$var2]) . " " . $row[$var2 . '_f']);
}
}
// City Name
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
if ($key == "A131909" || $key == "A130209") {
$pt->draw($map, $snet, $img, 0, $ISUAGcities[$key]['name']);
} else {
$pt->draw($map, $snet, $img, 0, $ISUAGcities[$key]['name']);
}
}
iemmap_title($map, $img, $year . " " . $varDef[$var], "(" . $sstr_txt . " - " . $estr_txt . ")");
$map->drawLabelCache($img);
header("Content-type: image/png");
$img->saveImage('');
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
$pt->draw($map, $ponly, $img, 0);
// Value UL
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 0, $val);
// City Name
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
if ($key == "A131909" || $key == "A130209") {
$pt->draw($map, $snet, $img, 1, $ISUAGcities[$key]['name']);
} else {
$pt->draw($map, $snet, $img, 1, $ISUAGcities[$key]['name']);
}
}
iemmap_title($map, $img, $title[$dvar] . " [ " . date("d M", $sts) . " thru " . date("d M Y", $ets) . " ]");
$map->drawLabelCache($img);
if (strlen($direct) > 0) {
header("Content-type: image/png");
$img->saveImage();
} else {
$url = $img->saveWebImage();
?>
<img src="<?php
echo $url;
?>
" border=1>
<?php
}
$pt->setXY($nt->table[$key]['lon'], $nt->table[$key]['lat'], 0);
$pt->draw($map, $ponly, $img, 0, ' ');
if (strpos($pvar, ',') !== false) {
// Value UL
list($p1, $p2) = explode(",", $pvar);
$pt = ms_newPointObj();
$pt->setXY($nt->table[$key]['lon'], $nt->table[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 1, round($row[$p1], $rnd[$pvar]) . " " . $row[$p1 . '_f']);
// Value LL
$pt = ms_newPointObj();
$pt->setXY($nt->table[$key]['lon'], $nt->table[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 2, round($row[$p2], $rnd[$pvar]) . " " . $row[$p2 . '_f']);
} else {
// Value UL
$pt = ms_newPointObj();
$pt->setXY($nt->table[$key]['lon'], $nt->table[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 1, round($row[$pvar], $rnd[$pvar]) . " " . $row[$pvar . '_f']);
}
// City Name
$pt = ms_newPointObj();
$pt->setXY($nt->table[$key]['lon'], $nt->table[$key]['lat'], 0);
if ($key == "A131909" || $key == "A130209") {
$pt->draw($map, $snet, $img, 0, $nt->table[$key]['name']);
} else {
$pt->draw($map, $snet, $img, 0, $nt->table[$key]['name']);
}
}
iemmap_title($map, $img, $varDef[$pvar] . " on " . date("d M Y", $ts), $i == 0 ? 'No Data Found!' : null);
$map->drawLabelCache($img);
header("Content-type: image/png");
$img->saveImage('');
$pt = ms_newPointObj();
$pt->setXY($stbl[$key]["lon"], $stbl[$key]["lat"], 0);
$pt->draw($map, $dot, $img, 0, $key . " (" . $data[$key]['p15m'] . ")");
}
}
$ts = strftime("%d %b %I:%M %p");
$map->drawLabelCache($img);
$radTimes = array();
$rad2 = $rad;
if ($rad == "DMXA" || $rad == "DMXB" || $rad == "DMXC") {
$rad2 = "DMX";
}
$radTS = filemtime("/home/ldm/data/gis/images/4326/ridge/{$rad2}/N0Q_0.png");
$r = date("m/d h:i a", $radTS);
$map->drawLabelCache($img);
iemmap_title($map, $img, "SNET 15min rain ending: " . $ts, "NEXRAD valid: {$r}");
$url = $img->saveWebImage();
$u = sprintf("<a href=\"raining.php?rad=%s&tv=%s&sortcol=", $rad, $tv);
function aSortBySecondIndex($multiArray, $secondIndex)
{
while (list($firstIndex, ) = each($multiArray)) {
$indexMap[$firstIndex] = @$multiArray[$firstIndex][$secondIndex];
}
arsort($indexMap);
while (list($firstIndex, ) = each($indexMap)) {
if (is_numeric($firstIndex)) {
$sortedArray[] = $multiArray[$firstIndex];
} else {
$sortedArray[$firstIndex] = $multiArray[$firstIndex];
}
}
$rs = pg_query($coopdb, $sql);
for ($i = 0; $row = @pg_fetch_array($rs, $i); $i++) {
$station = $row["station"];
if (!array_key_exists($station, $cities)) {
continue;
}
$pt = ms_newPointObj();
$pt->setXY($cities[$station]['lon'], $cities[$station]['lat'], 0);
$pt->draw($map, $datal, $img, 0, $row["d"]);
}
$namer->draw($img);
$counties->draw($img);
$stlayer->draw($img);
//$ttt->draw($img);
$datal->draw($img);
iemmap_title($map, $img, $plotDate . " " . $var[$plot]);
$map->drawLabelCache($img);
$url = $img->saveWebImage();
$ar = array("all" => "Iowa", "ne" => "NE Iowa", "se" => "SE Iowa", "sw" => "SW Iowa", "nw" => "NW Iowa");
$aselect = make_select("area", $area, $ar);
$ar = array("high" => "Average High Temperature", "low" => "Average Low Temperature", "precip" => "Average Precip", "max_high" => "Record High Temperature", "min_low" => "Record Low Temperature", "max_precip" => "Record Precip", "min_high" => "Record Minimum High Temp", "max_low" => "Record Maximum Low Temp");
$pselect = make_select("plot", $plot, $ar);
$mselect = monthSelect("month", $month);
$dselect = daySelect("day", $day);
$t->content = <<<EOF
<h3>COOP Climate Data</h3>
Using the COOP data archive, daily averages and extremes
were calculated. These numbers are <b>not</b> official, but we believe them
to be accurate. Please make your form selections on the left hand side and
then click the 'Generate Plot' button.
$pt->draw($map, $ponly, $img, 0, ' ');
// Value UL
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
$pt->draw($map, $snet, $img, 1, $val);
//$pt = ms_newPointObj();
//$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
//$pt->draw($map, $snet, $img, 2, "(".round($val - $avg,0).")");
// City Name
$pt = ms_newPointObj();
$pt->setXY($ISUAGcities[$key]['lon'], $ISUAGcities[$key]['lat'], 0);
if ($key == "A131909" || $key == "A130209") {
$pt->draw($map, $snet, $img, 0, $ISUAGcities[$key]['name']);
} else {
$pt->draw($map, $snet, $img, 0, $ISUAGcities[$key]['name']);
}
}
iemmap_title($map, $img, "Standard Chill Units [ {$sdate} thru " . date("Y-m-d", $ts) . " ]", $i == 0 ? 'No Data Found!' : null);
$map->drawLabelCache($img);
if (strlen($direct) > 0) {
header("Content-type: image/png");
$img->saveImage();
} else {
$url = $img->saveWebImage();
?>
<img src="<?php
echo $url;
?>
" border=1>
<?php
}
