From ad5a4c5d107d12d3c160db6bdd852bbbbcde2178 Mon Sep 17 00:00:00 2001 From: Jean-Philippe Lang Date: Sun, 25 Jun 2017 13:51:57 +0000 Subject: [PATCH] Removes SVG from libs (#26253). git-svn-id: http://svn.redmine.org/redmine/trunk@16700 e93f8b46-1217-0410-a6f0-8f06a7374b81 --- lib/SVG/GPL.txt | 340 ------------ lib/SVG/Graph/Bar.rb | 148 ----- lib/SVG/Graph/BarBase.rb | 139 ----- lib/SVG/Graph/BarHorizontal.rb | 149 ----- lib/SVG/Graph/Graph.rb | 977 --------------------------------- lib/SVG/Graph/Line.rb | 444 --------------- lib/SVG/Graph/Pie.rb | 395 ------------- lib/SVG/Graph/Plot.rb | 500 ----------------- lib/SVG/Graph/Schedule.rb | 373 ------------- lib/SVG/Graph/TimeSeries.rb | 238 -------- lib/SVG/LICENSE.txt | 57 -- 11 files changed, 3760 deletions(-) delete mode 100644 lib/SVG/GPL.txt delete mode 100644 lib/SVG/Graph/Bar.rb delete mode 100644 lib/SVG/Graph/BarBase.rb delete mode 100644 lib/SVG/Graph/BarHorizontal.rb delete mode 100644 lib/SVG/Graph/Graph.rb delete mode 100644 lib/SVG/Graph/Line.rb delete mode 100644 lib/SVG/Graph/Pie.rb delete mode 100644 lib/SVG/Graph/Plot.rb delete mode 100644 lib/SVG/Graph/Schedule.rb delete mode 100644 lib/SVG/Graph/TimeSeries.rb delete mode 100644 lib/SVG/LICENSE.txt diff --git a/lib/SVG/GPL.txt b/lib/SVG/GPL.txt deleted file mode 100644 index 5b6e7c66c..000000000 --- a/lib/SVG/GPL.txt +++ /dev/null @@ -1,340 +0,0 @@ - GNU GENERAL PUBLIC LICENSE - Version 2, June 1991 - - Copyright (C) 1989, 1991 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -License is intended to guarantee your freedom to share and change free -software--to make sure the software is free for all its users. This -General Public License applies to most of the Free Software -Foundation's software and to any other program whose authors commit to -using it. (Some other Free Software Foundation software is covered by -the GNU Library General Public License instead.) You can apply it to -your programs, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -this service if you wish), that you receive source code or can get it -if you want it, that you can change the software or use pieces of it -in new free programs; and that you know you can do these things. - - To protect your rights, we need to make restrictions that forbid -anyone to deny you these rights or to ask you to surrender the rights. -These restrictions translate to certain responsibilities for you if you -distribute copies of the software, or if you modify it. - - For example, if you distribute copies of such a program, whether -gratis or for a fee, you must give the recipients all the rights that -you have. You must make sure that they, too, receive or can get the -source code. And you must show them these terms so they know their -rights. - - We protect your rights with two steps: (1) copyright the software, and -(2) offer you this license which gives you legal permission to copy, -distribute and/or modify the software. - - Also, for each author's protection and ours, we want to make certain -that everyone understands that there is no warranty for this free -software. If the software is modified by someone else and passed on, we -want its recipients to know that what they have is not the original, so -that any problems introduced by others will not reflect on the original -authors' reputations. - - Finally, any free program is threatened constantly by software -patents. We wish to avoid the danger that redistributors of a free -program will individually obtain patent licenses, in effect making the -program proprietary. To prevent this, we have made it clear that any -patent must be licensed for everyone's free use or not licensed at all. - - The precise terms and conditions for copying, distribution and -modification follow. - - GNU GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License applies to any program or other work which contains -a notice placed by the copyright holder saying it may be distributed -under the terms of this General Public License. The "Program", below, -refers to any such program or work, and a "work based on the Program" -means either the Program or any derivative work under copyright law: -that is to say, a work containing the Program or a portion of it, -either verbatim or with modifications and/or translated into another -language. (Hereinafter, translation is included without limitation in -the term "modification".) Each licensee is addressed as "you". - -Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running the Program is not restricted, and the output from the Program -is covered only if its contents constitute a work based on the -Program (independent of having been made by running the Program). -Whether that is true depends on what the Program does. - - 1. You may copy and distribute verbatim copies of the Program's -source code as you receive it, in any medium, provided that you -conspicuously and appropriately publish on each copy an appropriate -copyright notice and disclaimer of warranty; keep intact all the -notices that refer to this License and to the absence of any warranty; -and give any other recipients of the Program a copy of this License -along with the Program. - -You may charge a fee for the physical act of transferring a copy, and -you may at your option offer warranty protection in exchange for a fee. - - 2. You may modify your copy or copies of the Program or any portion -of it, thus forming a work based on the Program, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) You must cause the modified files to carry prominent notices - stating that you changed the files and the date of any change. - - b) You must cause any work that you distribute or publish, that in - whole or in part contains or is derived from the Program or any - part thereof, to be licensed as a whole at no charge to all third - parties under the terms of this License. - - c) If the modified program normally reads commands interactively - when run, you must cause it, when started running for such - interactive use in the most ordinary way, to print or display an - announcement including an appropriate copyright notice and a - notice that there is no warranty (or else, saying that you provide - a warranty) and that users may redistribute the program under - these conditions, and telling the user how to view a copy of this - License. (Exception: if the Program itself is interactive but - does not normally print such an announcement, your work based on - the Program is not required to print an announcement.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Program, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Program, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Program. - -In addition, mere aggregation of another work not based on the Program -with the Program (or with a work based on the Program) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may copy and distribute the Program (or a work based on it, -under Section 2) in object code or executable form under the terms of -Sections 1 and 2 above provided that you also do one of the following: - - a) Accompany it with the complete corresponding machine-readable - source code, which must be distributed under the terms of Sections - 1 and 2 above on a medium customarily used for software interchange; or, - - b) Accompany it with a written offer, valid for at least three - years, to give any third party, for a charge no more than your - cost of physically performing source distribution, a complete - machine-readable copy of the corresponding source code, to be - distributed under the terms of Sections 1 and 2 above on a medium - customarily used for software interchange; or, - - c) Accompany it with the information you received as to the offer - to distribute corresponding source code. (This alternative is - allowed only for noncommercial distribution and only if you - received the program in object code or executable form with such - an offer, in accord with Subsection b above.) - -The source code for a work means the preferred form of the work for -making modifications to it. For an executable work, complete source -code means all the source code for all modules it contains, plus any -associated interface definition files, plus the scripts used to -control compilation and installation of the executable. However, as a -special exception, the source code distributed need not include -anything that is normally distributed (in either source or binary -form) with the major components (compiler, kernel, and so on) of the -operating system on which the executable runs, unless that component -itself accompanies the executable. - -If distribution of executable or object code is made by offering -access to copy from a designated place, then offering equivalent -access to copy the source code from the same place counts as -distribution of the source code, even though third parties are not -compelled to copy the source along with the object code. - - 4. You may not copy, modify, sublicense, or distribute the Program -except as expressly provided under this License. Any attempt -otherwise to copy, modify, sublicense or distribute the Program is -void, and will automatically terminate your rights under this License. -However, parties who have received copies, or rights, from you under -this License will not have their licenses terminated so long as such -parties remain in full compliance. - - 5. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Program or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Program (or any work based on the -Program), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Program or works based on it. - - 6. Each time you redistribute the Program (or any work based on the -Program), the recipient automatically receives a license from the -original licensor to copy, distribute or modify the Program subject to -these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties to -this License. - - 7. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Program at all. For example, if a patent -license would not permit royalty-free redistribution of the Program by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Program. - -If any portion of this section is held invalid or unenforceable under -any particular circumstance, the balance of the section is intended to -apply and the section as a whole is intended to apply in other -circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system, which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 8. If the distribution and/or use of the Program is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Program under this License -may add an explicit geographical distribution limitation excluding -those countries, so that distribution is permitted only in or among -countries not thus excluded. In such case, this License incorporates -the limitation as if written in the body of this License. - - 9. The Free Software Foundation may publish revised and/or new versions -of the General Public License from time to time. Such new versions will -be similar in spirit to the present version, but may differ in detail to -address new problems or concerns. - -Each version is given a distinguishing version number. If the Program -specifies a version number of this License which applies to it and "any -later version", you have the option of following the terms and conditions -either of that version or of any later version published by the Free -Software Foundation. If the Program does not specify a version number of -this License, you may choose any version ever published by the Free Software -Foundation. - - 10. If you wish to incorporate parts of the Program into other free -programs whose distribution conditions are different, write to the author -to ask for permission. For software which is copyrighted by the Free -Software Foundation, write to the Free Software Foundation; we sometimes -make exceptions for this. Our decision will be guided by the two goals -of preserving the free status of all derivatives of our free software and -of promoting the sharing and reuse of software generally. - - NO WARRANTY - - 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED -OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS -TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE -PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, -REPAIR OR CORRECTION. - - 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, -INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING -OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED -TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY -YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER -PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE -POSSIBILITY OF SUCH DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Programs - - If you develop a new program, and you want it to be of the greatest -possible use to the public, the best way to achieve this is to make it -free software which everyone can redistribute and change under these terms. - - To do so, attach the following notices to the program. It is safest -to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least -the "copyright" line and a pointer to where the full notice is found. - - - Copyright (C) - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - - -Also add information on how to contact you by electronic and paper mail. - -If the program is interactive, make it output a short notice like this -when it starts in an interactive mode: - - Gnomovision version 69, Copyright (C) year name of author - Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. - This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. - -The hypothetical commands `show w' and `show c' should show the appropriate -parts of the General Public License. Of course, the commands you use may -be called something other than `show w' and `show c'; they could even be -mouse-clicks or menu items--whatever suits your program. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the program, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the program - `Gnomovision' (which makes passes at compilers) written by James Hacker. - - , 1 April 1989 - Ty Coon, President of Vice - -This General Public License does not permit incorporating your program into -proprietary programs. If your program is a subroutine library, you may -consider it more useful to permit linking proprietary applications with the -library. If this is what you want to do, use the GNU Library General -Public License instead of this License. diff --git a/lib/SVG/Graph/Bar.rb b/lib/SVG/Graph/Bar.rb deleted file mode 100644 index 695156594..000000000 --- a/lib/SVG/Graph/Bar.rb +++ /dev/null @@ -1,148 +0,0 @@ -require 'rexml/document' -require 'SVG/Graph/Graph' -require 'SVG/Graph/BarBase' - -module SVG - module Graph - # === Create presentation quality SVG bar graphs easily - # - # = Synopsis - # - # require 'SVG/Graph/Bar' - # - # fields = %w(Jan Feb Mar); - # data_sales_02 = [12, 45, 21] - # - # graph = SVG::Graph::Bar.new( - # :height => 500, - # :width => 300, - # :fields => fields - # ) - # - # graph.add_data( - # :data => data_sales_02, - # :title => 'Sales 2002' - # ) - # - # print "Content-type: image/svg+xml\r\n\r\n" - # print graph.burn - # - # = Description - # - # This object aims to allow you to easily create high quality - # SVG[http://www.w3c.org/tr/svg bar graphs. You can either use the default - # style sheet or supply your own. Either way there are many options which - # can be configured to give you control over how the graph is generated - - # with or without a key, data elements at each point, title, subtitle etc. - # - # = Notes - # - # The default stylesheet handles upto 12 data sets, if you - # use more you must create your own stylesheet and add the - # additional settings for the extra data sets. You will know - # if you go over 12 data sets as they will have no style and - # be in black. - # - # = Examples - # - # * http://germane-software.com/repositories/public/SVG/test/test.rb - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - class Bar < BarBase - include REXML - - # See Graph::initialize and BarBase::set_defaults - def set_defaults - super - self.top_align = self.top_font = 1 - end - - protected - - def get_x_labels - @config[:fields] - end - - def get_y_labels - maxvalue = max_value - minvalue = min_value - range = maxvalue - minvalue - - top_pad = range == 0 ? 10 : range / 20.0 - scale_range = (maxvalue + top_pad) - minvalue - - scale_division = scale_divisions || (scale_range / 10.0) - - if scale_integers - scale_division = scale_division < 1 ? 1 : scale_division.round - end - - rv = [] - maxvalue = maxvalue%scale_division == 0 ? - maxvalue : maxvalue + scale_division - minvalue.step( maxvalue, scale_division ) {|v| rv << v} - return rv - end - - def x_label_offset( width ) - width / 2.0 - end - - def draw_data - minvalue = min_value - fieldwidth = field_width - - unit_size = (@graph_height.to_f - font_size*2*top_font) / - (get_y_labels.max - get_y_labels.min) - bargap = bar_gap ? (fieldwidth < 10 ? fieldwidth / 2 : 10) : 0 - - bar_width = fieldwidth - bargap - bar_width /= @data.length if stack == :side - x_mod = (@graph_width-bargap)/2 - (stack==:side ? bar_width/2 : 0) - - bottom = @graph_height - - field_count = 0 - @config[:fields].each_index { |i| - dataset_count = 0 - for dataset in @data - - # cases (assume 0 = +ve): - # value min length - # +ve +ve value - min - # +ve -ve value - 0 - # -ve -ve value.abs - 0 - - value = dataset[:data][i] - - left = (fieldwidth * field_count) - - length = (value.abs - (minvalue > 0 ? minvalue : 0)) * unit_size - # top is 0 if value is negative - top = bottom - (((value < 0 ? 0 : value) - minvalue) * unit_size) - left += bar_width * dataset_count if stack == :side - - @graph.add_element( "rect", { - "x" => left.to_s, - "y" => top.to_s, - "width" => bar_width.to_s, - "height" => length.to_s, - "class" => "fill#{dataset_count+1}" - }) - - make_datapoint_text(left + bar_width/2.0, top - 6, value.to_s) - dataset_count += 1 - end - field_count += 1 - } - end - end - end -end diff --git a/lib/SVG/Graph/BarBase.rb b/lib/SVG/Graph/BarBase.rb deleted file mode 100644 index 7b7dda887..000000000 --- a/lib/SVG/Graph/BarBase.rb +++ /dev/null @@ -1,139 +0,0 @@ -require 'rexml/document' -require 'SVG/Graph/Graph' - -module SVG - module Graph - # = Synopsis - # - # A superclass for bar-style graphs. Do not attempt to instantiate - # directly; use one of the subclasses instead. - # - # = Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class BarBase < SVG::Graph::Graph - # Ensures that :fields are provided in the configuration. - def initialize config - raise "fields was not supplied or is empty" unless config[:fields] && - config[:fields].kind_of?(Array) && - config[:fields].length > 0 - super - end - - # In addition to the defaults set in Graph::initialize, sets - # [bar_gap] true - # [stack] :overlap - def set_defaults - init_with( :bar_gap => true, :stack => :overlap ) - end - - # Whether to have a gap between the bars or not, default - # is true, set to false if you don't want gaps. - attr_accessor :bar_gap - # How to stack data sets. :overlap overlaps bars with - # transparent colors, :top stacks bars on top of one another, - # :side stacks the bars side-by-side. Defaults to :overlap. - attr_accessor :stack - - - protected - - def max_value - @data.collect{|x| x[:data].max}.max - end - - def min_value - min = 0 - if min_scale_value.nil? - min = @data.collect{|x| x[:data].min}.min - min = min > 0 ? 0 : min - else - min = min_scale_value - end - return min - end - - def get_css - return < 500, - # :width => 300, - # :fields => fields, - # }) - # - # graph.add_data({ - # :data => data_sales_02, - # :title => 'Sales 2002', - # }) - # - # print "Content-type: image/svg+xml\r\n\r\n" - # print graph.burn - # - # = Description - # - # This object aims to allow you to easily create high quality - # SVG horitonzal bar graphs. You can either use the default style sheet - # or supply your own. Either way there are many options which can - # be configured to give you control over how the graph is - # generated - with or without a key, data elements at each point, - # title, subtitle etc. - # - # = Examples - # - # * http://germane-software.com/repositories/public/SVG/test/test.rb - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class BarHorizontal < BarBase - # In addition to the defaults set in BarBase::set_defaults, sets - # [rotate_y_labels] true - # [show_x_guidelines] true - # [show_y_guidelines] false - def set_defaults - super - init_with( - :rotate_y_labels => true, - :show_x_guidelines => true, - :show_y_guidelines => false - ) - self.right_align = self.right_font = 1 - end - - protected - - def get_x_labels - maxvalue = max_value - minvalue = min_value - range = maxvalue - minvalue - top_pad = range == 0 ? 10 : range / 20.0 - scale_range = (maxvalue + top_pad) - minvalue - - scale_division = scale_divisions || (scale_range / 10.0) - - if scale_integers - scale_division = scale_division < 1 ? 1 : scale_division.round - end - - rv = [] - maxvalue = maxvalue%scale_division == 0 ? - maxvalue : maxvalue + scale_division - minvalue.step( maxvalue, scale_division ) {|v| rv << v} - return rv - end - - def get_y_labels - @config[:fields] - end - - def y_label_offset( height ) - height / -2.0 - end - - def draw_data - minvalue = min_value - fieldheight = field_height - - unit_size = (@graph_width.to_f - font_size*2*right_font ) / - (get_x_labels.max - get_x_labels.min ) - bargap = bar_gap ? (fieldheight < 10 ? fieldheight / 2 : 10) : 0 - - bar_height = fieldheight - bargap - bar_height /= @data.length if stack == :side - y_mod = (bar_height / 2) + (font_size / 2) - - field_count = 1 - @config[:fields].each_index { |i| - dataset_count = 0 - for dataset in @data - value = dataset[:data][i] - - top = @graph_height - (fieldheight * field_count) - top += (bar_height * dataset_count) if stack == :side - # cases (assume 0 = +ve): - # value min length left - # +ve +ve value.abs - min minvalue.abs - # +ve -ve value.abs - 0 minvalue.abs - # -ve -ve value.abs - 0 minvalue.abs + value - length = (value.abs - (minvalue > 0 ? minvalue : 0)) * unit_size - left = (minvalue.abs + (value < 0 ? value : 0)) * unit_size - - @graph.add_element( "rect", { - "x" => left.to_s, - "y" => top.to_s, - "width" => length.to_s, - "height" => bar_height.to_s, - "class" => "fill#{dataset_count+1}" - }) - - make_datapoint_text( - left+length+5, top+y_mod, value, "text-anchor: start; " - ) - dataset_count += 1 - end - field_count += 1 - } - end - end - end -end diff --git a/lib/SVG/Graph/Graph.rb b/lib/SVG/Graph/Graph.rb deleted file mode 100644 index f5b0f61bf..000000000 --- a/lib/SVG/Graph/Graph.rb +++ /dev/null @@ -1,977 +0,0 @@ -begin - require 'zlib' -rescue - # Zlib not available -end - -require 'rexml/document' - -module SVG - module Graph - VERSION = '@ANT_VERSION@' - - # === Base object for generating SVG Graphs - # - # == Synopsis - # - # This class is only used as a superclass of specialized charts. Do not - # attempt to use this class directly, unless creating a new chart type. - # - # For examples of how to subclass this class, see the existing specific - # subclasses, such as SVG::Graph::Pie. - # - # == Examples - # - # For examples of how to use this package, see either the test files, or - # the documentation for the specific class you want to use. - # - # * file:test/plot.rb - # * file:test/single.rb - # * file:test/test.rb - # * file:test/timeseries.rb - # - # == Description - # - # This package should be used as a base for creating SVG graphs. - # - # == Acknowledgements - # - # Leo Lapworth for creating the SVG::TT::Graph package which this Ruby - # port is based on. - # - # Stephen Morgan for creating the TT template and SVG. - # - # == See - # - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class Graph - include REXML - - # Initialize the graph object with the graph settings. You won't - # instantiate this class directly; see the subclass for options. - # [width] 500 - # [height] 300 - # [show_x_guidelines] false - # [show_y_guidelines] true - # [show_data_values] true - # [min_scale_value] 0 - # [show_x_labels] true - # [stagger_x_labels] false - # [rotate_x_labels] false - # [step_x_labels] 1 - # [step_include_first_x_label] true - # [show_y_labels] true - # [rotate_y_labels] false - # [scale_integers] false - # [show_x_title] false - # [x_title] 'X Field names' - # [show_y_title] false - # [y_title_text_direction] :bt - # [y_title] 'Y Scale' - # [show_graph_title] false - # [graph_title] 'Graph Title' - # [show_graph_subtitle] false - # [graph_subtitle] 'Graph Sub Title' - # [key] true, - # [key_position] :right, # bottom or righ - # [font_size] 12 - # [title_font_size] 16 - # [subtitle_font_size] 14 - # [x_label_font_size] 12 - # [x_title_font_size] 14 - # [y_label_font_size] 12 - # [y_title_font_size] 14 - # [key_font_size] 10 - # [no_css] false - # [add_popups] false - def initialize( config ) - @config = config - - self.top_align = self.top_font = self.right_align = self.right_font = 0 - - init_with({ - :width => 500, - :height => 300, - :show_x_guidelines => false, - :show_y_guidelines => true, - :show_data_values => true, - -# :min_scale_value => 0, - - :show_x_labels => true, - :stagger_x_labels => false, - :rotate_x_labels => false, - :step_x_labels => 1, - :step_include_first_x_label => true, - - :show_y_labels => true, - :rotate_y_labels => false, - :stagger_y_labels => false, - :scale_integers => false, - - :show_x_title => false, - :x_title => 'X Field names', - - :show_y_title => false, - :y_title_text_direction => :bt, - :y_title => 'Y Scale', - - :show_graph_title => false, - :graph_title => 'Graph Title', - :show_graph_subtitle => false, - :graph_subtitle => 'Graph Sub Title', - :key => true, - :key_position => :right, # bottom or right - - :font_size =>12, - :title_font_size =>16, - :subtitle_font_size =>14, - :x_label_font_size =>12, - :x_title_font_size =>14, - :y_label_font_size =>12, - :y_title_font_size =>14, - :key_font_size =>10, - - :no_css =>false, - :add_popups =>false, - }) - - set_defaults if respond_to? :set_defaults - - init_with config - end - - - # This method allows you do add data to the graph object. - # It can be called several times to add more data sets in. - # - # data_sales_02 = [12, 45, 21]; - # - # graph.add_data({ - # :data => data_sales_02, - # :title => 'Sales 2002' - # }) - def add_data conf - @data = [] unless defined? @data - - if conf[:data] and conf[:data].kind_of? Array - @data << conf - else - raise "No data provided by #{conf.inspect}" - end - end - - - # This method removes all data from the object so that you can - # reuse it to create a new graph but with the same config options. - # - # graph.clear_data - def clear_data - @data = [] - end - - - # This method processes the template with the data and - # config which has been set and returns the resulting SVG. - # - # This method will croak unless at least one data set has - # been added to the graph object. - # - # print graph.burn - def burn - raise "No data available" unless @data.size > 0 - - calculations if respond_to? :calculations - - start_svg - calculate_graph_dimensions - @foreground = Element.new( "g" ) - draw_graph - draw_titles - draw_legend - draw_data - @graph.add_element( @foreground ) - style - - data = "" - @doc.write( data, 0 ) - - if @config[:compress] - if Object.const_defined?(:Zlib) - inp, out = IO.pipe - gz = Zlib::GzipWriter.new( out ) - gz.write data - gz.close - data = inp.read - else - data << ""; - end - end - - return data - end - - - # Set the height of the graph box, this is the total height - # of the SVG box created - not the graph it self which auto - # scales to fix the space. - attr_accessor :height - # Set the width of the graph box, this is the total width - # of the SVG box created - not the graph it self which auto - # scales to fix the space. - attr_accessor :width - # Set the path to an external stylesheet, set to '' if - # you want to revert back to using the default internal version. - # - # To create an external stylesheet create a graph using the - # default internal version and copy the stylesheet section to - # an external file and edit from there. - attr_accessor :style_sheet - # (Bool) Show the value of each element of data on the graph - attr_accessor :show_data_values - # The point at which the Y axis starts, defaults to '0', - # if set to nil it will default to the minimum data value. - attr_accessor :min_scale_value - # Whether to show labels on the X axis or not, defaults - # to true, set to false if you want to turn them off. - attr_accessor :show_x_labels - # This puts the X labels at alternative levels so if they - # are long field names they will not overlap so easily. - # Default it false, to turn on set to true. - attr_accessor :stagger_x_labels - # This puts the Y labels at alternative levels so if they - # are long field names they will not overlap so easily. - # Default it false, to turn on set to true. - attr_accessor :stagger_y_labels - # This turns the X axis labels by 90 degrees. - # Default it false, to turn on set to true. - attr_accessor :rotate_x_labels - # This turns the Y axis labels by 90 degrees. - # Default it false, to turn on set to true. - attr_accessor :rotate_y_labels - # How many "steps" to use between displayed X axis labels, - # a step of one means display every label, a step of two results - # in every other label being displayed (label label label), - # a step of three results in every third label being displayed - # (label label label) and so on. - attr_accessor :step_x_labels - # Whether to (when taking "steps" between X axis labels) step from - # the first label (i.e. always include the first label) or step from - # the X axis origin (i.e. start with a gap if step_x_labels is greater - # than one). - attr_accessor :step_include_first_x_label - # Whether to show labels on the Y axis or not, defaults - # to true, set to false if you want to turn them off. - attr_accessor :show_y_labels - # Ensures only whole numbers are used as the scale divisions. - # Default it false, to turn on set to true. This has no effect if - # scale divisions are less than 1. - attr_accessor :scale_integers - # This defines the gap between markers on the Y axis, - # default is a 10th of the max_value, e.g. you will have - # 10 markers on the Y axis. NOTE: do not set this too - # low - you are limited to 999 markers, after that the - # graph won't generate. - attr_accessor :scale_divisions - # Whether to show the title under the X axis labels, - # default is false, set to true to show. - attr_accessor :show_x_title - # What the title under X axis should be, e.g. 'Months'. - attr_accessor :x_title - # Whether to show the title under the Y axis labels, - # default is false, set to true to show. - attr_accessor :show_y_title - # Aligns writing mode for Y axis label. - # Defaults to :bt (Bottom to Top). - # Change to :tb (Top to Bottom) to reverse. - attr_accessor :y_title_text_direction - # What the title under Y axis should be, e.g. 'Sales in thousands'. - attr_accessor :y_title - # Whether to show a title on the graph, defaults - # to false, set to true to show. - attr_accessor :show_graph_title - # What the title on the graph should be. - attr_accessor :graph_title - # Whether to show a subtitle on the graph, defaults - # to false, set to true to show. - attr_accessor :show_graph_subtitle - # What the subtitle on the graph should be. - attr_accessor :graph_subtitle - # Whether to show a key, defaults to false, set to - # true if you want to show it. - attr_accessor :key - # Where the key should be positioned, defaults to - # :right, set to :bottom if you want to move it. - attr_accessor :key_position - # Set the font size (in points) of the data point labels - attr_accessor :font_size - # Set the font size of the X axis labels - attr_accessor :x_label_font_size - # Set the font size of the X axis title - attr_accessor :x_title_font_size - # Set the font size of the Y axis labels - attr_accessor :y_label_font_size - # Set the font size of the Y axis title - attr_accessor :y_title_font_size - # Set the title font size - attr_accessor :title_font_size - # Set the subtitle font size - attr_accessor :subtitle_font_size - # Set the key font size - attr_accessor :key_font_size - # Show guidelines for the X axis - attr_accessor :show_x_guidelines - # Show guidelines for the Y axis - attr_accessor :show_y_guidelines - # Do not use CSS if set to true. Many SVG viewers do not support CSS, but - # not using CSS can result in larger SVGs as well as making it impossible to - # change colors after the chart is generated. Defaults to false. - attr_accessor :no_css - # Add popups for the data points on some graphs - attr_accessor :add_popups - - - protected - - def sort( *arrys ) - sort_multiple( arrys ) - end - - # Overwrite configuration options with supplied options. Used - # by subclasses. - def init_with config - config.each { |key, value| - self.send((key.to_s+"=").to_sym, value ) if respond_to? key.to_sym - } - end - - attr_accessor :top_align, :top_font, :right_align, :right_font - - KEY_BOX_SIZE = 12 - - # Override this (and call super) to change the margin to the left - # of the plot area. Results in @border_left being set. - def calculate_left_margin - @border_left = 7 - # Check for Y labels - max_y_label_height_px = rotate_y_labels ? - y_label_font_size : - get_y_labels.max{|a,b| - a.to_s.length<=>b.to_s.length - }.to_s.length * y_label_font_size * 0.6 - @border_left += max_y_label_height_px if show_y_labels - @border_left += max_y_label_height_px + 10 if stagger_y_labels - @border_left += y_title_font_size + 5 if show_y_title - end - - - # Calculates the width of the widest Y label. This will be the - # character height if the Y labels are rotated - def max_y_label_width_px - return font_size if rotate_y_labels - end - - - # Override this (and call super) to change the margin to the right - # of the plot area. Results in @border_right being set. - def calculate_right_margin - @border_right = 7 - if key and key_position == :right - val = keys.max { |a,b| a.length <=> b.length } - @border_right += val.length * key_font_size * 0.6 - @border_right += KEY_BOX_SIZE - @border_right += 10 # Some padding around the box - end - end - - - # Override this (and call super) to change the margin to the top - # of the plot area. Results in @border_top being set. - def calculate_top_margin - @border_top = 5 - @border_top += title_font_size if show_graph_title - @border_top += 5 - @border_top += subtitle_font_size if show_graph_subtitle - end - - - # Adds pop-up point information to a graph. - def add_popup( x, y, label ) - txt_width = label.length * font_size * 0.6 + 10 - tx = (x+txt_width > width ? x-5 : x+5) - t = @foreground.add_element( "text", { - "x" => tx.to_s, - "y" => (y - font_size).to_s, - "visibility" => "hidden", - }) - t.attributes["style"] = "fill: #000; "+ - (x+txt_width > width ? "text-anchor: end;" : "text-anchor: start;") - t.text = label.to_s - t.attributes["id"] = t.object_id.to_s - - @foreground.add_element( "circle", { - "cx" => x.to_s, - "cy" => y.to_s, - "r" => "10", - "style" => "opacity: 0", - "onmouseover" => - "document.getElementById(#{t.object_id}).setAttribute('visibility', 'visible' )", - "onmouseout" => - "document.getElementById(#{t.object_id}).setAttribute('visibility', 'hidden' )", - }) - - end - - - # Override this (and call super) to change the margin to the bottom - # of the plot area. Results in @border_bottom being set. - def calculate_bottom_margin - @border_bottom = 7 - if key and key_position == :bottom - @border_bottom += @data.size * (font_size + 5) - @border_bottom += 10 - end - if show_x_labels - max_x_label_height_px = (not rotate_x_labels) ? - x_label_font_size : - get_x_labels.max{|a,b| - a.to_s.length<=>b.to_s.length - }.to_s.length * x_label_font_size * 0.6 - @border_bottom += max_x_label_height_px - @border_bottom += max_x_label_height_px + 10 if stagger_x_labels - end - @border_bottom += x_title_font_size + 5 if show_x_title - end - - - # Draws the background, axis, and labels. - def draw_graph - @graph = @root.add_element( "g", { - "transform" => "translate( #@border_left #@border_top )" - }) - - # Background - @graph.add_element( "rect", { - "x" => "0", - "y" => "0", - "width" => @graph_width.to_s, - "height" => @graph_height.to_s, - "class" => "graphBackground" - }) - - # Axis - @graph.add_element( "path", { - "d" => "M 0 0 v#@graph_height", - "class" => "axis", - "id" => "xAxis" - }) - @graph.add_element( "path", { - "d" => "M 0 #@graph_height h#@graph_width", - "class" => "axis", - "id" => "yAxis" - }) - - draw_x_labels - draw_y_labels - end - - - # Where in the X area the label is drawn - # Centered in the field, should be width/2. Start, 0. - def x_label_offset( width ) - 0 - end - - def make_datapoint_text( x, y, value, style="" ) - if show_data_values - @foreground.add_element( "text", { - "x" => x.to_s, - "y" => y.to_s, - "class" => "dataPointLabel", - "style" => "#{style} stroke: #fff; stroke-width: 2;" - }).text = value.to_s - text = @foreground.add_element( "text", { - "x" => x.to_s, - "y" => y.to_s, - "class" => "dataPointLabel" - }) - text.text = value.to_s - text.attributes["style"] = style if style.length > 0 - end - end - - - # Draws the X axis labels - def draw_x_labels - stagger = x_label_font_size + 5 - if show_x_labels - label_width = field_width - - count = 0 - for label in get_x_labels - if step_include_first_x_label == true then - step = count % step_x_labels - else - step = (count + 1) % step_x_labels - end - - if step == 0 then - text = @graph.add_element( "text" ) - text.attributes["class"] = "xAxisLabels" - text.text = label.to_s - - x = count * label_width + x_label_offset( label_width ) - y = @graph_height + x_label_font_size + 3 - t = 0 - (font_size / 2) - - if stagger_x_labels and count % 2 == 1 - y += stagger - @graph.add_element( "path", { - "d" => "M#{x} #@graph_height v#{stagger}", - "class" => "staggerGuideLine" - }) - end - - text.attributes["x"] = x.to_s - text.attributes["y"] = y.to_s - if rotate_x_labels - text.attributes["transform"] = - "rotate( 90 #{x} #{y-x_label_font_size} )"+ - " translate( 0 -#{x_label_font_size/4} )" - text.attributes["style"] = "text-anchor: start" - else - text.attributes["style"] = "text-anchor: middle" - end - end - - draw_x_guidelines( label_width, count ) if show_x_guidelines - count += 1 - end - end - end - - - # Where in the Y area the label is drawn - # Centered in the field, should be width/2. Start, 0. - def y_label_offset( height ) - 0 - end - - - def field_width - (@graph_width.to_f - font_size*2*right_font) / - (get_x_labels.length - right_align) - end - - - def field_height - (@graph_height.to_f - font_size*2*top_font) / - (get_y_labels.length - top_align) - end - - - # Draws the Y axis labels - def draw_y_labels - stagger = y_label_font_size + 5 - if show_y_labels - label_height = field_height - - count = 0 - y_offset = @graph_height + y_label_offset( label_height ) - y_offset += font_size/1.2 unless rotate_y_labels - for label in get_y_labels - y = y_offset - (label_height * count) - x = rotate_y_labels ? 0 : -3 - - if stagger_y_labels and count % 2 == 1 - x -= stagger - @graph.add_element( "path", { - "d" => "M#{x} #{y} h#{stagger}", - "class" => "staggerGuideLine" - }) - end - - text = @graph.add_element( "text", { - "x" => x.to_s, - "y" => y.to_s, - "class" => "yAxisLabels" - }) - text.text = label.to_s - if rotate_y_labels - text.attributes["transform"] = "translate( -#{font_size} 0 ) "+ - "rotate( 90 #{x} #{y} ) " - text.attributes["style"] = "text-anchor: middle" - else - text.attributes["y"] = (y - (y_label_font_size/2)).to_s - text.attributes["style"] = "text-anchor: end" - end - draw_y_guidelines( label_height, count ) if show_y_guidelines - count += 1 - end - end - end - - - # Draws the X axis guidelines - def draw_x_guidelines( label_height, count ) - if count != 0 - @graph.add_element( "path", { - "d" => "M#{label_height*count} 0 v#@graph_height", - "class" => "guideLines" - }) - end - end - - - # Draws the Y axis guidelines - def draw_y_guidelines( label_height, count ) - if count != 0 - @graph.add_element( "path", { - "d" => "M0 #{@graph_height-(label_height*count)} h#@graph_width", - "class" => "guideLines" - }) - end - end - - - # Draws the graph title and subtitle - def draw_titles - if show_graph_title - @root.add_element( "text", { - "x" => (width / 2).to_s, - "y" => (title_font_size).to_s, - "class" => "mainTitle" - }).text = graph_title.to_s - end - - if show_graph_subtitle - y_subtitle = show_graph_title ? - title_font_size + 10 : - subtitle_font_size - @root.add_element("text", { - "x" => (width / 2).to_s, - "y" => (y_subtitle).to_s, - "class" => "subTitle" - }).text = graph_subtitle.to_s - end - - if show_x_title - y = @graph_height + @border_top + x_title_font_size - if show_x_labels - y += x_label_font_size + 5 if stagger_x_labels - y += x_label_font_size + 5 - end - x = width / 2 - - @root.add_element("text", { - "x" => x.to_s, - "y" => y.to_s, - "class" => "xAxisTitle", - }).text = x_title.to_s - end - - if show_y_title - x = y_title_font_size + (y_title_text_direction==:bt ? 3 : -3) - y = height / 2 - - text = @root.add_element("text", { - "x" => x.to_s, - "y" => y.to_s, - "class" => "yAxisTitle", - }) - text.text = y_title.to_s - if y_title_text_direction == :bt - text.attributes["transform"] = "rotate( -90, #{x}, #{y} )" - else - text.attributes["transform"] = "rotate( 90, #{x}, #{y} )" - end - end - end - - def keys - return @data.collect{ |d| d[:title] } - end - - # Draws the legend on the graph - def draw_legend - if key - group = @root.add_element( "g" ) - - key_count = 0 - for key_name in keys - y_offset = (KEY_BOX_SIZE * key_count) + (key_count * 5) - group.add_element( "rect", { - "x" => 0.to_s, - "y" => y_offset.to_s, - "width" => KEY_BOX_SIZE.to_s, - "height" => KEY_BOX_SIZE.to_s, - "class" => "key#{key_count+1}" - }) - group.add_element( "text", { - "x" => (KEY_BOX_SIZE + 5).to_s, - "y" => (y_offset + KEY_BOX_SIZE).to_s, - "class" => "keyText" - }).text = key_name.to_s - key_count += 1 - end - - case key_position - when :right - x_offset = @graph_width + @border_left + 10 - y_offset = @border_top + 20 - when :bottom - x_offset = @border_left + 20 - y_offset = @border_top + @graph_height + 5 - if show_x_labels - max_x_label_height_px = (not rotate_x_labels) ? - x_label_font_size : - get_x_labels.max{|a,b| - a.to_s.length<=>b.to_s.length - }.to_s.length * x_label_font_size * 0.6 - x_label_font_size - y_offset += max_x_label_height_px - y_offset += max_x_label_height_px + 5 if stagger_x_labels - end - y_offset += x_title_font_size + 5 if show_x_title - end - group.attributes["transform"] = "translate(#{x_offset} #{y_offset})" - end - end - - - private - - def sort_multiple( arrys, lo=0, hi=arrys[0].length-1 ) - if lo < hi - p = partition(arrys,lo,hi) - sort_multiple(arrys, lo, p-1) - sort_multiple(arrys, p+1, hi) - end - arrys - end - - def partition( arrys, lo, hi ) - p = arrys[0][lo] - l = lo - z = lo+1 - while z <= hi - if arrys[0][z] < p - l += 1 - arrys.each { |arry| arry[z], arry[l] = arry[l], arry[z] } - end - z += 1 - end - arrys.each { |arry| arry[lo], arry[l] = arry[l], arry[lo] } - l - end - - def style - if no_css - styles = parse_css - @root.elements.each("//*[@class]") { |el| - cl = el.attributes["class"] - style = styles[cl] - style += el.attributes["style"] if el.attributes["style"] - el.attributes["style"] = style - } - end - end - - def parse_css - css = get_style - rv = {} - while css =~ /^(\.(\w+)(?:\s*,\s*\.\w+)*)\s*\{/m - names_orig = names = $1 - css = $' - css =~ /([^}]+)\}/m - content = $1 - css = $' - - nms = [] - while names =~ /^\s*,?\s*\.(\w+)/ - nms << $1 - names = $' - end - - content = content.tr( "\n\t", " ") - for name in nms - current = rv[name] - current = current ? current+"; "+content : content - rv[name] = current.strip.squeeze(" ") - end - end - return rv - end - - - # Override and place code to add defs here - def add_defs defs - end - - - def start_svg - # Base document - @doc = Document.new - @doc << XMLDecl.new - @doc << DocType.new( %q{svg PUBLIC "-//W3C//DTD SVG 1.0//EN" } + - %q{"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"} ) - if style_sheet && style_sheet != '' - @doc << Instruction.new( "xml-stylesheet", - %Q{href="#{style_sheet}" type="text/css"} ) - end - @root = @doc.add_element( "svg", { - "width" => width.to_s, - "height" => height.to_s, - "viewBox" => "0 0 #{width} #{height}", - "xmlns" => "http://www.w3.org/2000/svg", - "xmlns:xlink" => "http://www.w3.org/1999/xlink", - "xmlns:a3" => "http://ns.adobe.com/AdobeSVGViewerExtensions/3.0/", - "a3:scriptImplementation" => "Adobe" - }) - @root << Comment.new( " "+"\\"*66 ) - @root << Comment.new( " Created with SVG::Graph " ) - @root << Comment.new( " SVG::Graph by Sean E. Russell " ) - @root << Comment.new( " Losely based on SVG::TT::Graph for Perl by"+ - " Leo Lapworth & Stephan Morgan " ) - @root << Comment.new( " "+"/"*66 ) - - defs = @root.add_element( "defs" ) - add_defs defs - if not(style_sheet && style_sheet != '') and !no_css - @root << Comment.new(" include default stylesheet if none specified ") - style = defs.add_element( "style", {"type"=>"text/css"} ) - style << CData.new( get_style ) - end - - @root << Comment.new( "SVG Background" ) - @root.add_element( "rect", { - "width" => width.to_s, - "height" => height.to_s, - "x" => "0", - "y" => "0", - "class" => "svgBackground" - }) - end - - - def calculate_graph_dimensions - calculate_left_margin - calculate_right_margin - calculate_bottom_margin - calculate_top_margin - @graph_width = width - @border_left - @border_right - @graph_height = height - @border_top - @border_bottom - end - - def get_style - return < 500, - # :width => 300, - # :fields => fields, - # }) - # - # graph.add_data({ - # :data => data_sales_02, - # :title => 'Sales 2002', - # }) - # - # graph.add_data({ - # :data => data_sales_03, - # :title => 'Sales 2003', - # }) - # - # print "Content-type: image/svg+xml\r\n\r\n"; - # print graph.burn(); - # - # = Description - # - # This object aims to allow you to easily create high quality - # SVG line graphs. You can either use the default style sheet - # or supply your own. Either way there are many options which can - # be configured to give you control over how the graph is - # generated - with or without a key, data elements at each point, - # title, subtitle etc. - # - # = Examples - # - # http://www.germane-software/repositories/public/SVG/test/single.rb - # - # = Notes - # - # The default stylesheet handles upto 10 data sets, if you - # use more you must create your own stylesheet and add the - # additional settings for the extra data sets. You will know - # if you go over 10 data sets as they will have no style and - # be in black. - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class Line < SVG::Graph::Graph - # Show a small circle on the graph where the line - # goes from one point to the next. - attr_accessor :show_data_points - # Accumulates each data set. (i.e. Each point increased by sum of - # all previous series at same point). Default is 0, set to '1' to show. - attr_accessor :stacked - # Fill in the area under the plot if true - attr_accessor :area_fill - - # The constructor takes a hash reference, fields (the names for each - # field on the X axis) MUST be set, all other values are defaulted to - # those shown above - with the exception of style_sheet which defaults - # to using the internal style sheet. - def initialize config - raise "fields was not supplied or is empty" unless config[:fields] && - config[:fields].kind_of?(Array) && - config[:fields].length > 0 - super - end - - # In addition to the defaults set in Graph::initialize, sets - # [show_data_points] true - # [show_data_values] true - # [stacked] false - # [area_fill] false - def set_defaults - init_with( - :show_data_points => true, - :show_data_values => true, - :stacked => false, - :area_fill => false - ) - - self.top_align = self.top_font = self.right_align = self.right_font = 1 - end - - protected - - def max_value - max = 0 - - if (stacked == true) then - sums = Array.new(@config[:fields].length).fill(0) - - @data.each do |data| - sums.each_index do |i| - sums[i] += data[:data][i].to_f - end - end - - max = sums.max - else - max = @data.collect{|x| x[:data].max}.max - end - - return max - end - - def min_value - min = 0 - - if (min_scale_value.nil? == false) then - min = min_scale_value - elsif (stacked == true) then - min = @data[-1][:data].min - else - min = @data.collect{|x| x[:data].min}.min - end - - return min - end - - def get_x_labels - @config[:fields] - end - - def calculate_left_margin - super - label_left = @config[:fields][0].length / 2 * font_size * 0.6 - @border_left = label_left if label_left > @border_left - end - - def get_y_labels - maxvalue = max_value - minvalue = min_value - range = maxvalue - minvalue - top_pad = range == 0 ? 10 : range / 20.0 - scale_range = (maxvalue + top_pad) - minvalue - - scale_division = scale_divisions || (scale_range / 10.0) - - if scale_integers - scale_division = scale_division < 1 ? 1 : scale_division.round - end - - rv = [] - maxvalue = maxvalue%scale_division == 0 ? - maxvalue : maxvalue + scale_division - minvalue.step( maxvalue, scale_division ) {|v| rv << v} - return rv - end - - def calc_coords(field, value, width = field_width, height = field_height) - coords = {:x => 0, :y => 0} - coords[:x] = width * field - coords[:y] = @graph_height - value * height - - return coords - end - - def draw_data - minvalue = min_value - fieldheight = (@graph_height.to_f - font_size*2*top_font) / - (get_y_labels.max - get_y_labels.min) - fieldwidth = field_width - line = @data.length - - prev_sum = Array.new(@config[:fields].length).fill(0) - cum_sum = Array.new(@config[:fields].length).fill(-minvalue) - - for data in @data.reverse - lpath = "" - apath = "" - - if not stacked then cum_sum.fill(-minvalue) end - - data[:data].each_index do |i| - cum_sum[i] += data[:data][i] - - c = calc_coords(i, cum_sum[i], fieldwidth, fieldheight) - - lpath << "#{c[:x]} #{c[:y]} " - end - - if area_fill - if stacked then - (prev_sum.length - 1).downto 0 do |i| - c = calc_coords(i, prev_sum[i], fieldwidth, fieldheight) - - apath << "#{c[:x]} #{c[:y]} " - end - - c = calc_coords(0, prev_sum[0], fieldwidth, fieldheight) - else - apath = "V#@graph_height" - c = calc_coords(0, 0, fieldwidth, fieldheight) - end - - @graph.add_element("path", { - "d" => "M#{c[:x]} #{c[:y]} L" + lpath + apath + "Z", - "class" => "fill#{line}" - }) - end - - @graph.add_element("path", { - "d" => "M0 #@graph_height L" + lpath, - "class" => "line#{line}" - }) - - if show_data_points || show_data_values - cum_sum.each_index do |i| - if show_data_points - @graph.add_element( "circle", { - "cx" => (fieldwidth * i).to_s, - "cy" => (@graph_height - cum_sum[i] * fieldheight).to_s, - "r" => "2.5", - "class" => "dataPoint#{line}" - }) - end - make_datapoint_text( - fieldwidth * i, - @graph_height - cum_sum[i] * fieldheight - 6, - cum_sum[i] + minvalue - ) - end - end - - prev_sum = cum_sum.dup - line -= 1 - end - end - - - def get_css - return < 500, - # :width => 300, - # :fields => fields, - # }) - # - # graph.add_data({ - # :data => data_sales_02, - # :title => 'Sales 2002', - # }) - # - # print "Content-type: image/svg+xml\r\n\r\n" - # print graph.burn(); - # - # == Description - # - # This object aims to allow you to easily create high quality - # SVG pie graphs. You can either use the default style sheet - # or supply your own. Either way there are many options which can - # be configured to give you control over how the graph is - # generated - with or without a key, display percent on pie chart, - # title, subtitle etc. - # - # = Examples - # - # http://www.germane-software/repositories/public/SVG/test/single.rb - # - # == See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class Pie < Graph - # Defaults are those set by Graph::initialize, and - # [show_shadow] true - # [shadow_offset] 10 - # [show_data_labels] false - # [show_actual_values] false - # [show_percent] true - # [show_key_data_labels] true - # [show_key_actual_values] true - # [show_key_percent] false - # [expanded] false - # [expand_greatest] false - # [expand_gap] 10 - # [show_x_labels] false - # [show_y_labels] false - # [datapoint_font_size] 12 - def set_defaults - init_with( - :show_shadow => true, - :shadow_offset => 10, - - :show_data_labels => false, - :show_actual_values => false, - :show_percent => true, - - :show_key_data_labels => true, - :show_key_actual_values => true, - :show_key_percent => false, - - :expanded => false, - :expand_greatest => false, - :expand_gap => 10, - - :show_x_labels => false, - :show_y_labels => false, - :datapoint_font_size => 12 - ) - @data = [] - end - - # Adds a data set to the graph. - # - # graph.add_data( { :data => [1,2,3,4] } ) - # - # Note that the :title is not necessary. If multiple - # data sets are added to the graph, the pie chart will - # display the +sums+ of the data. EG: - # - # graph.add_data( { :data => [1,2,3,4] } ) - # graph.add_data( { :data => [2,3,5,9] } ) - # - # is the same as: - # - # graph.add_data( { :data => [3,5,8,13] } ) - def add_data arg - arg[:data].each_index {|idx| - @data[idx] = 0 unless @data[idx] - @data[idx] += arg[:data][idx] - } - end - - # If true, displays a drop shadow for the chart - attr_accessor :show_shadow - # Sets the offset of the shadow from the pie chart - attr_accessor :shadow_offset - # If true, display the data labels on the chart - attr_accessor :show_data_labels - # If true, display the actual field values in the data labels - attr_accessor :show_actual_values - # If true, display the percentage value of each pie wedge in the data - # labels - attr_accessor :show_percent - # If true, display the labels in the key - attr_accessor :show_key_data_labels - # If true, display the actual value of the field in the key - attr_accessor :show_key_actual_values - # If true, display the percentage value of the wedges in the key - attr_accessor :show_key_percent - # If true, "explode" the pie (put space between the wedges) - attr_accessor :expanded - # If true, expand the largest pie wedge - attr_accessor :expand_greatest - # The amount of space between expanded wedges - attr_accessor :expand_gap - # The font size of the data point labels - attr_accessor :datapoint_font_size - - - protected - - def add_defs defs - gradient = defs.add_element( "filter", { - "id"=>"dropshadow", - "width" => "1.2", - "height" => "1.2", - } ) - gradient.add_element( "feGaussianBlur", { - "stdDeviation" => "4", - "result" => "blur" - }) - end - - # We don't need the graph - def draw_graph - end - - def get_y_labels - [""] - end - - def get_x_labels - [""] - end - - def keys - total = 0 - max_value = 0 - @data.each {|x| total += x } - percent_scale = 100.0 / total - count = -1 - a = @config[:fields].collect{ |x| - count += 1 - v = @data[count] - perc = show_key_percent ? " "+(v * percent_scale).round.to_s+"%" : "" - x + " [" + v.to_s + "]" + perc - } - end - - RADIANS = Math::PI/180 - - def draw_data - @graph = @root.add_element( "g" ) - background = @graph.add_element("g") - midground = @graph.add_element("g") - - diameter = @graph_height > @graph_width ? @graph_width : @graph_height - diameter -= expand_gap if expanded or expand_greatest - diameter -= datapoint_font_size if show_data_labels - diameter -= 10 if show_shadow - radius = diameter / 2.0 - - xoff = (width - diameter) / 2 - yoff = (height - @border_bottom - diameter) - yoff -= 10 if show_shadow - @graph.attributes['transform'] = "translate( #{xoff} #{yoff} )" - - wedge_text_pad = 5 - wedge_text_pad = 20 if show_percent and show_data_labels - - total = 0 - max_value = 0 - @data.each {|x| - max_value = max_value < x ? x : max_value - total += x - } - percent_scale = 100.0 / total - - prev_percent = 0 - rad_mult = 3.6 * RADIANS - @config[:fields].each_index { |count| - value = @data[count] - percent = percent_scale * value - - radians = prev_percent * rad_mult - x_start = radius+(Math.sin(radians) * radius) - y_start = radius-(Math.cos(radians) * radius) - radians = (prev_percent+percent) * rad_mult - x_end = radius+(Math.sin(radians) * radius) - x_end -= 0.00001 if @data.length == 1 - y_end = radius-(Math.cos(radians) * radius) - path = "M#{radius},#{radius} L#{x_start},#{y_start} "+ - "A#{radius},#{radius} "+ - "0, #{percent >= 50 ? '1' : '0'},1, "+ - "#{x_end} #{y_end} Z" - - - wedge = @foreground.add_element( "path", { - "d" => path, - "class" => "fill#{count+1}" - }) - - translate = nil - tx = 0 - ty = 0 - half_percent = prev_percent + percent / 2 - radians = half_percent * rad_mult - - if show_shadow - shadow = background.add_element( "path", { - "d" => path, - "filter" => "url(#dropshadow)", - "style" => "fill: #ccc; stroke: none;" - }) - clear = midground.add_element( "path", { - "d" => path, - "style" => "fill: #fff; stroke: none;" - }) - end - - if expanded or (expand_greatest && value == max_value) - tx = (Math.sin(radians) * expand_gap) - ty = -(Math.cos(radians) * expand_gap) - translate = "translate( #{tx} #{ty} )" - wedge.attributes["transform"] = translate - clear.attributes["transform"] = translate if clear - end - - if show_shadow - shadow.attributes["transform"] = - "translate( #{tx+shadow_offset} #{ty+shadow_offset} )" - end - - if show_data_labels and value != 0 - label = "" - label += @config[:fields][count] if show_key_data_labels - label += " ["+value.to_s+"]" if show_actual_values - label += " "+percent.round.to_s+"%" if show_percent - - msr = Math.sin(radians) - mcr = Math.cos(radians) - tx = radius + (msr * radius) - ty = radius -(mcr * radius) - - if expanded or (expand_greatest && value == max_value) - tx += (msr * expand_gap) - ty -= (mcr * expand_gap) - end - @foreground.add_element( "text", { - "x" => tx.to_s, - "y" => ty.to_s, - "class" => "dataPointLabel", - "style" => "stroke: #fff; stroke-width: 2;" - }).text = label.to_s - @foreground.add_element( "text", { - "x" => tx.to_s, - "y" => ty.to_s, - "class" => "dataPointLabel", - }).text = label.to_s - end - - prev_percent += percent - } - end - - - def round val, to - up = 10**to.to_f - (val * up).to_i / up - end - - - def get_css - return < 500, - # :width => 300, - # :key => true, - # :scale_x_integers => true, - # :scale_y_integerrs => true, - # }) - # - # graph.add_data({ - # :data => projection - # :title => 'Projected', - # }) - # - # graph.add_data({ - # :data => actual, - # :title => 'Actual', - # }) - # - # print graph.burn() - # - # = Description - # - # Produces a graph of scalar data. - # - # This object aims to allow you to easily create high quality - # SVG[http://www.w3c.org/tr/svg] scalar plots. You can either use the - # default style sheet or supply your own. Either way there are many options - # which can be configured to give you control over how the graph is - # generated - with or without a key, data elements at each point, title, - # subtitle etc. - # - # = Examples - # - # http://www.germane-software/repositories/public/SVG/test/plot.rb - # - # = Notes - # - # The default stylesheet handles upto 10 data sets, if you - # use more you must create your own stylesheet and add the - # additional settings for the extra data sets. You will know - # if you go over 10 data sets as they will have no style and - # be in black. - # - # Unlike the other types of charts, data sets must contain x,y pairs: - # - # [ 1, 2 ] # A data set with 1 point: (1,2) - # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6) - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class Plot < Graph - - # In addition to the defaults set by Graph::initialize, sets - # [show_data_values] true - # [show_data_points] true - # [area_fill] false - # [stacked] false - def set_defaults - init_with( - :show_data_values => true, - :show_data_points => true, - :area_fill => false, - :stacked => false - ) - self.top_align = self.right_align = self.top_font = self.right_font = 1 - end - - # Determines the scaling for the X axis divisions. - # - # graph.scale_x_divisions = 2 - # - # would cause the graph to attempt to generate labels stepped by 2; EG: - # 0,2,4,6,8... - attr_accessor :scale_x_divisions - # Determines the scaling for the Y axis divisions. - # - # graph.scale_y_divisions = 0.5 - # - # would cause the graph to attempt to generate labels stepped by 0.5; EG: - # 0, 0.5, 1, 1.5, 2, ... - attr_accessor :scale_y_divisions - # Make the X axis labels integers - attr_accessor :scale_x_integers - # Make the Y axis labels integers - attr_accessor :scale_y_integers - # Fill the area under the line - attr_accessor :area_fill - # Show a small circle on the graph where the line - # goes from one point to the next. - attr_accessor :show_data_points - # Set the minimum value of the X axis - attr_accessor :min_x_value - # Set the minimum value of the Y axis - attr_accessor :min_y_value - - - # Adds data to the plot. The data must be in X,Y pairs; EG - # [ 1, 2 ] # A data set with 1 point: (1,2) - # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6) - def add_data data - @data = [] unless @data - - raise "No data provided by #{conf.inspect}" unless data[:data] and - data[:data].kind_of? Array - raise "Data supplied must be x,y pairs! "+ - "The data provided contained an odd set of "+ - "data points" unless data[:data].length % 2 == 0 - return if data[:data].length == 0 - - x = [] - y = [] - data[:data].each_index {|i| - (i%2 == 0 ? x : y) << data[:data][i] - } - sort( x, y ) - data[:data] = [x,y] - @data << data - end - - - protected - - def keys - @data.collect{ |x| x[:title] } - end - - def calculate_left_margin - super - label_left = get_x_labels[0].to_s.length / 2 * font_size * 0.6 - @border_left = label_left if label_left > @border_left - end - - def calculate_right_margin - super - label_right = get_x_labels[-1].to_s.length / 2 * font_size * 0.6 - @border_right = label_right if label_right > @border_right - end - - - X = 0 - Y = 1 - def x_range - max_value = @data.collect{|x| x[:data][X][-1] }.max - min_value = @data.collect{|x| x[:data][X][0] }.min - min_value = min_value "M#{x_start} #@graph_height #{lpath} V#@graph_height Z", - "class" => "fill#{line}" - }) - end - - @graph.add_element( "path", { - "d" => "M#{x_start} #{y_start} #{lpath}", - "class" => "line#{line}" - }) - - if show_data_points || show_data_values - x_points.each_index { |idx| - x = (x_points[idx] - x_min) * x_step - y = @graph_height - (y_points[idx] - y_min) * y_step - if show_data_points - @graph.add_element( "circle", { - "cx" => x.to_s, - "cy" => y.to_s, - "r" => "2.5", - "class" => "dataPoint#{line}" - }) - add_popup(x, y, format( x_points[idx], y_points[idx] )) if add_popups - end - make_datapoint_text( x, y-6, y_points[idx] ) if show_data_values - } - end - line += 1 - end - end - - def format x, y - "(#{(x * 100).to_i / 100}, #{(y * 100).to_i / 100})" - end - - def get_css - return < 640, - # :height => 480, - # :graph_title => title, - # :show_graph_title => true, - # :no_css => true, - # :scale_x_integers => true, - # :scale_y_integers => true, - # :min_x_value => 0, - # :min_y_value => 0, - # :show_data_labels => true, - # :show_x_guidelines => true, - # :show_x_title => true, - # :x_title => "Time", - # :stagger_x_labels => true, - # :stagger_y_labels => true, - # :x_label_format => "%m/%d/%y", - # }) - # - # graph.add_data({ - # :data => data1, - # :title => 'Data', - # }) - # - # print graph.burn() - # - # = Description - # - # Produces a graph of temporal scalar data. - # - # = Examples - # - # http://www.germane-software/repositories/public/SVG/test/schedule.rb - # - # = Notes - # - # The default stylesheet handles up to 10 data sets, if you - # use more you must create your own stylesheet and add the - # additional settings for the extra data sets. You will know - # if you go over 10 data sets as they will have no style and - # be in black. - # - # Note that multiple data sets within the same chart can differ in - # length, and that the data in the datasets needn't be in order; - # they will be ordered by the plot along the X-axis. - # - # The dates must be parseable by ParseDate, but otherwise can be - # any order of magnitude (seconds within the hour, or years) - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # * SVG::Graph::TimeSeries - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class Schedule < Graph - # In addition to the defaults set by Graph::initialize and - # Plot::set_defaults, sets: - # [x_label_format] '%Y-%m-%d %H:%M:%S' - # [popup_format] '%Y-%m-%d %H:%M:%S' - def set_defaults - init_with( - :x_label_format => '%Y-%m-%d %H:%M:%S', - :popup_format => '%Y-%m-%d %H:%M:%S', - :scale_x_divisions => false, - :scale_x_integers => false, - :bar_gap => true - ) - end - - # The format string use do format the X axis labels. - # See Time::strformat - attr_accessor :x_label_format - # Use this to set the spacing between dates on the axis. The value - # must be of the form - # "\d+ ?(days|weeks|months|years|hours|minutes|seconds)?" - # - # EG: - # - # graph.timescale_divisions = "2 weeks" - # - # will cause the chart to try to divide the X axis up into segments of - # two week periods. - attr_accessor :timescale_divisions - # The formatting used for the popups. See x_label_format - attr_accessor :popup_format - attr_accessor :min_x_value - attr_accessor :scale_x_divisions - attr_accessor :scale_x_integers - attr_accessor :bar_gap - - # Add data to the plot. - # - # # A data set with 1 point: Lunch from 12:30 to 14:00 - # d1 = [ "Lunch", "12:30", "14:00" ] - # # A data set with 2 points: "Cats" runs from 5/11/03 to 7/15/04, and - # # "Henry V" runs from 6/12/03 to 8/20/03 - # d2 = [ "Cats", "5/11/03", "7/15/04", - # "Henry V", "6/12/03", "8/20/03" ] - # - # graph.add_data( - # :data => d1, - # :title => 'Meetings' - # ) - # graph.add_data( - # :data => d2, - # :title => 'Plays' - # ) - # - # Note that the data must be in time,value pairs, and that the date format - # may be any date that is parseable by ParseDate. - # Also note that, in this example, we're mixing scales; the data from d1 - # will probably not be discernible if both data sets are plotted on the same - # graph, since d1 is too granular. - def add_data data - @data = [] unless @data - - raise "No data provided by #{conf.inspect}" unless data[:data] and - data[:data].kind_of? Array - raise "Data supplied must be title,from,to tripples! "+ - "The data provided contained an odd set of "+ - "data points" unless data[:data].length % 3 == 0 - return if data[:data].length == 0 - - - y = [] - x_start = [] - x_end = [] - data[:data].each_index {|i| - im3 = i%3 - if im3 == 0 - y << data[:data][i] - else - arr = ParseDate.parsedate( data[:data][i] ) - t = Time.local( *arr[0,6].compact ) - (im3 == 1 ? x_start : x_end) << t.to_i - end - } - sort( x_start, x_end, y ) - @data = [x_start, x_end, y ] - end - - - protected - - def min_x_value=(value) - arr = ParseDate.parsedate( value ) - @min_x_value = Time.local( *arr[0,6].compact ).to_i - end - - - def format x, y - Time.at( x ).strftime( popup_format ) - end - - def get_x_labels - rv = get_x_values.collect { |v| Time.at(v).strftime( x_label_format ) } - end - - def y_label_offset( height ) - height / -2.0 - end - - def get_y_labels - @data[2] - end - - def draw_data - fieldheight = field_height - fieldwidth = field_width - - bargap = bar_gap ? (fieldheight < 10 ? fieldheight / 2 : 10) : 0 - subbar_height = fieldheight - bargap - - field_count = 1 - y_mod = (subbar_height / 2) + (font_size / 2) - min,max,div = x_range - scale = (@graph_width.to_f - font_size*2) / (max-min) - @data[0].each_index { |i| - x_start = @data[0][i] - x_end = @data[1][i] - y = @graph_height - (fieldheight * field_count) - bar_width = (x_end-x_start) * scale - bar_start = x_start * scale - (min * scale) - - @graph.add_element( "rect", { - "x" => bar_start.to_s, - "y" => y.to_s, - "width" => bar_width.to_s, - "height" => subbar_height.to_s, - "class" => "fill#{field_count+1}" - }) - field_count += 1 - } - end - - def get_css - return < 12 - arr[5] += (arr[4] / 12).to_i - arr[4] = (arr[4] % 12) - end - cur = Time.local(*arr).to_i - end - when "years" - cur = min - while cur < max - rv << cur - arr = Time.at( cur ).to_a - arr[5] += amount - cur = Time.local(*arr).to_i - end - when "weeks" - step = 7 * 24 * 60 * 60 * amount - when "days" - step = 24 * 60 * 60 * amount - when "hours" - step = 60 * 60 * amount - when "minutes" - step = 60 * amount - when "seconds" - step = amount - end - min.step( max, step ) {|v| rv << v} if step - - return rv - end - end - min.step( max, scale_division ) {|v| rv << v} - return rv - end - end - end -end diff --git a/lib/SVG/Graph/TimeSeries.rb b/lib/SVG/Graph/TimeSeries.rb deleted file mode 100644 index 3f45b291d..000000000 --- a/lib/SVG/Graph/TimeSeries.rb +++ /dev/null @@ -1,238 +0,0 @@ -require 'SVG/Graph/Plot' - -module SVG - module Graph - # === For creating SVG plots of scalar temporal data - # - # = Synopsis - # - # require 'SVG/Graph/TimeSeriess' - # - # # Data sets are x,y pairs - # data1 = ["6/17/72", 11, "1/11/72", 7, "4/13/04 17:31", 11, - # "9/11/01", 9, "9/1/85", 2, "9/1/88", 1, "1/15/95", 13] - # data2 = ["8/1/73", 18, "3/1/77", 15, "10/1/98", 4, - # "5/1/02", 14, "3/1/95", 6, "8/1/91", 12, "12/1/87", 6, - # "5/1/84", 17, "10/1/80", 12] - # - # graph = SVG::Graph::TimeSeries.new( { - # :width => 640, - # :height => 480, - # :graph_title => title, - # :show_graph_title => true, - # :no_css => true, - # :key => true, - # :scale_x_integers => true, - # :scale_y_integers => true, - # :min_x_value => 0, - # :min_y_value => 0, - # :show_data_labels => true, - # :show_x_guidelines => true, - # :show_x_title => true, - # :x_title => "Time", - # :show_y_title => true, - # :y_title => "Ice Cream Cones", - # :y_title_text_direction => :bt, - # :stagger_x_labels => true, - # :x_label_format => "%m/%d/%y", - # }) - # - # graph.add_data({ - # :data => projection - # :title => 'Projected', - # }) - # - # graph.add_data({ - # :data => actual, - # :title => 'Actual', - # }) - # - # print graph.burn() - # - # = Description - # - # Produces a graph of temporal scalar data. - # - # = Examples - # - # http://www.germane-software/repositories/public/SVG/test/timeseries.rb - # - # = Notes - # - # The default stylesheet handles upto 10 data sets, if you - # use more you must create your own stylesheet and add the - # additional settings for the extra data sets. You will know - # if you go over 10 data sets as they will have no style and - # be in black. - # - # Unlike the other types of charts, data sets must contain x,y pairs: - # - # [ "12:30", 2 ] # A data set with 1 point: ("12:30",2) - # [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and - # # ("14:20",6) - # - # Note that multiple data sets within the same chart can differ in length, - # and that the data in the datasets needn't be in order; they will be ordered - # by the plot along the X-axis. - # - # The dates must be parseable by ParseDate, but otherwise can be - # any order of magnitude (seconds within the hour, or years) - # - # = See also - # - # * SVG::Graph::Graph - # * SVG::Graph::BarHorizontal - # * SVG::Graph::Bar - # * SVG::Graph::Line - # * SVG::Graph::Pie - # * SVG::Graph::Plot - # - # == Author - # - # Sean E. Russell - # - # Copyright 2004 Sean E. Russell - # This software is available under the Ruby license[LICENSE.txt] - # - class TimeSeries < Plot - # In addition to the defaults set by Graph::initialize and - # Plot::set_defaults, sets: - # [x_label_format] '%Y-%m-%d %H:%M:%S' - # [popup_format] '%Y-%m-%d %H:%M:%S' - def set_defaults - super - init_with( - #:max_time_span => '', - :x_label_format => '%Y-%m-%d %H:%M:%S', - :popup_format => '%Y-%m-%d %H:%M:%S' - ) - end - - # The format string use do format the X axis labels. - # See Time::strformat - attr_accessor :x_label_format - # Use this to set the spacing between dates on the axis. The value - # must be of the form - # "\d+ ?(days|weeks|months|years|hours|minutes|seconds)?" - # - # EG: - # - # graph.timescale_divisions = "2 weeks" - # - # will cause the chart to try to divide the X axis up into segments of - # two week periods. - attr_accessor :timescale_divisions - # The formatting used for the popups. See x_label_format - attr_accessor :popup_format - - # Add data to the plot. - # - # d1 = [ "12:30", 2 ] # A data set with 1 point: ("12:30",2) - # d2 = [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and - # # ("14:20",6) - # graph.add_data( - # :data => d1, - # :title => 'One' - # ) - # graph.add_data( - # :data => d2, - # :title => 'Two' - # ) - # - # Note that the data must be in time,value pairs, and that the date format - # may be any date that is parseable by ParseDate. - def add_data data - @data = [] unless @data - - raise "No data provided by #{@data.inspect}" unless data[:data] and - data[:data].kind_of? Array - raise "Data supplied must be x,y pairs! "+ - "The data provided contained an odd set of "+ - "data points" unless data[:data].length % 2 == 0 - return if data[:data].length == 0 - - - x = [] - y = [] - data[:data].each_index {|i| - if i%2 == 0 - t = DateTime.parse( data[:data][i] ).to_time - x << t.to_i - else - y << data[:data][i] - end - } - sort( x, y ) - data[:data] = [x,y] - @data << data - end - - - protected - - def min_x_value=(value) - @min_x_value = DateTime.parse( value ).to_time - end - - - def format x, y - Time.at( x ).strftime( popup_format ) - end - - def get_x_labels - get_x_values.collect { |v| Time.at(v).strftime( x_label_format ) } - end - - private - def get_x_values - rv = [] - min, max, scale_division = x_range - if timescale_divisions - timescale_divisions =~ /(\d+) ?(day|week|month|year|hour|minute|second)?/ - division_units = $2 ? $2 : "day" - amount = $1.to_i - if amount - step = nil - case division_units - when "month" - cur = min - while cur < max - rv << cur - arr = Time.at( cur ).to_a - arr[4] += amount - if arr[4] > 12 - arr[5] += (arr[4] / 12).to_i - arr[4] = (arr[4] % 12) - end - cur = Time.local(*arr).to_i - end - when "year" - cur = min - while cur < max - rv << cur - arr = Time.at( cur ).to_a - arr[5] += amount - cur = Time.local(*arr).to_i - end - when "week" - step = 7 * 24 * 60 * 60 * amount - when "day" - step = 24 * 60 * 60 * amount - when "hour" - step = 60 * 60 * amount - when "minute" - step = 60 * amount - when "second" - step = amount - end - min.step( max, step ) {|v| rv << v} if step - - return rv - end - end - min.step( max, scale_division ) {|v| rv << v} - return rv - end - end - end -end diff --git a/lib/SVG/LICENSE.txt b/lib/SVG/LICENSE.txt deleted file mode 100644 index 2b945d276..000000000 --- a/lib/SVG/LICENSE.txt +++ /dev/null @@ -1,57 +0,0 @@ -SVG::Graph is copyrighted free software by Sean Russell . -You can redistribute it and/or modify it under either the terms of the GPL -(see GPL.txt file), or the conditions below: - - 1. You may make and give away verbatim copies of the source form of the - software without restriction, provided that you duplicate all of the - original copyright notices and associated disclaimers. - - 2. You may modify your copy of the software in any way, provided that - you do at least ONE of the following: - - a) place your modifications in the Public Domain or otherwise - make them Freely Available, such as by posting said - modifications to Usenet or an equivalent medium, or by allowing - the author to include your modifications in the software. - - b) use the modified software only within your corporation or - organization. - - c) rename any non-standard executables so the names do not conflict - with standard executables, which must also be provided. - - d) make other distribution arrangements with the author. - - 3. You may distribute the software in object code or executable - form, provided that you do at least ONE of the following: - - a) distribute the executables and library files of the software, - together with instructions (in the manual page or equivalent) - on where to get the original distribution. - - b) accompany the distribution with the machine-readable source of - the software. - - c) give non-standard executables non-standard names, with - instructions on where to get the original software distribution. - - d) make other distribution arrangements with the author. - - 4. You may modify and include the part of the software into any other - software (possibly commercial). But some files in the distribution - are not written by the author, so that they are not under this terms. - - All files of this sort are located under the contrib/ directory. - See each file for the copying condition. - - 5. The scripts and library files supplied as input to or produced as - output from the software do not automatically fall under the - copyright of the software, but belong to whomever generated them, - and may be sold commercially, and may be aggregated with this - software. - - 6. THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR - IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED - WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR - PURPOSE. - -- 2.39.5