ctioga 1.11.1

data/lib/CTioga/themes/classical.rb

@@ -0,0 +1,82 @@
+# theme/classical.rb, copyright (c) 2007 by Vincent Fourmond: 
+# The "classical" theme
+  
+# 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 (in the COPYING file).
+
+
+require 'Tioga/tioga'
+require 'CTioga/themes'
+require 'CTioga/movingarrays'
+
+
+module CTioga
+
+  module Themes
+
+    class ClassicalTheme < BaseTheme
+
+      include Tioga::FigureConstants
+
+      # Mainly for listing purposes:
+      attr_reader :sets
+
+      def initialize(color_set = 'standard',
+                     marker_set = 'standard',
+                     # By default, the marker color will match
+                     # the line color, even if the latter is set
+                     # manually.
+                     marker_color_set = :"=>color",
+                     linestyle_set = Line_Type_Solid)
+        @sets = {
+          :colors => MovingArray.new(Styles::COLORS, color_set),
+          :markers => MovingArray.new(Styles::MARKERS, marker_set),
+          :markers_colors => MovingArray.new(Styles::COLORS, 
+                                          marker_color_set),
+          :linestyle => MovingArray.new(Styles::LINES, linestyle_set)
+        }
+     end
+
+
+      def next_curve_style(name)
+        style = CurveStyle.new(@sets[:colors].value, 
+                               @sets[:markers].value,
+                               @sets[:markers_colors].value,
+                               @sets[:linestyle].value,
+                               name,
+                               1.0,
+                               false,  # Does not interpolate by default
+                               0.5)
+        return style
+      end
+
+      def choose_set(type, set)
+        @sets[type].choose_current_set(set)
+      end
+
+    end
+
+    # Some pastel colors... Just a demonstration of what you can
+    # actually do.
+    class PastelTheme < ClassicalTheme
+
+      def initialize
+        super('pastel1')
+      end
+
+      def cmdline_extra_args
+        return ["--background", "FloralWhite"]
+      end
+
+    end
+
+  end
+
+end

data/lib/CTioga/themes/demo.rb

@@ -0,0 +1,63 @@
+# theme/demo.rb, copyright (c) 2007 by Vincent Fourmond: 
+# The "demo" theme, a theme that demonstrates some
+# possibilities of the theme stuff.
+  
+# 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 (in the COPYING file).
+
+
+# This file is intended as a small display of the possibilities
+# of the theme thing. Please have a look at this code and also
+# make sure you understand how the classical (default) theme is
+# working, and then play around with this file.
+#
+# bod_hook and cmdline_extra_args can both do similar things,
+# although not completely equivalent. Moreover, I find it is
+# always good to have several ways to do things.
+
+require 'CTioga/themes/classical'
+
+module CTioga
+  
+  module Themes
+    
+    class DemoTheme < ClassicalTheme
+      
+      def initialize
+        super                   # We don't want to use more for now
+      end
+
+      # To understand the following code, I can only encourage
+      # you to have a look at Tioga's rdoc documentation, which
+      # can be generated on your tioga source tree or
+      # browsed online at
+      # 
+      # http://tioga.rubyforge.org/doc/
+      #
+      # The _t_ argument is a Tioga::FigureMaker object that
+      # is in charge of actually drawing the plots.
+      def bod_hook(t)
+        t.tex_fontfamily = 'sfdefault' # Sans serif fonts
+        t.tex_xaxis_numeric_label = '$x = #1$'
+        t.tex_yaxis_numeric_label = '$y = #1$'
+      end
+
+      # This function pushes back some arguments to the command
+      # line. No further processing happens, so you need to
+      # make sure that you did correct splitting: 
+      # ['--marker auto'] is wrong: use ['--marker', 'auto'] instead.
+      def cmdline_extra_args
+        return ["--background", "Cornsilk"]
+      end
+    end
+
+  end
+
+end

data/lib/CTioga/themes/fits.rb

