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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203 | %ksampleworkspace 'Object Packaging of Workspaces in the Sampledata Toolbox '
% This MatLab function was automatically generated by a converter (KhorosToMatLab) from the Khoros sampleworkspace.pane file
%
% Parameters:
% MultiChoice: wksp 'Select a Sample Workspace to Run', default: 3: 'color arithmetic example'
% InputFile: dummy 'Color Arithmetic', optional: 'if else example'
% InputFile: dummy 'If Else Example', optional: 'simple arithmetic'
% InputFile: dummy 'Simple Arithmetic', optional: 'switch example'
% InputFile: dummy 'Switch Example', optional: 'signal'
% InputFile: dummy 'Signal', optional: 'merge example 1'
% InputFile: dummy 'Merge Example 1', optional: 'complex arithmetic'
% InputFile: dummy 'Complex Arithmetic', optional: 'merge example 2'
% InputFile: dummy 'Merge Example 2', optional: 'geometry'
% InputFile: dummy 'Geometry', optional: 'trigger example'
% InputFile: dummy 'Trigger Example', optional: '5D head'
% InputFile: dummy '5D Head', optional: 'expression example 1'
% InputFile: dummy 'Expression 1', optional: 'wavelets'
% InputFile: dummy 'Wavelets', optional: 'expression example 2'
% InputFile: dummy 'Expression 2', optional: 'formats example'
% InputFile: dummy 'Formats', optional: 'while example'
% InputFile: dummy 'While Example', optional: 'fourier'
% InputFile: dummy 'Fourier', optional: 'count example'
% InputFile: dummy 'Count Example', optional: 'median filter'
% InputFile: dummy 'Median Filter', optional: 'edge filter'
% InputFile: dummy 'Edge Filter', optional: 'render 3d fft'
% InputFile: dummy 'Render 3d FFT', optional: 'procedure example 1'
% InputFile: dummy 'Procedure 1', optional: 'geometry elevation'
% InputFile: dummy 'Geometry Elevation', optional: 'procedure example 2'
% InputFile: dummy 'Procedure2', optional: 'sample workspace to be run'
% Choices are:
%
% Example: ksampleworkspace({dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy, dummy}, {'wksp',3;'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy','';'dummy',''})
%
% Khoros helpfile follows below:
%
% PROGRAM
% sampleworkspace - Object Packaging of Workspaces in the Sampledata Toolbox
%
% DESCRIPTION
%
%
%
% EXAMPLES
%
% "SEE ALSO"
%
% RESTRICTIONS
%
% REFERENCES
%
% COPYRIGHT
% Copyright (C) 1993 - 1997, Khoral Research, Inc. ("KRI") All rights reserved.
%
function varargout = ksampleworkspace(varargin)
if nargin ==0
Inputs={};arglist={'',''};
elseif nargin ==1
Inputs=varargin{1};arglist={'',''};
elseif nargin ==2
Inputs=varargin{1}; arglist=varargin{2};
else error('Usage: [out1,..] = ksampleworkspace(Inputs,arglist).');
end
if size(arglist,2)~=2
error('arglist must be of form {''ParameterTag1'',value1;''ParameterTag2'',value2}')
end
narglist={'wksp', 3;'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input';'dummy', '__input'};
maxval={0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
minval={0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
istoggle=[0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1];
was_set=istoggle * 0;
paramtype={'MultiChoice','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile','InputFile'};
% identify the input arrays and assign them to the arguments as stated by the user
if ~iscell(Inputs)
Inputs = {Inputs};
end
NumReqOutputs=0; nextinput=1; nextoutput=1;
for ii=1:size(arglist,1)
wasmatched=0;
for jj=1:size(narglist,1)
if strcmp(arglist{ii,1},narglist{jj,1}) % a given argument was matched to the possible arguments
wasmatched = 1;
was_set(jj) = 1;
if strcmp(narglist{jj,2}, '__input')
if (nextinput > length(Inputs))
error(['Input ' narglist{jj,1} ' has no corresponding input!']);
end
narglist{jj,2} = 'OK_in';
nextinput = nextinput + 1;
elseif strcmp(narglist{jj,2}, '__output')
if (nextoutput > nargout)
error(['Output nr. ' narglist{jj,1} ' is not present in the assignment list of outputs !']);
end
if (isempty(arglist{ii,2}))
narglist{jj,2} = 'OK_out';
else
narglist{jj,2} = arglist{ii,2};
end
nextoutput = nextoutput + 1;
if (minval{jj} == 0)
NumReqOutputs = NumReqOutputs - 1;
end
elseif isstr(arglist{ii,2})
narglist{jj,2} = arglist{ii,2};
else
if strcmp(paramtype{jj}, 'Integer') & (round(arglist{ii,2}) ~= arglist{ii,2})
error(['Argument ' arglist{ii,1} ' is of integer type but non-integer number ' arglist{ii,2} ' was supplied']);
end
if (minval{jj} ~= 0 | maxval{jj} ~= 0)
if (minval{jj} == 1 & maxval{jj} == 1 & arglist{ii,2} < 0)
error(['Argument ' arglist{ii,1} ' must be bigger or equal to zero!']);
elseif (minval{jj} == -1 & maxval{jj} == -1 & arglist{ii,2} > 0)
error(['Argument ' arglist{ii,1} ' must be smaller or equal to zero!']);
elseif (minval{jj} == 2 & maxval{jj} == 2 & arglist{ii,2} <= 0)
error(['Argument ' arglist{ii,1} ' must be bigger than zero!']);
elseif (minval{jj} == -2 & maxval{jj} == -2 & arglist{ii,2} >= 0)
error(['Argument ' arglist{ii,1} ' must be smaller than zero!']);
elseif (minval{jj} ~= maxval{jj} & arglist{ii,2} < minval{jj})
error(['Argument ' arglist{ii,1} ' must be bigger than ' num2str(minval{jj})]);
elseif (minval{jj} ~= maxval{jj} & arglist{ii,2} > maxval{jj})
error(['Argument ' arglist{ii,1} ' must be smaller than ' num2str(maxval{jj})]);
end
end
end
if ~strcmp(narglist{jj,2},'OK_out') & ~strcmp(narglist{jj,2},'OK_in')
narglist{jj,2} = arglist{ii,2};
end
end
end
if (wasmatched == 0 & ~strcmp(arglist{ii,1},''))
error(['Argument ' arglist{ii,1} ' is not a valid argument for this function']);
end
end
% match the remaining inputs/outputs to the unused arguments and test for missing required inputs
for jj=1:size(narglist,1)
if strcmp(paramtype{jj}, 'Toggle')
if (narglist{jj,2} ==0)
narglist{jj,1} = '';
end;
narglist{jj,2} = '';
end;
if ~strcmp(narglist{jj,2},'__input') && ~strcmp(narglist{jj,2},'__output') && istoggle(jj) && ~ was_set(jj)
narglist{jj,1} = '';
narglist{jj,2} = '';
end;
if strcmp(narglist{jj,2}, '__input')
if (minval{jj} == 0) % meaning this input is required
if (nextinput > size(Inputs))
error(['Required input ' narglist{jj,1} ' has no corresponding input in the list!']);
else
narglist{jj,2} = 'OK_in';
nextinput = nextinput + 1;
end
else % this is an optional input
if (nextinput <= length(Inputs))
narglist{jj,2} = 'OK_in';
nextinput = nextinput + 1;
else
narglist{jj,1} = '';
narglist{jj,2} = '';
end;
end;
else
if strcmp(narglist{jj,2}, '__output')
if (minval{jj} == 0) % this is a required output
if (nextoutput > nargout & nargout > 1)
error(['Required output ' narglist{jj,1} ' is not stated in the assignment list!']);
else
narglist{jj,2} = 'OK_out';
nextoutput = nextoutput + 1;
NumReqOutputs = NumReqOutputs-1;
end
else % this is an optional output
if (nargout - nextoutput >= NumReqOutputs)
narglist{jj,2} = 'OK_out';
nextoutput = nextoutput + 1;
else
narglist{jj,1} = '';
narglist{jj,2} = '';
end;
end
end
end
end
if nargout
varargout = cell(1,nargout);
else
varargout = cell(0);
end
global KhorosRoot
if exist('KhorosRoot') && ~isempty(KhorosRoot)
w=['"' KhorosRoot];
else
if ispc
w='"C:\Program Files\dip\khorosBin\';
else
[s,w] = system('which cantata');
w=['"' w(1:end-8)];
end
end
callKhoros([w 'runwksp" '],Inputs,narglist);
|
MATLAB /matlab_tools/Converted/ksampleworkspace.m