1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
// Scicos
//
// Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
//
// 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
//
// See the file ../license.txt
//
function [x,y,typ]=ANDBLK(job,arg1,arg2)
x=[];
y=[];
typ=[];
select job
case "set" then
x=arg1
case "define" then
andlog=ANDLOG_f("define")
andlog.graphics.orig=[194,133]
andlog.graphics.sz=[60,60]
andlog.graphics.flip=%t
andlog.graphics.pout=9
andlog.graphics.pein=[4;11]
input_port1=CLKIN_f("define")
input_port1.graphics.orig=[149,287]
input_port1.graphics.sz=[20,20]
input_port1.graphics.flip=%t
input_port1.graphics.exprs="1"
input_port1.graphics.peout=4
input_port1.model.ipar=1
output_port=CLKOUT_f("define")
output_port.graphics.orig=[450,83]
output_port.graphics.sz=[20,20]
output_port.graphics.flip=%t
output_port.graphics.exprs="1"
output_port.graphics.pein=8
output_port.model.ipar=1
input_port2=CLKIN_f("define")
input_port2.graphics.orig=[141,330]
input_port2.graphics.sz=[20,20]
input_port2.graphics.flip=%t
input_port2.graphics.exprs="2"
input_port2.graphics.peout=6
input_port2.model.ipar=2
ifthel=IFTHEL_f("define")
ifthel.graphics.orig=[331,137]
ifthel.graphics.sz=[60,60]
ifthel.graphics.flip=%t
ifthel.graphics.pin=9
ifthel.graphics.pein=12
ifthel.graphics.peout=[8;0]
split=CLKSPLIT_f("define")
split.graphics.orig=[234;275.78348]
split.graphics.pein=6,
split.graphics.peout=[11;12]
diagram=scicos_diagram()
diagram.objs(1)=andlog
diagram.objs(2)=input_port1
diagram.objs(3)=output_port
diagram.objs(4)=scicos_link(xx=[169;214;214],yy=[297;297;198.71],..
ct=[5,-1],from=[2,1],to=[1,1])
diagram.objs(5)=input_port2
diagram.objs(6)=scicos_link(xx=[161;234;234],yy=[340;340;275.78],..
ct=[5,-1],from=[5,1],to=[10,1])
diagram.objs(7)=ifthel
diagram.objs(8)=scicos_link(xx=[351;351;450],yy=[131.29;93;93],..
ct=[5,-1],from=[7,1],to=[3,1])
diagram.objs(9)=scicos_link(xx=[262.57;322.43],yy=[163;167],..
ct=[1,1],from=[1,1],to=[7,1])
diagram.objs(10)=split
diagram.objs(11)=scicos_link(xx=[234;234],yy=[275.78;198.71],..
ct=[5,-1],from=[10,1],to=[1,2])
diagram.objs(12)=scicos_link(xx=[234;361;361],yy=[275.78;275.78;202.71],..
ct=[5,-1],from=[10,2],to=[7,1])
x=scicos_block()
x.gui="ANDBLK"
x.graphics.sz=[2,2]
x.graphics.gr_i=[];
x.graphics.pein=[0;0]
x.graphics.peout=0
x.model.sim="csuper"
x.model.evtin=[1;1]
x.model.evtout=1
x.model.blocktype="h"
x.model.firing=%f
x.model.dep_ut=[%f %f]
x.model.rpar=diagram;
end
endfunction
|
