Erosion and dilasion by square successfully tested.
[Faustine.git] / interpretor / faust-0.9.47mr3 / compiler / draw / schema / splitSchema.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 "splitSchema.h"
24 #include <iostream>
25 #include <assert.h>
26
27 using namespace std;
28
29 /**
30 * Creates a new split schema. Cables are enlarged to dWire.
31 * The horizontal gap between the two subschema is such that
32 * the connections are not too slopy.
33 */
34 schema* makeSplitSchema (schema* s1, schema* s2)
35 {
36 // make sure a and b are at least dWire large
37 schema * a = makeEnlargedSchema(s1, dWire);
38 schema * b = makeEnlargedSchema(s2, dWire);
39
40 // horizontal gap to avaoid too slopy connections
41 double hgap = (a->height()+b->height())/4;
42
43 return new splitSchema(a,b,hgap);
44 }
45
46
47 /**
48 * Constructor for a split schema s1 <: s2 where the outputs
49 * of s1 are distributed to the inputs of s2. The constructor is
50 * private in order to enforce the usage of makeSplitSchema
51 */
52 splitSchema::splitSchema (schema* s1, schema* s2, double hgap)
53 : schema( s1->inputs(),
54 s2->outputs(),
55 s1->width() + s2->width() + hgap,
56 max(s1->height(), s2->height()) ),
57 fSchema1(s1),
58 fSchema2(s2),
59 fHorzGap(hgap)
60 {
61 }
62
63
64 /**
65 * Places the two subschema horizontaly, centered, with enough gap for
66 * the connections
67 */
68 void splitSchema::place(double ox, double oy, int orientation)
69 {
70 beginPlace(ox, oy, orientation);
71
72 double dy1 = max(0.0, fSchema2->height()-fSchema1->height()) / 2.0;
73 double dy2 = max(0.0, fSchema1->height()-fSchema2->height()) / 2.0;
74
75 if (orientation == kLeftRight) {
76 fSchema1->place(ox, oy+dy1, orientation);
77 fSchema2->place(ox+fSchema1->width()+fHorzGap, oy+dy2, orientation);
78 } else {
79 fSchema2->place(ox, oy+dy2, orientation);
80 fSchema1->place(ox+fSchema2->width()+fHorzGap, oy+dy1, orientation);
81 }
82 endPlace();
83 }
84
85
86 /**
87 * The inputs of s1 <: s2 are the inputs of s1
88 */
89 point splitSchema::inputPoint(unsigned int i) const
90 {
91 return fSchema1->inputPoint(i);
92 }
93
94
95 /**
96 * The outputs of s1 <: s2 are the outputs of s2
97 */
98 point splitSchema::outputPoint(unsigned int i) const
99 {
100 return fSchema2->outputPoint(i);
101 }
102
103
104 /**
105 * Draw the two sub schema and the connections between them
106 */
107 void splitSchema::draw(device& dev)
108 {
109 assert(placed());
110
111 // draw the two subdiagrams
112 fSchema1->draw(dev);
113 fSchema2->draw(dev);
114
115 unsigned int r = fSchema1->outputs();
116 assert(r>0);
117 #if 0
118 // draw the connections between them
119 for (unsigned int i=0; i<fSchema2->inputs(); i++) {
120 point p = fSchema1->outputPoint(i%r);
121 point q = fSchema2->inputPoint(i);
122 if(p.z>0) {
123 dev.trait(p.x, p.y, q.x, q.y);
124 }
125 }
126 #endif
127 }
128
129
130 /**
131 * Draw the two sub schema and the connections between them
132 */
133 void splitSchema::collectTraits(collector& c)
134 {
135 assert(placed());
136
137 // draw the two subdiagrams
138 fSchema1->collectTraits(c);
139 fSchema2->collectTraits(c);
140
141 unsigned int r = fSchema1->outputs();
142 assert(r>0);
143
144 // draw the connections between them
145 for (unsigned int i=0; i<fSchema2->inputs(); i++) {
146 point p = fSchema1->outputPoint(i%r);
147 point q = fSchema2->inputPoint(i);
148 c.addTrait(trait(point(p.x, p.y), point(q.x, q.y)));
149 }
150 }
151
152