version 1.9, 2001/01/13 01:17:36 |
version 1.10, 2003/11/20 09:20:36 |
Line 503 weightMatrix ] {Length} sendmsg2 |
|
Line 503 weightMatrix ] {Length} sendmsg2 |
|
this [ %% function args |
this [ %% function args |
size ] {NewVector} sendmsg2 |
size ] {NewVector} sendmsg2 |
/new0 set |
/new0 set |
/@@@.indexMode.flag.save @@@.indexMode.flag def 0 @@@.indexMode (0).. %%PSfor initvalue. |
/@@@.indexMode.flag.save @@@.indexMode.flag def 0 @@@.indexMode (0).. size 2 -1 roll |
|
%%PSfor initvalue. |
(integer) data_conversion |
(integer) data_conversion |
size (1).. sub (integer) data_conversion 1 2 -1 roll |
2 -1 roll |
|
(1).. sub (integer) data_conversion 1 2 -1 roll |
{ %% for body |
{ %% for body |
(universalNumber) data_conversion /i set |
(universalNumber) data_conversion /i set |
weightMatrix [i ] Get |
weightMatrix [i ] Get |
Line 1123 FunctionValue } def |
|
Line 1125 FunctionValue } def |
|
[/this /a ] /ArgNames set ArgNames pushVariables [ %%function body |
[/this /a ] /ArgNames set ArgNames pushVariables [ %%function body |
[Argthis] Arglist join ArgNames mapset |
[Argthis] Arglist join ArgNames mapset |
a pmat /ExitPoint ]pop popVariables %%pop argValues |
a pmat /ExitPoint ]pop popVariables %%pop argValues |
|
db.DebugStack setstack pop stdstack |
|
} def |
|
%%end of function |
|
|
|
/QuoteMode { |
|
db.DebugStack setstack $In function : QuoteMode of class PrimitiveObject$ stdstack |
|
/Arglist set /Argthis set /FunctionValue [ ] def |
|
[/this /a ] /ArgNames set ArgNames pushVariables [ %%function body |
|
[Argthis] Arglist join ArgNames mapset |
|
a (0).. eq |
|
%% if-condition |
|
{ %%ifbody |
|
[(QuoteMode) 0] system_variable }%%end if if body |
|
{ %%if- else part |
|
[(QuoteMode) 1] system_variable } ifelse |
|
/ExitPoint ]pop popVariables %%pop argValues |
db.DebugStack setstack pop stdstack |
db.DebugStack setstack pop stdstack |
} def |
} def |
%%end of function |
%%end of function |