@@ -0,0 +1,91 @@
+# theme/fits.rb, copyright (c) 2007 by Vincent Fourmond: 
+# The "fits" theme
+  
+# 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 (in the COPYING file).
+
+
+require 'Tioga/tioga'
+require 'CTioga/themes'
+require 'CTioga/movingarrays'
+
+
+module CTioga
+
+  module Themes
+
+    # A theme where marker-only curves (data) alternate with
+    # lines-only curves (fits)
+    class FitsTheme < BaseTheme
+      
+      include Tioga::FigureConstants
+
+      # Mainly for listing purposes:
+      attr_reader :sets
+
+      def initialize(color_set = 'standard',
+                     marker_set = 'standard',
+                     # By default, the marker color will match
+                     # the line color, even if the latter is set
+                     # manually.
+                     marker_color_set = :"=>color",
+                     linestyle_set = Line_Type_Solid)
+        @sets = {
+          :colors => MovingArray.new(Styles::COLORS, color_set),
+          :markers => MovingArray.new(Styles::MARKERS, marker_set),
+          :markers_colors => MovingArray.new(Styles::COLORS, 
+                                          marker_color_set),
+          :linestyle => MovingArray.new(Styles::LINES, linestyle_set)
+        }
+        
+        @data = true
+      end
+      
+      
+      def next_curve_style(name)
+        if @data
+          @last_color = @sets[:colors].value
+          style = CurveStyle.new(@last_color, 
+                                 @sets[:markers].value,
+                                 @last_color,
+                                 false,
+                                 name, 
+                                 1.0,
+                                 false,  # Does not interpolate by default
+                                 0.5)
+          @data = false
+        else
+          style = CurveStyle.new(@last_color, 
+                                 false, 
+                                 @last_color,
+                                 @sets[:linestyle].value,
+                                 name, 
+                                 1.0,
+                                 true,  # Data is interpolated by default
+                                 0.5)
+          @data = true
+        end
+        return style
+      end
+
+      def choose_set(type, set)
+        @sets[type].choose_current_set(set)
+      end
+
+      def cmdline_extra_args
+        return ["--marker", "auto"]
+      end
+
+
+    end
+
+  end
+
+end

data/lib/CTioga/themes/mono.rb

@@ -0,0 +1,33 @@
+# theme/mono.rb, copyright (c) 2007 by Vincent Fourmond: 
+# The "mono" theme
+  
+# 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 (in the COPYING file).
+
+
+require 'CTioga/themes/classical'
+
+module CTioga
+  
+  module Themes
+    
+    class MonoTheme < ClassicalTheme
+      
+      def initialize
+        super(Tioga::FigureConstants::Black, 'standard', 
+              Tioga::FigureConstants::Black, 'standard')
+      end
+
+
+    end
+
+  end
+
+end

data/lib/CTioga/tioga.rb

@@ -0,0 +1,32 @@
+# tioga.rb, copyright (c) 2006 by Vincent Fourmond: 
+# The interface between Tioga and CTioga (to use CTioga from within
+# Tioga code)
+  
+# 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 (in the COPYING file).
+
+require 'Tioga/FigureMaker'
+require 'CTioga/plotmaker'
+require 'shellwords'
+
+CTioga::Version::register_svn_info('$Revision: 653 $', '$Date: 2007-11-15 21:58:42 +0100 (Thu, 15 Nov 2007) $')
+
+class FigureMaker
+
+
+   def def_figure_ctioga(name, cmdline)
+      CTioga.define_tioga_figure(self, 'CTioga', *Shellwords.shellwords(cmdline))
+   end
+
+   def show_plot_ctioga(cmdline)
+      CTioga.show_tioga_plot(self, *Shellwords.shellwords(cmdline))
+   end
+
+end # FigureMaker 

data/lib/CTioga/utils.rb

