-
-
Notifications
You must be signed in to change notification settings - Fork 367
PerlclassObj
Thomas Bonfort edited this page Apr 6, 2012
·
2 revisions
#!perl
$class = new mapscript::classObj($layer);
$class->{label}->{autoangle} = 1;
$class->{label}->{sizescaled} = 8;
$class->setExpression('/^{A-Z}/');
$class->setExpression('([LENGTH] gt 50 and [AREA] < 150000)');
$class->setExpression('N');
my $s_class = $s_layer->getClass(0);
$class->{color} = $map->addColor(0,255,0);
my $legend_img = $class->createLegendIcon($rmap,$layer,200,100);
$class->drawLegendIcon($map,$layer,150,50,$legend_img,25,25);
----
back to PerlMapScrip