[Qsos-commits] qsos/apps/phpviewer SVGRadar.php

[Raphaël Semeteys]

CVSROOT:        /sources/qsos
Module name:    qsos
Changes by:     Raphaël Semeteys <rsemeteys>   06/11/14 14:29:53

Removed files:
        apps/phpviewer : SVGRadar.php 

Log message:
        merged with radar.php

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/SVGRadar.php?cvsroot=qsos&r1=1.2&r2=0

Patches:
Index: SVGRadar.php
===================================================================
RCS file: SVGRadar.php
diff -N SVGRadar.php
--- SVGRadar.php        14 Nov 2006 00:21:03 -0000      1.2
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,196 +0,0 @@
-<?php
-header("Content-type: image/svg+xml");
-include('QSOSDocument.php');
-
-$file = $_GET['f'];
-$name = $_GET['c'];
-
-if (!(isset($file))) {
-       die("No QSOS file provided !");
-}
-
-$SCALE = 100; //1 QSOS unit in pixels
-$FONT_SIZE = 14; //$SCALE/10;
-$myDoc = new QSOSDocument($file);
-$doc = new DOMDocument('1.0');
-
-//draw $n equidistant axis
-function drawAxis($n) {
-       global $SCALE;
-       drawCircle(0.5*$SCALE);
-       drawMark(0.5*$SCALE-25, 15, "0.5");
-       drawCircle($SCALE);
-       drawMark($SCALE-15, 15, "1");
-       drawCircle(1.5*$SCALE);
-       drawMark(1.5*$SCALE-25, 15, "1.5");
-       drawCircle(2*$SCALE);
-       drawMark(2*$SCALE-15, 15, "2");
-       
-       for ($i=1; $i < $n+1; $i++) {
-               drawSingleAxis(2*$i*pi()/$n);
-       }
-}
-
-//draw a single axis at $angle (in radians) from angle 0       
-function drawSingleAxis($angle) {
-       global $SCALE;
-       $x2 = 2*$SCALE*cos($angle);
-       $y2 = 2*$SCALE*sin($angle);
-       drawLine(0, 0, $x2, $y2);
-}
-
-//draw a circle of $r radius
-function drawCircle($r) {
-       global $doc;
-       global $g;
-       $circle = $doc->createElement("circle");
-       $circle->setAttribute("cx", 0);
-       $circle->setAttribute("cy", 0);
-       $circle->setAttribute("r", $r);
-       $circle->setAttribute("fill", "none");
-       $circle->setAttribute("stroke", "blue");
-       $circle->setAttribute("stroke-width", "1");
-       $g->appendChild($circle);
-}
-
-//draw a line between two points
-function drawLine($x1, $y1, $x2, $y2) {
-       global $doc;
-       global $g;
-       $line = $doc->createElement("line");
-       $line->setAttribute("x1", $x1);
-       $line->setAttribute("y1", $y1);
-       $line->setAttribute("x2", $x2);
-       $line->setAttribute("y2", $y2);
-       $line->setAttribute("stroke", "green");
-       $line->setAttribute("stroke-width", "1");
-       $g->appendChild($line);
-}
-
-//draw scale mark on the radar
-//$x, $y: coordinates
-//$mark : text to be displayed
-function drawMark($x, $y, $mark) {
-       global $doc;
-       global $g;
-       global $FONT_SIZE;
-       $text = $doc->createElement("text");
-       $text->setAttribute("x", $x);
-       $text->setAttribute("y", $y);
-       $text->setAttribute("font-family", "Verdana");
-       $text->setAttribute("font-size", $FONT_SIZE);
-
-       $text->setAttribute("fill", "blue");
-       $text->appendChild($doc->createTextNode($mark));
-       $g->appendChild($text);
-}
-
-//draw an axis legend
-//$x, $y: coordinates
-//$element : element which title is to be displayed
-function drawText($x, $y, $element) {
-       global $file;
-       global $doc;
-       global $g;
-       global $FONT_SIZE;
-       $text = $doc->createElement("text");
-       $text->setAttribute("x", $x);
-       $text->setAttribute("y", $y);
-       $text->setAttribute("font-family", "Verdana");
-       $text->setAttribute("font-size", $FONT_SIZE);
-       $text->appendChild($doc->createTextNode($element->title));
-       
-       if ($element->children) {
-               $text->setAttribute("fill", "green");
-               $a = $doc->createElement("a");
-               $a->setAttribute("xlink:href", 
"SVGRadar.php?f=$file&c=".$element->name);
-               $a->appendChild($text);
-               $g->appendChild($a);
-       } else {
-               $text->setAttribute("fill", "black");
-               $g->appendChild($text);
-       }
-       
-       //text position is ajusted to be outside the circle shape
-       //8 here is empiric data :)
-       $textLength = strlen($element->title)*8;
-       $myX = (abs($x)==$x)?$x:$x-$textLength;
-       $myY = (abs($y)==$y)?$y+$FONT_SIZE:$y;
-       $text->setAttribute("x", $myX);
-       $text->setAttribute("y", $myY);
-}
-
-function drawTitle($myDoc, $name) {
-       global $doc;
-       global $file;
-       global $FONT_SIZE;
-       $title = $myDoc->getkeytitle($name);
-       $node = $name;
-       
-       while ($myDoc->getParent($node)) {
-               $title = $myDoc->getParent($node)->getAttribute("title") . " > 
". $title;
-               $node = $myDoc->getParent($node)->getAttribute("name");
-       }
-       $title = $myDoc->getkey("appname")." ".$myDoc->getkey("release"). 
$title;
-       $text = $doc->createElement("text");
-       $text->setAttribute("font-family", "Verdana");
-       $text->setAttribute("font-weight", "bold");
-       $text->setAttribute("font-size", $FONT_SIZE);
-       $text->setAttribute("x", -475);
-       $text->setAttribute("y", -275);
-       $text->appendChild($doc->createTextNode($title));
-
-       return $text;
-}
-
-//draw path between points on each axis
-//$myDoc : QSOSDocument concerned
-//$name : name of the criteria regrouping subcriteria to be displayed
-//if $name is not set, gobal sectiosn are displayed
-function drawPath($myDoc, $name) {
-       global $doc;
-       global $SCALE;
-       $path = $doc->createElement("path");
-       $myD = "";
-       
-       if (isset($name)) {
-               $tree = $myDoc->getSubTree($name);
-       } else {
-               $tree = $myDoc->getTree();
-       }
-       
-       drawAxis(count($tree));
-       for ($i=0; $i < count($tree); $i++) {
-               $myD .= ($i==0)?"M":"L";
-               $angle = ($i+1)*2*pi()/(count($tree));
-               $myD .= " " . ($tree[$i]->score)*$SCALE*cos($angle) . " " . 
($tree[$i]->score)*$SCALE*sin($angle) . " ";
-               //2.1 = 2 + 0.1 of padding before actual text display
-               drawText(2.1*$SCALE*cos($angle), 2.1*$SCALE*sin($angle), 
$tree[$i]);
-       }
-       $myD .= "z";
-       $path->setAttribute("d", $myD);
-       $path->setAttribute("fill", "red");
-       $path->setAttribute("opacity", "0.4");
-       $path->setAttribute("stroke", "red");
-       $path->setAttribute("stroke-width", "2");
-
-       return $path;
-}
-
-//svg element
-$svg = $doc->createElement('svg');
-$svg->setAttribute('xmlns', 'http://www.w3.org/2000/svg');
-$svg->setAttribute('xmlns:xlink', 'http://www.w3.org/1999/xlink');
-$svg->setAttribute('width', '100%');
-$svg->setAttribute('height', '100%');
-
-//Graph element
-$g = $doc->createElement('g');
-$g->setAttribute('transform', 'translate(500,300)');
-$g->appendChild(drawTitle($myDoc, $name));
-$g->appendChild(drawPath($myDoc, $name));
-$svg->appendChild($g);
-$doc->appendChild($svg);
-
-echo $doc->saveXML();
-?>
\ No newline at end of file