<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hello all,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>I have a problem with a CGI script - in zooming
in/out. I am drawing layers from a map file, 2 of the layers being created
on the fly from a flat file of point labels and co-ordinates. One of the
'dynamic' layers is a line shape and can be added as a feature to the layer, the
other is a set of points and labels, each of which has to be drawn separately
(there may be another way of doing it but I haven't discovered it
yet).</FONT></DIV>
<DIV><FONT face=Arial size=2>My set_extent subroutine seems to work in that the
map extent is changed, but when the map is drawn it presents as a little map in
the top left hand corner if I am zooming in - it's like the exent is working but
the scale of the map is not changing. What am I missing?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Thanks in anticipation of any help
offered.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Regards</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Marie</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Extract from the code:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>&set_extent($zoomdir, $zoomsize, $imgx, $imgy,
@image_extent);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial
size=2>$shape_layer->addFeature($shape);<BR>$shape_layer->close();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2># Now draw all the map layers. Point layer
with labels will be drawn separately after this<BR>for my $i (0
..($map->{numlayers}-1))<BR>{ <BR> my $layer =
$map->getLayer($i);<BR> $success = $layer->draw($map,
$image);<BR> print DBG "Drew layer $layer->{name} --------- $i
------ $success\n"; <BR>}<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>$num_stops = @stops_list -1;<BR>for my $i (0 ..
$num_stops)<BR>{<BR> $display_count = $i + 1;<BR> my
($x, $y, $desc) = split(/\t/, $stops_list[$i]);<BR> if ($i==0) {
$desc="[ $display_count ] START," . $desc; }<BR> if ($i==
($num_stops)) { $desc = "[ $display_count ] FINISH," . $desc; }<BR>
if ($i > 0 && $i < ($num_stops)) { $desc = "[ $display_count ]";
}<BR> print DBG "$stops_list[$i] ... $i ... $desc
\n";<BR> $draw_pt1=new pointObj();<BR> $draw_pt1->{x}
= $x;<BR> $draw_pt1->{y} = $y;<BR>
$draw_pt1->draw($map, $pt_label, $image, undef, "$desc"); <BR>
$draw_pt2=new pointObj();<BR> $draw_pt2->{x} =
$x;<BR> $draw_pt2->{y} = $y;<BR>
$draw_pt2->draw($map, $pt_layer, $image, undef, undef); <BR>
$i++;<BR>}</FONT></DIV></BODY></HTML>