if(StartingED, SoftStartED([]));
int011;
int035([Sink], pDir([Atoms\Sink.atm]));
int035([Server], pDir([Atoms\Server.atm]));
int035([Source], pDir([Atoms\Source.atm]));
int012;


{Atom: Source1}

sets;
AtomByName([Source], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Source'. Inheriting from BaseClass.]));
CreateAtom(a, s, [], 1);
int023([Source1], 7168771, 232);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\source.bmp]), [source]));
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Source.ico]));
Set(DdbRec, [>hilf:1.>ausgang:3.]);
SetChannels(1, 7);
SetChannelRanges(1, 1, 1, 255);
int001(138);
int013(1, 0, true, false, 0, 0, [], []);
int013(2, 0, true, false, 0, 0, [], []);
int013(3, 0, true, false, 0, 0, [], []);
int013(4, 0, true, false, 0, 0, [], []);
int013(5, 0, true, false, 0, 0, [], []);
int013(6, 0, true, false, 0, 0, [], []);
int013(7, 0, true, false, 0, 0, [], []);
SetLoc(6, 15, 0);
SetSize(5, 2, 0);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [{.~1|~case(
 inlist(ddb([schiff],first(c),2),[schiff_1],[schiff_2],[schiff_3]) +1,
 
 
 do(
  msg(concat(ddb([schiff],i,2),[ ist eine falsche Variable in ],name(c))),
  stop
 ),
 
 
 do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,1,2,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   5
  ),
  c.ausgang
 ),
 
 
 
  do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,3,4,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   5
  ),
  c.ausgang
 ),
 
  
 
  do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   3
  ),
  c.ausgang
 )
 
)~ .}case(
 inlist(ddb([schiff],first(c),2),[schiff_1],[schiff_2],[schiff_3]) +1,
 
 
 do(
  msg(concat(ddb([schiff],i,2),[ ist eine falsche Variable in ],name(c))),
  stop
 ),
 
 
 do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,1,2,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   5
  ),
  c.ausgang
 ),
 
 
 
  do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,3,4,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   5
  ),
  c.ausgang
 ),
 
  
 
  do(
  c.hilf:=0,
  loopuntil(
   c.hilf,
   do(
    c.ausgang:=case(count,5,6,7),
    if(ocready(c.ausgang,c),c.hilf:=1)
   ),
   3
  ),
  c.ausgang
 )
 
)]);
SetExprAtt(2, [NegExp(10)]);
SetExprAtt(3, [{.~1|~i.schiff:=case(duniform(1,3),[schiff_1],[schiff_2],[schiff_3])~           .}i.schiff:=case(duniform(1,3),[schiff_1],[schiff_2],[schiff_3])]);
SetExprAtt(4, [0]);
SetExprAtt(5, [10]);
SetExprAtt(6, [{. -1 |1. Unlimited             .} -1 ]);
int024;
SetStatus(2);
int018;


{Atom: Platz 1}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 1], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(139);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 5, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 130.530898055909);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 2911.37461657758);
int024;
SetStatus(1);
int018;


{Atom: Platz 2}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 2], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(140);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 8, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 11.9819131164132);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 3000.04939534717);
int024;
SetStatus(1);
int018;


{Atom: Platz 3}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 3], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(141);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 13, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 74.598277209119);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 3027.80960048868);
int024;
SetStatus(1);
int018;


{Atom: Platz 4}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 4], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(142);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 16, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 55.4506479405807);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 30.371885989647);
int024;
SetStatus(1);
int018;


{Atom: Platz 5}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 5], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(143);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 23, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 149.120861999871);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 2943.90310477165);
int024;
SetStatus(1);
int018;


{Atom: Platz 6}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 6], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(144);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 26, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 66.0148014408064);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 2990.11369533162);
int024;
SetStatus(1);
int018;


{Atom: Platz 7}

