= styleObj =

Illustrating use of new 4.x styleObj, two approaches:

== One - Using an existing style from map file. Default values will come from values set in map file. ==
{{{
#!perl
my $layerObj = $map->getLayerByName('data_points');
my $class = $layerObj->getClass(0);
# we only have one style in this layer.
my $style = $class->getStyle(0);
# change some sytle values
$style->{size} = 20;
$style->{color}->setRGB(255,0,0);
$layerObj->draw($map,$img);
}}}

== Two - Creating a new style. All values must be set. ==
{{{
#!perl
my $circle_idx = $map->getSymbolByName('circle');
my $layerObj = $map->getLayerByName('data_points');
my $class = $layerObj->getClass(0);
my $style = new mapscript::styleObj();
$style->{symbol} = $circle_idx;
$style->{size} = 20;
$style->{color}->setRGB(255,0,0);
$style->{outlinecolor}->setRGB(0,0,0);
# insert the style in class
$class->insertStyle($style, 0);
$layerObj->draw($map,$img);
# remove the style, this is important when in a loop. There is a maximum of 5 styles/class.
$class->removeStyle(0);
}}}
== Map file fragment ==
{{{
LAYER
  NAME "data_points"
  TYPE POINT
  STATUS ON
  TEMPLATE "bogus.html"
  TOLERANCE 5
  CLASS
    STYLE
      SYMBOL "circle"
      SIZE 0
      COLOR 0 0 0
      OUTLINECOLOR 0 0 0
    END
  END
  PROJECTION
    "proj=latlong"
  END
END
}}}

== Access to styles has been changed in version 4.2. ==

$class->getStyle(0)->{symbol} = 0;

(there is a hidden pen parameter that needs to be set)

$style->setRGB(255, 0, 0); 

----
back to PerlMapScript