interpretor/preprocessor/faust-0.9.47mr3/compiler/draw/schema/recSchema.cpp

   1 /************************************************************************
   2  ************************************************************************
   3     FAUST compiler
   4         Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
   5     ---------------------------------------------------------------------
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19  ************************************************************************
  20  ************************************************************************/
  21
  22
  23 #include "recSchema.h"
  24 #include <iostream>
  25 #include <assert.h>
  26
  27 using namespace std;
  28
  29 /**
  30  * Creates a new recursive schema (s1 ~ s2). The smallest component is
  31  * enlarged to the width of the other. The left and right horizontal
  32  * margins are computed according to the number of internal connections.
  33  */
  34 schema* makeRecSchema (schema* s1, schema* s2)
  35 {
  36         schema* a = makeEnlargedSchema(s1, s2->width());
  37         schema* b = makeEnlargedSchema(s2, s1->width());
  38         double  m = dWire * max(b->inputs(), b->outputs());
  39         double  w = a->width() + 2*m;
  40
  41         return new recSchema(a,b,w);
  42 }
  43
  44 /**
  45  * Constructor of a recursive schema (s1 ~ s2). The two components
  46  * are supposed to have the same width.
  47  */
  48 recSchema::recSchema (schema* s1, schema* s2, double width)
  49         :       schema( s1->inputs() - s2->outputs(),
  50                                 s1->outputs(),
  51                                 width,
  52                                 s1->height() + s2->height() ),
  53                 fSchema1(s1),
  54                 fSchema2(s2)
  55 {
  56         // this version only accepts legal expressions of same width
  57         assert(s1->inputs() >= s2->outputs());
  58         assert(s1->outputs() >= s2->inputs());
  59         assert(s1->width() >= s2->width());
  60
  61         // create the input and output points
  62     for (unsigned int i=0; i<inputs(); i++)     fInputPoint.push_back(point(0,0));
  63     for (unsigned int i=0; i<outputs(); i++)    fOutputPoint.push_back(point(0,0));
  64
  65 }
  66
  67 /**
  68  * The two subschema are placed centered vertically, s2 on top of s1.
  69  * The input and output points are computed.
  70  */
  71 void recSchema::place(double ox, double oy, int orientation)
  72 {
  73         beginPlace(ox, oy, orientation);
  74
  75         double dx1 = (width() - fSchema1->width())/2;
  76         double dx2 = (width() - fSchema2->width())/2;
  77
  78         // place the two sub diagrams
  79         if (orientation == kLeftRight) {
  80                 fSchema2->place(ox+dx2, oy, kRightLeft);
  81                 fSchema1->place(ox+dx1, oy+fSchema2->height(), kLeftRight);
  82         } else {
  83                 fSchema1->place(ox+dx1, oy, kRightLeft);
  84                 fSchema2->place(ox+dx2, oy+fSchema1->height(), kLeftRight);
  85         }
  86
  87
  88         // adjust delta space to orientation
  89         if (orientation == kRightLeft) { dx1 = -dx1; }
  90
  91         // place input points
  92         for (unsigned int i=0; i<inputs(); i++) {
  93                 point p = fSchema1->inputPoint(i+fSchema2->outputs());
  94                 fInputPoint[i] = point(p.x-dx1, p.y);
  95         }
  96
  97         // place output points
  98         for (unsigned int i=0; i<outputs(); i++) {
  99                 point p = fSchema1->outputPoint(i);
 100                 fOutputPoint[i] = point(p.x+dx1, p.y);
 101         }
 102
 103         endPlace();
 104 }
 105
 106
 107 /**
 108  * The input points s1 ~ s2
 109  */
 110 point recSchema::inputPoint(unsigned int i) const
 111 {
 112         return fInputPoint[i];
 113 }
 114
 115
 116 /**
 117  * The output points s1 ~ s2
 118  */
 119 point recSchema::outputPoint(unsigned int i) const
 120 {
 121         return fOutputPoint[i];
 122 }
 123
 124
 125 /**
 126  * Draw the two subschema s1 and s2 as well as the feedback
 127  * connections between s1 and s2, and the feedfrom connections
 128  * beetween s2 and s1.
 129  */
 130 void recSchema::draw(device& dev)
 131 {
 132     assert(placed());
 133
 134     // draw the two subdiagrams
 135     fSchema1->draw(dev);
 136     fSchema2->draw(dev);
 137
 138     // draw the output lines
 139     for (unsigned int i=0; i<outputs(); i++) {
 140         point p = fSchema1->outputPoint(i);
 141         point q = outputPoint(i);
 142         //dev.trait(p.x, p.y, q.x, q.y);
 143     }
 144
 145     // draw the input lines
 146     unsigned int skip = fSchema2->outputs();
 147     for (unsigned int i=0; i<inputs(); i++) {
 148         point p = fSchema1->inputPoint(i+skip);
 149         point q = inputPoint(i);
 150         //dev.trait(p.x, p.y, q.x, q.y);
 151     }
 152
 153     // draw the feedback connections to each fSchema2 input
 154     for (unsigned int i=0; i<fSchema2->inputs(); i++) {
 155         drawFeedback(dev, fSchema1->outputPoint(i), fSchema2->inputPoint(i), i*dWire);
 156     }
 157
 158     // draw the feedfront connections from each fSchema2 output
 159     for (unsigned int i=0; i<fSchema2->outputs(); i++) {
 160         drawFeedfront(dev, fSchema2->outputPoint(i), fSchema1->inputPoint(i), i*dWire);
 161     }
 162 }
 163
 164
 165 /**
 166  * Draw the delay sign of a feedback connection
 167  */
 168 void recSchema::drawDelaySign(device& dev, double x, double y, double size)
 169 {
 170     dev.trait(x-size/2, y, x-size/2, y-size);
 171     dev.trait(x-size/2, y-size, x+size/2, y-size);
 172     dev.trait(x+size/2, y-size, x+size/2, y);
 173 }
 174
 175
 176 /**
 177  * Draw the two subschema s1 and s2 as well as the feedback
 178  * connections between s1 and s2, and the feedfrom connections
 179  * beetween s2 and s1.
 180  */
 181 void recSchema::collectTraits(collector& c)
 182 {
 183     assert(placed());
 184
 185     // draw the two subdiagrams
 186     fSchema1->collectTraits(c);
 187     fSchema2->collectTraits(c);
 188
 189     // draw the feedback connections to each fSchema2 input
 190     for (unsigned int i=0; i<fSchema2->inputs(); i++) {
 191         collectFeedback(c, fSchema1->outputPoint(i), fSchema2->inputPoint(i), i*dWire, outputPoint(i));
 192     }
 193
 194     // draw the non recursive output lines
 195     for (unsigned int i=fSchema2->inputs(); i<outputs(); i++) {
 196         point p = fSchema1->outputPoint(i);
 197         point q = outputPoint(i);
 198         c.addTrait(trait(p,q));     // in->out order
 199     }
 200
 201     // draw the input lines
 202     unsigned int skip = fSchema2->outputs();
 203     for (unsigned int i=0; i<inputs(); i++) {
 204         point p = inputPoint(i);
 205         point q = fSchema1->inputPoint(i+skip);
 206         c.addTrait(trait(p,q));     // in->out order
 207     }
 208
 209     // draw the feedfront connections from each fSchema2 output
 210     for (unsigned int i=0; i<fSchema2->outputs(); i++) {
 211         collectFeedfront(c, fSchema2->outputPoint(i), fSchema1->inputPoint(i), i*dWire);
 212     }
 213 }
 214
 215
 216
 217 /**
 218  * Draw a feedback connection between two points with an horizontal
 219  * displacement dx
 220  */
 221 void recSchema::drawFeedback(device& dev, const point& src, const point& dst, double dx)
 222 {
 223     double      ox = src.x + ((orientation()==kLeftRight) ? dx : -dx);
 224     double      ct = (orientation()==kLeftRight) ? dWire/2 : -dWire/2;
 225
 226     drawDelaySign(dev, ox, src.y, ct);
 227     //dev.trait(ox, src.y-ct, ox, dst.y);
 228     //dev.trait(ox, dst.y, dst.x, dst.y);
 229 }
 230
 231
 232
 233 /**
 234  * Draw a feedback connection between two points with an horizontal
 235  * displacement dx
 236  */
 237 void recSchema::collectFeedback(collector& c, const point& src, const point& dst, double dx, const point& out)
 238 {
 239     double      ox = src.x + ((orientation()==kLeftRight) ? dx : -dx);
 240     double      ct = (orientation()==kLeftRight) ? dWire/2 : -dWire/2;
 241
 242     point   up(ox, src.y-ct);
 243     point   br(ox+ct/2.0, src.y);
 244
 245     c.addOutput(up);
 246     c.addOutput(br);
 247     c.addInput(br);
 248
 249     c.addTrait(trait(up, point(ox, dst.y)));
 250     c.addTrait(trait(point(ox, dst.y), point(dst.x, dst.y)));
 251     c.addTrait(trait(src,br));
 252     c.addTrait(trait(br,out));
 253
 254 }
 255
 256
 257 /**
 258  * Draw a feedfrom connection between two points with an horizontal
 259  * displacement dx
 260  */
 261 void recSchema::drawFeedfront(device& dev, const point& src, const point& dst, double dx)
 262 {
 263 //    double    ox = src.x + ((orientation()==kLeftRight) ? -dx : dx);
 264
 265 //      dev.trait(ox, src.y, src.x, src.y);
 266 //      dev.trait(ox, src.y, ox, dst.y);
 267 //      dev.trait(ox, dst.y, dst.x, dst.y);
 268 }
 269
 270
 271 /**
 272  * Draw a feedfrom connection between two points with an horizontal
 273  * displacement dx
 274  */
 275 void recSchema::collectFeedfront(collector& c, const point& src, const point& dst, double dx)
 276 {
 277     double      ox = src.x + ((orientation()==kLeftRight) ? -dx : dx);
 278
 279     c.addTrait(trait(point(src.x, src.y), point(ox, src.y)));
 280     c.addTrait(trait(point(ox, src.y), point(ox, dst.y)));
 281     c.addTrait(trait(point(ox, dst.y), point(dst.x, dst.y)));
 282 }