ROOT logo
// $Id: Glass_SKEL.xxx 2089 2008-11-23 20:31:03Z matevz $

// Copyright (C) 1999-2008, Matevz Tadel. All rights reserved.
// This file is part of GLED, released under GNU General Public License version 2.
// For the licensing terms see $GLEDSYS/LICENSE or http://www.gnu.org/.

#include "MonopodialHerb.h"
#include "MonopodialHerb.c7"

// MonopodialHerb

//______________________________________________________________________________
//
//

ClassImp(MonopodialHerb);

//==============================================================================

void MonopodialHerb::_init()
{
  mStart.x('I', 9).x('a', 13);
}

MonopodialHerb::MonopodialHerb(const Text_t* n, const Text_t* t) :
  GrowingPlant(n, t) 
{
  _init();
}

MonopodialHerb::~MonopodialHerb()
{}

//==============================================================================
void MonopodialHerb::SegmentStepTime(Segments_i oldRef, Segments_t& in, Segments_t& out)
{
  out.s('/', 137);
  out.s('+', 17);
  out.s('-', 17);
  
  Segment& seg = *oldRef;
  switch (seg.mType) {
    case 'a': 
      out.s('I', 10).s('&', 70);
      out.x("[&L]/I");
      if (seg.mParam1 > 0)
        out.x('a', seg.mParam1-1); 
      else 
        out.x('A', -1);   
      break;
      
    case  'A':
      out.s('&', 18).s('u', 4).s('X', 5);
      out.x("[&uFF").x('I', 10).x('I', 5).x("XKKKK]/IA");
      break;
      
    case 'I':
      out.x('F', 1); 
      if (seg.mParam1 > 0) out.x('I', seg.mParam1-1);
      break;
      
    case 'u':
      out.x('&', 9); 
      if (seg.mParam1 > 0) out.x('u', seg.mParam1-1);
      break;
    
    case 'L':
      out.s('I', 7);
      out.x("[{.-FI+FI+FI}] [{.+FI-FI-FI}]");
      break;

    case 'K':
      out.s('I', 2).s('/', 90);
      out.x("\['&{.+FI--FI}] ['&{.-FI++FI}]/");
      break; 
      
    case 'X':
      if (seg.mParam1 > 0)
        out.x('X', seg.mParam1 -1);
      else
        out.s('^', 50).x("^[[-GGGG++[GGG[++G{.].].]. ++GGGG.--GGG.--G.}]%");
      break;    
      
    default:
      // copy existing
      out.x(seg.mType, seg.mParam1);
      break;
  }
}
 MonopodialHerb.cxx:1
 MonopodialHerb.cxx:2
 MonopodialHerb.cxx:3
 MonopodialHerb.cxx:4
 MonopodialHerb.cxx:5
 MonopodialHerb.cxx:6
 MonopodialHerb.cxx:7
 MonopodialHerb.cxx:8
 MonopodialHerb.cxx:9
 MonopodialHerb.cxx:10
 MonopodialHerb.cxx:11
 MonopodialHerb.cxx:12
 MonopodialHerb.cxx:13
 MonopodialHerb.cxx:14
 MonopodialHerb.cxx:15
 MonopodialHerb.cxx:16
 MonopodialHerb.cxx:17
 MonopodialHerb.cxx:18
 MonopodialHerb.cxx:19
 MonopodialHerb.cxx:20
 MonopodialHerb.cxx:21
 MonopodialHerb.cxx:22
 MonopodialHerb.cxx:23
 MonopodialHerb.cxx:24
 MonopodialHerb.cxx:25
 MonopodialHerb.cxx:26
 MonopodialHerb.cxx:27
 MonopodialHerb.cxx:28
 MonopodialHerb.cxx:29
 MonopodialHerb.cxx:30
 MonopodialHerb.cxx:31
 MonopodialHerb.cxx:32
 MonopodialHerb.cxx:33
 MonopodialHerb.cxx:34
 MonopodialHerb.cxx:35
 MonopodialHerb.cxx:36
 MonopodialHerb.cxx:37
 MonopodialHerb.cxx:38
 MonopodialHerb.cxx:39
 MonopodialHerb.cxx:40
 MonopodialHerb.cxx:41
 MonopodialHerb.cxx:42
 MonopodialHerb.cxx:43
 MonopodialHerb.cxx:44
 MonopodialHerb.cxx:45
 MonopodialHerb.cxx:46
 MonopodialHerb.cxx:47
 MonopodialHerb.cxx:48
 MonopodialHerb.cxx:49
 MonopodialHerb.cxx:50
 MonopodialHerb.cxx:51
 MonopodialHerb.cxx:52
 MonopodialHerb.cxx:53
 MonopodialHerb.cxx:54
 MonopodialHerb.cxx:55
 MonopodialHerb.cxx:56
 MonopodialHerb.cxx:57
 MonopodialHerb.cxx:58
 MonopodialHerb.cxx:59
 MonopodialHerb.cxx:60
 MonopodialHerb.cxx:61
 MonopodialHerb.cxx:62
 MonopodialHerb.cxx:63
 MonopodialHerb.cxx:64
 MonopodialHerb.cxx:65
 MonopodialHerb.cxx:66
 MonopodialHerb.cxx:67
 MonopodialHerb.cxx:68
 MonopodialHerb.cxx:69
 MonopodialHerb.cxx:70
 MonopodialHerb.cxx:71
 MonopodialHerb.cxx:72
 MonopodialHerb.cxx:73
 MonopodialHerb.cxx:74
 MonopodialHerb.cxx:75
 MonopodialHerb.cxx:76
 MonopodialHerb.cxx:77
 MonopodialHerb.cxx:78
 MonopodialHerb.cxx:79
 MonopodialHerb.cxx:80
 MonopodialHerb.cxx:81
 MonopodialHerb.cxx:82
 MonopodialHerb.cxx:83
 MonopodialHerb.cxx:84
 MonopodialHerb.cxx:85
 MonopodialHerb.cxx:86
 MonopodialHerb.cxx:87
 MonopodialHerb.cxx:88
 MonopodialHerb.cxx:89