Subversion Repositories Applications.papyrus

<?php 
/*=======================================================================
// File:        JPGRAPH_SCATTER.PHP
// Description: Scatter (and impuls) plot extension for JpGraph
// Created:     2001-02-11
// Author:      Johan Persson (johanp@aditus.nu)
// Ver:         $Id: jpgraph_scatter.php,v 1.1 2004/06/15 10:13:19 jpm Exp $
//
// License:     This code is released under QPL
// Copyright (C) 2001,2002 Johan Persson
//========================================================================
*/


//===================================================
// CLASS FieldArrow
// Description: Draw an arrow at (x,y) with angle a
//===================================================
class FieldArrow {
    var $iSize=10;  // Length in pixels for  arrow
    var $iArrowSize = 2;
    var $iColor='black';
    var $isizespec = array(
        array(2,1),array(3,2),array(4,3),array(6,4),array(7,4),array(8,5),array(10,6),array(12,7),array(16,8),array(20,10));
    function FieldArrow() {
    }

    function SetSize($aSize,$aArrowSize=2) {
        $this->iSize = $aSize;
        $this->iArrowSize = $aArrowSize;
    }

    function SetColor($aColor) {
        $this->iColor = $aColor;
    }

    function Stroke($aImg,$x,$y,$a) {
        $old_origin = $aImg->SetCenter($x,$y);
        $old_a = $aImg->SetAngle(-$a);

        $dx = round($this->iSize/2);
        $c = array($x-$dx,$y,$x+$dx,$y);
        $x += $dx;

        list($dx,$dy) = $this->isizespec[$this->iArrowSize];
        $ca = array($x,$y,$x-$dx,$y-$dy,$x-$dx,$y+$dy,$x,$y);

        $aImg->SetColor($this->iColor);
        $aImg->Polygon($c);
        $aImg->FilledPolygon($ca);

        $aImg->SetCenter($old_origin[0],$old_origin[1]);
        $aImg->SetAngle($old_a);
    }
}

//===================================================
// CLASS FieldPlot
// Description: Render a field plot
//===================================================
class FieldPlot extends Plot {
    var $iAngles;
    var $iCallback='';
    function FieldPlot($datay,$datax,$angles) {
        if( (count($datax) != count($datay)) )
            JpGraphError::Raise("Fieldplots must have equal number of X and Y points.");
        if( (count($datax) != count($angles)) )
            JpGraphError::Raise("Fieldplots must have an angle specified for each X and Y points.");
        
        $this->iAngles = $angles;

        $this->Plot($datay,$datax);
        $this->value->SetAlign('center','center');
        $this->value->SetMargin(15);

        $this->arrow = new FieldArrow();
    }

    function SetCallback($aFunc) {
        $this->iCallback = $aFunc;
    }

    function Stroke(&$img,&$xscale,&$yscale) {

        // Remeber base color and size
        $bc = $this->arrow->iColor;
        $bs = $this->arrow->iSize;
        $bas = $this->arrow->iArrowSize;

        for( $i=0; $i<$this->numpoints; ++$i ) {
            // Skip null values
            if( $this->coords[0][$i]==="" )
                continue;

            $f = $this->iCallback;
            if( $f != "" ) {
                list($cc,$cs,$cas) = $f($this->coords[1][$i],$this->coords[0][$i],
                                        $this->iAngles[$i]);
                // Fall back on global data if the callback isn't set
                if( $cc  == "" ) $cc = $bc;
                if( $cs  == "" ) $cs = $bs;
                if( $cas == "" ) $cas = $bas;
                //echo "f=$f, cc=$cc, cs=$cs, cas=$cas<br>";
                $this->arrow->SetColor($cc);        
                $this->arrow->SetSize($cs,$cas);
            }

            $xt = $xscale->Translate($this->coords[1][$i]);
            $yt = $yscale->Translate($this->coords[0][$i]);     

            $this->arrow->Stroke($img,$xt,$yt,$this->iAngles[$i]);
            $this->value->Stroke($img,$this->coords[0][$i],$xt,$yt);
        }
    }
        
    // Framework function
    function Legend(&$aGraph) {
        if( $this->legend != "" ) {
            $aGraph->legend->Add($this->legend,$this->mark->fill_color,$this->mark,0,
                                 $this->legendcsimtarget,$this->legendcsimalt);
        }
    }   
}

//===================================================
// CLASS ScatterPlot
// Description: Render X and Y plots
//===================================================
class ScatterPlot extends Plot {
    var $impuls = false;
    var $linkpoints = false, $linkpointweight=1, $linkpointcolor="black";
//---------------
// CONSTRUCTOR
    function ScatterPlot($datay,$datax=false) {
        if( (count($datax) != count($datay)) && is_array($datax))
            JpGraphError::Raise("Scatterplot must have equal number of X and Y points.");
        $this->Plot($datay,$datax);
        $this->mark = new PlotMark();
        $this->mark->SetType(MARK_SQUARE);
        $this->mark->SetColor($this->color);
        $this->value->SetAlign('center','center');
        $this->value->SetMargin(0);
    }

//---------------
// PUBLIC METHODS       
    function SetImpuls($f=true) {
        $this->impuls = $f;
    }   

    // Combine the scatter plot points with a line
    function SetLinkPoints($aFlag=true,$aColor="black",$aWeight=1) {
        $this->linkpoints=$aFlag;
        $this->linkpointcolor=$aColor;
        $this->linkpointweight=$aWeight;
    }

    function Stroke(&$img,&$xscale,&$yscale) {

        $ymin=$yscale->scale_abs[0];
        if( $yscale->scale[0] < 0 )
            $yzero=$yscale->Translate(0);
        else
            $yzero=$yscale->scale_abs[0];
            
        $this->csimareas = '';
        for( $i=0; $i<$this->numpoints; ++$i ) {

            // Skip null values
            if( $this->coords[0][$i]==="" )
                continue;

            if( isset($this->coords[1]) )
                $xt = $xscale->Translate($this->coords[1][$i]);
            else
                $xt = $xscale->Translate($i);
            $yt = $yscale->Translate($this->coords[0][$i]);     


            if( $this->linkpoints && isset($yt_old) ) {
                $img->SetColor($this->linkpointcolor);
                $img->SetLineWeight($this->linkpointweight);
                $img->Line($xt_old,$yt_old,$xt,$yt);
            }

            if( $this->impuls ) {
                $img->SetColor($this->color);
                $img->SetLineWeight($this->weight);
                $img->Line($xt,$yzero,$xt,$yt);
            }
        
            if( !empty($this->csimtargets[$i]) ) {
                $this->mark->SetCSIMTarget($this->csimtargets[$i]);
                $this->mark->SetCSIMAlt($this->csimalts[$i]);
            }
            
            if( isset($this->coords[1]) ) {
                $this->mark->SetCSIMAltVal($this->coords[0][$i],$this->coords[1][$i]);
            }
            else {
                $this->mark->SetCSIMAltVal($this->coords[0][$i],$i);
            }

            $this->mark->Stroke($img,$xt,$yt);
        
            $this->csimareas .= $this->mark->GetCSIMAreas();
            $this->value->Stroke($img,$this->coords[0][$i],$xt,$yt);

            $xt_old = $xt;
            $yt_old = $yt;
        }
    }
        
    // Framework function
    function Legend(&$aGraph) {
        if( $this->legend != "" ) {
            $aGraph->legend->Add($this->legend,$this->mark->fill_color,$this->mark,0,
                                 $this->legendcsimtarget,$this->legendcsimalt);
        }
    }   
} // Class
/* EOF */
?>