sets;
AtomByName([Server], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Server'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Platz 7], 292315, 263408);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\server.bmp]), [server]));
AddModel3D(
	RegisterModel3D(pDir([Media\3DModels\Server.wrl]), [Server.wrl], 0, 0, 0, 1, 1, -1, -90, 0, 0), a);
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Server.ico]));
SetChannels(1, 1);
SetChannelRanges(1, 255, 1, 255);
int001(145);
int013(1, 0, true, false, 0, 0, [], []);
SetLoc(20, 29, 0);
SetSize(5, 2, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetExprAtt(1, [negexp(60)]);
SetExprAtt(2, [{.~1|~1~   .}1]);
SetExprAtt(3, [1]);
SetAtt(4, 1);
SetAtt(5, 1);
SetAtt(6, 1);
SetExprAtt(7, [{.~1|~0~   .}0]);
SetExprAtt(8, [trace(concat(name(c),[   ],ddb([schiff],i,2)))]);
SetExprAtt(9, [0]);
SetExprAtt(10, [0]);
SetExprAtt(11, [0]);
SetAtt(12, 0);
SetExprAtt(13, [If(
 Time > 0,
 Concat( [Util: ], String ( *( 100, /( -( TotalBusy, Max( 0, EndBusy - Time)), Time)), 0, 1), [ %]),
 [Util: 0 %]
)]);
SetAtt(14, 146.81521708155);
SetAtt(15, 0);
SetAtt(16, 1E40);
SetAtt(17, 0);
SetExprAtt(18, [{.openallic(c)|Any inputchannel    .}openallic(c)]);
SetAtt(19, 5);
SetAtt(20, 0);
SetExprAtt(21, [0]);
SetAtt(22, 0);
SetExprAtt(23, [0]);
SetAtt(24, 0);
SetAtt(25, 0);
SetAtt(26, 0);
SetAtt(27, 0);
SetAtt(28, 0);
SetAtt(29, 677797);
SetExprAtt(30, [mttf]);
SetAtt(31, 2966.27369540853);
int024;
SetStatus(1);
int018;


{Atom: Sink9}

sets;
AtomByName([Sink], Main);
if(not(AtomExists), Error([Cannot find mother atom 'Sink'. Inheriting from BaseClass.]));
CreateAtom(a, Up(s), [], 1);
int023([Sink9], 7168771, 232);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\sink.bmp]), [sink]));
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Sink.ico]));
SetChannels(6, 0);
SetChannelRanges(1, 255, 0, 0);
int001(146);
int013(1, 0, true, true, 0, 0, [], []);
int013(2, 0, true, true, 0, 0, [], []);
int013(3, 0, true, true, 0, 0, [], []);
int013(4, 0, true, true, 0, 0, [], []);
int013(5, 0, true, true, 0, 0, [], []);
int013(6, 0, true, true, 0, 0, [], []);
SetLoc(31, 15, 0);
SetSize(5, 2, 0);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
SetAtt(1, 0);
int024;
SetStatus(1);
int018;


{Atom: Product}

sets;
BaseClass;
CreateAtom(a, Up(s), [], 1);
int023([Product], 12615680, 8273);
Set(Icon(a), 
	RegisterIcon(pDir([icons\bmp\atoms\product.bmp]), [product]));
SetMaterial(
	RegisterMaterial([Default], 8421504, 8421504, 3289650, 0, 0.100000001490116, 0, false, false, 1, 0), 1, a);
