|
|
If you have a little bit time and experience at your hand, you can help
me to find my error.
When calling the texture macro directly from another file, it works. But
when calling it from within the parameter liner of another macro, I get
the error message you cans see as comment behind one of the lines. Why?
Why? Why?
--------------------------
#declare MyShipTex = on;
#declare MyRandom = seed(now*24*60*60);
include "Rand.inc"
include "SL - Woods.inc"
#macro MyBrownSimpleQuoVadis(MyOrientation)
#declare MySeeder = seed(now*24*60*60);
#declare MyDirection = MyOrientation*<1,2,3>;
#declare MyAlignment = MyDirection.x+MyDirection.y+MyDirection.z;
#switch(MyAlignment)
#case(1)
texture { MyBrownDarkwood rotate < 00.0, 90.0, 00.0 > rotate < 00.0,
00.0, 00.0 > scale 0.5+rand(MySeeder)*1.5 translate < rand(MySeeder),
rand(MySeeder), rand(MySeeder) > } // X
texture { MyBrownSimple } // Parse Error: Expected ")", # found instead
#break
#case(2)
texture { MyBrownDarkwood rotate < 90.0, 00.0, 00.0 > rotate < 00.0,
00.0, 00.0 > scale 0.5+rand(MySeeder)*1.5 translate < rand(MySeeder),
rand(MySeeder), rand(MySeeder) > } // Y
texture { MyBrownSimple }
#break
#case(3)
texture { MyBrownDarkwood rotate < 00.0, 00.0, 90.0 > rotate < 00.0,
00.0, 00.0 > scale 0.5+rand(MySeeder)*1.5 translate < rand(MySeeder),
rand(MySeeder), rand(MySeeder) > } // Z
texture { MyBrownSimple }
#break
#end
#end
#macro
PostsSideRailing(MyLength,MyPlankHeight,MyMinimum,MyMaximum,MyIncrease,MyR,
MyT,MyRY,MyX,MyMacroTexture)
// 1.99,0.15,0.55,1.45,0.30,2.5,0.02,0.0,9.90,MyYellowSimple
union
{
#declare MyLevel = MyMinimum;
#declare AllLevels = MyMaximum;
#while(MyLevel<=AllLevels)
box { < -MyLength, 0.00, -0.025 > < MyLength, MyPlankHeight, 0.00
> MyMacroTexture rotate < 0.0, 0.0, RRand(-MyR,MyR,MyRandom) > rotate <
0.0, MyRY, 0.0 > translate < 0.0, MyLevel+RRand(-MyT,MyT,MyRandom),
-MyX > scale < 1.0, 1.0, 1.0 > }
box { < -MyLength, 0.00, -0.025 > < MyLength, MyPlankHeight, 0.00
> MyMacroTexture rotate < 0.0, 0.0, RRand(-MyR,MyR,MyRandom) > rotate <
0.0, MyRY, 0.0 > translate < 0.0, MyLevel+RRand(-MyT,MyT,MyRandom),
-MyX > scale < 1.0, 1.0, -1.0 > }
#declare MyLevel=MyLevel+MyIncrease;
#end
}
#end
object {
PostsSideRailing(0.725,0.30,0.60,4.50,0.65,1.5,0.02,-90.0,6.675,MyBrownSimp
leQuoVadis(x))
translate < -20.9, 0.0, 0.0 > }
---
Diese E-Mail wurde von AVG auf Viren geprüft.
http://www.avg.com
Post a reply to this message
|
|