PerlShapeObj4

== drawing lines with mapscript ==

...class definition in the map file needed a style section (even if it is empty)...

#!perl                                                                             
$layer = $map->getLayerByName('line_layer');                                       
$layer->{status} = 1;                                                              
my $linePoint1 = new mapscript::pointObj();                                        
$linePoint1->{x} = 272048; $linePoint1->{y} = 199772;                              
my $linePoint2 = new mapscript::pointObj();                                        
$linePoint2->{x} = 272450; $linePoint2->{y} = 200074;                              
my $line = new mapscript::lineObj();                                               
$line->add($linePoint1);                                                           
$line->add($linePoint2);                                                           
my $shape = new mapscript::shapeObj($mapscript::MS_SHAPE_LINE);                    
$shape->add($line);                                                                
$shape->{text} = "LINE TEXT";                                                      
$shape->draw($map, $layer, $img);                                                  

---

LAYER                                                                              
NAME "line_layer"                                                                  
STATUS ON                                                                          
PROJECTION                                                                         
"init=epsg:26958"                                                                  
END                                                                                
TYPE LINE                                                                          
CLASS                                                                              
STYLE                                                                              
END                                                                                
LABEL                                                                              
ANGLE AUTO                                                                         
FONT arial                                                                         
TYPE TRUETYPE                                                                      
POSITION UC                                                                        
SIZE 7                                                                             
COLOR 0 0 0                                                                        
END                                                                                
COLOR 0 0 0                                                                        
SIZE 10                                                                            
END                                                                                
END                                                                                

---

back to PerlMapScript