@@ -0,0 +1,173 @@
+# utils.rb, copyright (c) 2006 by Vincent Fourmond: 
+# Some small utility functions
+  
+# 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 (in the COPYING file).
+
+require 'Tioga/FigureMaker'
+
+module CTioga
+
+  # A module for small convenience functions.
+  module Utils
+
+    # A function that interprets a string according to a hash, and
+    # returns either what was found in the hash, or the result of the
+    # given block if that was not found -- or just the original string
+    # itself when no block was given and no corresponding hash element
+    # was found. Correspondance is done with the === operator.
+    #
+    # Actually, the first argument doesn't need to be a string.
+    def self.interpret_arg(arg, hash)
+      for key, val in hash
+        if key === arg
+          return val
+        end
+      end
+      if block_given?
+        return yield(arg)
+      else
+        return arg
+      end
+    end
+
+    # Returns a frame specification from a classical array
+    def self.framespec_str(a)
+      return "top : #{a[2]} bottom: #{a[3]} " +
+        "left : #{a[0]} right: #{a[1]}"
+    end
+
+    def self.frames_str(t)
+      return framespec_str([t.frame_left, t.frame_right,
+                            t.frame_top, t.frame_bottom])
+    end
+
+    # A function that takes care of converting the given parameter
+    # to a float, while ensuring that it was decently taken care of.
+    # Returns false if that happens not to be a float.
+    def safe_float(a)
+      return begin
+               Float(a)
+             rescue
+               warn "Expected a float, but got '#{a}' instead"
+               false
+             end
+    end
+
+    # A function that 'applies' a margin specification (like for
+    # show_plot_with_legend) to a frame spec (left,right,top,bottom).
+    #
+    # The margin spec has to contain all plot_*_margin things.
+    def self.apply_margin_to_frame(frame, margin)
+      width = frame[1] - frame[0]
+      height = frame[2] - frame[3]
+      dest = 
+        [ 
+         frame[0] + width * (margin['plot_left_margin'] || 
+                             margin['left']),
+         frame[1] - width * (margin['plot_right_margin']|| 
+                             margin['right']),
+         frame[2] - height * (margin['plot_top_margin'] || 
+                              margin['top']),
+         frame[3] + height * (margin['plot_bottom_margin'] || 
+                              margin['bottom'])
+        ]
+      return dest
+    end
+
+    def self.margin_hash(a)
+      if Hash === a
+        return a
+      else
+        return {
+          'left' => a[0],
+          'right' => a[1],
+          'top' => a[2],
+          'bottom' => a[3]
+        }
+      end
+    end
+
+
+    # Converts a location into the index of the corresponding
+    # coordinates...
+    Locations  = {
+      Tioga::FigureConstants::LEFT => 0,
+      Tioga::FigureConstants::RIGHT => 1,
+      Tioga::FigureConstants::TOP => 2,
+      Tioga::FigureConstants::BOTTOM => 3,
+    }
+
+    def self.location_index(d)
+      return Locations[d]
+    end
+
+
+    FrameNames = {
+      :left => 0,
+      :right => 1,
+      :bottom => 2,
+      :top => 3
+    }
+
+
+    # Returns true if the spec is left, right, top or bottom
+    def self.side?(spec)
+      return FrameNames.key?(spec.to_sym)
+    end
+
+    # Returns the position corresponding to the side:
+    def self.side(spec)
+      return FrameNames[spec.to_sym]
+    end
+
+  end
+
+  # A small module to deal with versions and dates
+  module Version
+
+    # The position of the URL, used for getting the version
+    SVN_URL = '$HeadURL: svn+ssh://rubyforge.org/var/svn/sciyag/trunk/SciYAG/ctioga/lib/utils.rb $'
+    
+    CTIOGA_VERSION = if SVN_URL =~ /releases\/ctioga-([^\/]+)/
+                       $1
+                     else
+                       "SVN version"
+                     end
+    
+    # The current version of the program.
+    def self.version
+      if CTIOGA_VERSION =~ /SVN/
+        return "SVN, revision #{SVN_INFO['revision']}, #{SVN_INFO['date']}"
+      else
+        return CTIOGA_VERSION
+      end
+    end
+
+    SVN_INFO = {
+      'revision' => 0,
+      'date' => "old"
+    }
+    
+    def self.register_svn_info(rev_str, date_str)
+      if rev_str =~ /(\d+)/
+        rev = $1
+        str = 'Date'
+        date = date_str.gsub(/\$#{str}: (.*)\$/) { $1 }
+        if SVN_INFO['revision'] < rev.to_i
+          SVN_INFO['revision'] = rev.to_i
+          SVN_INFO['date'] = date
+        end
+      end
+    end
+
+    register_svn_info('$Revision: 780 $', '$Date: 2008-03-09 14:25:14 +0100 (Sun, 09 Mar 2008) $')
+  end
+end