Quiq::Gd::Component::ScatterGraph - Farbpunkte in einer Fläche
Quiq::Gd::Component::Graph
Die Klasse erweitert die Basisklasse Quiq::Gd::Component::Graph um eine Z-Komponente. Die Werte dieser Komponente werden in Farbwerte übersetzt und in den Positionen der X,Y-Komponenten abgetragen.
Weitere Attribute sind in der Basisklassen-Dokumentation beschrieben.
Array der Z-Werte (Weltkoordinate).
Anfang des Z-Wertebereichs (Weltkoodinate).
Ende des Z-Wertebereichs (Weltkoodinate).
Bilde den Z-Wertebereich logarithmisch auf die Farbwerte ab.
Farbe für Z-Werte, die zMin unterschreiten.
Farbe für Z-Werte, die zMax überschreiten.
Code:
use Quiq::Gd::Image; use Quiq::Gd::Component::ScatterGraph; # Konfiguration my $width = 200; my $height = 200; my $numColors = 128; my $pointSize = 10; # Zufallsdaten erzeugen my (@x,@y,@z); for (1 .. 300) { push @x,int rand 100; push @y,int rand 100; push @z,int rand 128; } # Grafik-Objekt instantiieren my $g = Quiq::Gd::Component::ScatterGraph->new( width=>$width, height=>$height, pointSize=>$pointSize, pointStyle=>'circle', adaptPlotRegion=>1, x=>\@x, y=>\@y, z=>\@z, lineThickness=>0, ); # Bild-Objekt instantiieren my $img = Quiq::Gd::Image->new($width,$height); $img->background('ffffff'); $img->border('a0a0a0'); # Grafik auf Bild zeichnen $g->render($img,0,0, colors=>[$img->rainbowColors($numColors)], lowColor=>$img->color('003366'), highColor=>$img->color('ff00ff'), );
Grafik:
[Nur im Browser sichtbar]
$g = $class->new(@keyVal);
Instantiiere ein Grafik-Objekt mit den Eigenschaften @keyVal (s. Abschnitt ATTRIBUTES) und liefere eine Referenz auf das Objekt zurück.
$g->render($img); $g->render($img,$x,$y,@keyVal); $class->render($img,$x,$y,@keyVal);
Zeichne die Grafik in Bild $img an Position ($x,$y). Die Methode liefert keinen Wert zurück.
$zMin = $g->zMin;
Liefere das Minimum des Z-Wertebereichs, das entweder beim Konstruktoraufruf gesetzt oder aus den Daten ermittelt wurde.
$zMax = $g->zMax;
Liefere das Maximum des Z-Wertebereichs, das entweder beim Konstruktoraufruf gesetzt oder aus den Daten ermittelt wurde.
1.204
Frank Seitz, http://fseitz.de/
Copyright (C) 2022 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.