8ec98c9f
 Guillaume
MAJ
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
<?php // content="text/plain; charset=utf-8"
// A simple Polar graph,
require_once ('jpgraph/jpgraph.php');
require_once ('jpgraph/jpgraph_polar.php');
$data = array(0,1,30,2,30,25,40,60,
50,110,60,160,70,210,75,230,80,260,85,370,
90,480,
95,370,100,260,105,230,
110,210,120,160,130,110,140,60,
150,25,150,2,180,1);
$n = count($data);
for($i=0; $i < $n; $i+=2 ) {
$data[$n+$i] = 360-$data[$i];
$data[$n+$i+1] = $data[$i+1];
}
$graph = new PolarGraph(300,400);
$graph->SetScale('log',100);
$graph->SetType(POLAR_360);
$graph->SetPlotSize(220,300);
// Hide frame around graph (by setting width=0)
$graph->SetFrame(true,'white',1);
$graph->SetBackgroundGradient('blue:1.3','brown:1.4',GRAD_MIDHOR,BGRAD_PLOT);
// Set color for gradient lines
$graph->axis->SetGridColor('gray','gray','gray');
$graph->title->Set('Polar plot #7-2');
$graph->title->SetFont(FF_ARIAL,FS_BOLD,16);
$graph->title->SetColor('navy');
// Adjust legen box position and color
$graph->legend->SetColor('navy','darkgray');
$graph->legend->SetFillColor('white');
$graph->legend->SetShadow('darkgray@0.5',5);
$p = new PolarPlot($data);
$p->SetFillColor('yellow@0.6');
$p->mark->SetType(MARK_SQUARE);
$p->SetLegend("Mirophone #1\n(No amps)");
$graph->Add($p);
$graph->Stroke();
?>
|