Quick and dirty, aus der Hüfte, FBTK und ohne zu testen:
in dem Part </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> !***********COLUMN SHAFT ***********
material M_
addz BH + MH
if SS = "Smooth" or SS = "" then
gosub 2000
else
if SS = "Doric" then
call "flutedor" parameters A = 1', B = 1', ZZYZX = SH,
D = dtlvl-1, FB = FB, FT = FT, EN = EN
else
if SS = "Ionic" then
call "fluteion" parameters A = 1', B = 1', ZZYZX = SH,
D = dtlvl-1, FB = FB, FT = FT, EN = EN
else
if SW = 0 then : SW = 1' : endif
if SP = 0 then : add -SW/2, -SW/2, 0 : else : addz 0 : endif
call SS parameters A = SW, B = SW, ZZYZX = SH
del 1
endif
endif
endif
del top
!***********COLUMN CAP ***********
mußt Du den Code zwischen 'addz BH + MH' und 'del top' überspringen. Füge dort am einfachsten einen 'goto 4321' nach dem ADDZ-Befehl ein und eine Zeile mit '4321:' vor dem DEL.
Eleganter geht es natürlich mit einem if then ... endif. Dabei hilft die Tatsache, daß in SH die Säulenhöhe abgelegt ist. Er testet auch irgenwas mit dem Abstand zur Kameraposition, um wohl die Darstellungsgenauigkeit zu ermitteln. Die Teile sind zum Teil aber auskommentiert. Also entweder Artefakte oder nicht zum Laufen gebrachter Code. Also vielleicht erscheint ja die kleine Scheibe auch nur, wenn Du sehr dicht dran bist.
Wie gesagt, nur eine Anregung.
Im ürbigen ist das Objekt von Neil A. McCann (Dimensions Design Group, Inc.) und Andreas hat es netterweise übersetzt.
[ 17. April 2003, 00:26: Beitrag editiert von: Lars ]