Set(Version(a), 0);
SetTreeIcon(pDir([Media\Icons\Product.ico]));
Set(Info, [A general product.

General
-----------
Put a product in your model and connect it's central channel 
with the input channel of a source to generate multiple instances 
of the product during running.

Notes:
---------
For cylinder shaped, horizontally oriented 3D icons set ySize 
equal to zSize.
For cylinder shaped, vertically oriented 3D icons set xSize 
equal to ySize.
For sphere set xSize equal to ySize and zSize.

Last revision:
------------------
September 27, 2003
]);
Set(DdbRec, [>t-nodestroy:1.]);
int001(147);
SetLoc(1, 15, 0);
SetSize(1, 1, 1);
LockPosition(false);
LockSize(false);
DisableIconRotation(false);
SetProductCode([]);
CreateAttributes(2);
SetAttributeName(r(1), [Icon3D]);
SetAttributeName(r(2), [Hide2DIcon]);
SetAtt(r(1), 1);
SetAtt(r(2), 1);
int024;
Set(OnCreation, [{ In the OnInit event handler some edit fields are registered. }
{ This is ok for the product in the library tree, but not for the  }
{ products in the model, so erase the OnInit expression.       }
Set(OnInit, [])
]);
Set(OnReset, [If(
 Label( [t-nodestroy] , c) = 0,
 DestroyAtom
)
]);
Set(OnUser, [Edit(
 StandardEditStyle,
 Ef( [AtomName]),
 Ef( [AtomColor]),
 Ef( [AtomIcon], [], [], [2D icon]),
 Ef( [T-Show2DIcon]),
 Ef( [T-ProductIcon]),
 Ef( [Skip]),
 Ef( [AtomSizeX]),
 Ef( [AtomSizeY]),
 Ef( [AtomSizeZ])
)
]);
Set(On2DDraw, [diBmp(0, 0, Hide2DIcon * Icon(c), 1, 5)
]);
Set(On3DDraw, [Case(
 Icon3D,
  {** Cube  **}
  di3DBox(0, 0, 0, xSize, ySize, zSize, Color),
  {**  Picture Cube **}
  di3DBox(0, 0, 0, xSize, ySize, zSize, Color, 0, 0, Icon, 0, 100, 100),
  {** Cylinder Horizontal **}
  Do(
   c.CenterPoint := Max(ySize / 2, zSize / 2),
   Cylinder(0, c.CenterPoint, c.CenterPoint, xSize, 360, c.CenterPoint, 0, 0, 0, Color)
  ),
  {** Cylinder Vertical **}
  Do(
   c.CenterPoint := Max(xSize / 2, ySize / 2),
   Cylinder(c.CenterPoint, c.CenterPoint, 0, zSize, 360, c.CenterPoint, 0, 90, 0, Color)
  ),
  {** Ball **}
  Do(
   c.CenterPoint := Max(xSize / 2, Max(ySize / 2, zSize / 2)),
   Ball( c.CenterPoint, c.CenterPoint, c.CenterPoint, c.CenterPoint, 180, 360, 0, 0, 0, Color)
  ),
  {** Cone **}
  Do(
   c.CenterPoint := Max(xSize, ySize),
   Cone(c.CenterPoint / 2, c.CenterPoint / 2, 0, zSize, c.CenterPoint / 2, 0, 0, 90, 0, Color)
  ),
  {** Barrel Horizontal **}
  Do(
   c.CenterPoint := Max(ySize / 2, zSize / 2),
   Cylinder(0, c.CenterPoint, c.CenterPoint, xSize, 360, c.CenterPoint, 0, 0, 0, Color),
   Cone(0, c.CenterPoint, c.CenterPoint, 0, c.CenterPoint, 0, 0, 0, 0, Color),
   Cone(xSize, c.CenterPoint, c.CenterPoint, 0, c.CenterPoint, 0, 0, 0, 0, Color)
  ),
  {** Barrel Vertical **}
  Do(
   c.CenterPoint := Max(xSize / 2, ySize / 2),
   Cylinder(c.CenterPoint, c.CenterPoint, 0, zSize, 360, c.CenterPoint, 0, 90, 0, Color),
   Cone(c.CenterPoint, c.CenterPoint, zSize, 0, c.CenterPoint, 0, 0, 90, 0, Color),
   Cone(c.CenterPoint, c.CenterPoint, 0, 0, c.CenterPoint, 0, 0, 90, 0, Color)
  ),
  {** Pallet **}
  Do(
   di3DBox(0, 0, 0, xSize, 0.1, zSize - 0.05, Color),
   di3DBox(0, /( ySize, 2) - 0.05, 0, xSize, 0.1, zSize - 0.05, Color),
   di3DBox(0, ySize - 0.1, 0, xSize, 0.1, zSize - 0.05, Color),
   c.CenterPoint := xSize / 5,
   Repeat(
    5,
    di3DBox(Count * c.CenterPoint, 0, zSize - 0.05, -0.1, ySize, 0.05, Color)
   )
  ),
  {** Simple Person **}
  Do(
   c.CenterPoint := ySize / 2,
   {head} Ball( 0, c.CenterPoint, 1.8, 0.1, 180, 360, 0, -90 ,0, 7846395),
   {neck} Cylinder(0, c.CenterPoint, 1.65, 0.1, 360, 0.05, 0, 90, 0, 7846395),
   {shoulders}EllipseCone(0, c.CenterPoint, 1.52, 0.15, 360, 0.2, 0.05, 0.12, 0.08, 0, 90, 0, Color),
   {arm 1}  Cone(0, 0.15 + c.CenterPoint, 1.5, 0.5, 0.05, 0.02, 20, -80, 0, Color),
   {arm 2}  Cone(0, -0.15 + c.CenterPoint, 1.5, 0.5, 0.05, 0.02, 20, -80, 0, Color),
   {hand 1} Cone(0.08, -0.12 + c.CenterPoint, 1.02, 0.1, 0.02, 0.02, 20, -80, 0, 7846395),
   {hand 2}  Cone(0.08, 0.18 + c.CenterPoint, 1.02, 0.1, 0.02, 0.02, 20, -80, 0, 7846395),
   {body}  EllipseCone(0,c.CenterPoint, 1.07, 0.45, 360, 0.1, 0.2, 0.08, 0.12, 0, 90, 0, Color),
   {waist}  EllipseCone(0,c.CenterPoint, 0.92, 0.15, 360, 0.15, 0.1, 0.11, 0.08, 0, 90, 0, ColorGray),
   {leg 1}  Cone(0, 0.07 + c.CenterPoint, 0, 0.92, 0.03, 0.08, 0, 90, 0, ColorGray),
   {leg 2}  Cone(0, -0.07 + c.CenterPoint, 0, 0.92, 0.03, 0.08, 0, 90, 0, ColorGray),
   {foot 1}  EllipseCone(0, 0.07 + c.CenterPoint, 0,0.2, 180, 0.05, 0.03, 0.04, 0.01, 0, 0, 0, ColorBlack),
   {foot 2}  EllipseCone(0, -0.07 + c.CenterPoint, 0, 0.2, 180, 0.05, 0.03, 0.04, 0.01, 0, 0, 0, ColorBlack)
  )
 )
]);
SetStatus(0);
int018;
Up;
int014(1, 138, 1, 139, 0);
int014(0, 147, 1, 138, 0);
int014(2, 138, 1, 140, 0);
int014(3, 138, 1, 141, 0);
int014(4, 138, 1, 142, 0);
int014(5, 138, 1, 143, 0);
int014(6, 138, 1, 144, 0);
int014(7, 138, 1, 145, 0);
int014(1, 139, 1, 146, 0);
int014(1, 140, 2, 146, 0);
int014(1, 141, 3, 146, 0);
int014(1, 143, 4, 146, 0);
int014(1, 144, 5, 146, 0);
int014(1, 145, 6, 146, 0);
int006(10, 138, 1, 0, 0);
int034;
int007;