kompliziert ist das eigentlich nur, wenns ein elliptischer grundriss ist und die wandungsstärke der kuppelschale absolut gleich sein muss.
ansonsten kopierst du dir das hier mal in ein neues objekt, und zwar in das 3d skript:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> ! basiert auf Gewölbe aus Standardbibliothek, modifiziert von zzyzx
!a = 1 ! Verzerren in X Richtung
!b = 0.8 ! Verzerren in Y Richtung
!zzyzx = 0.6 ! Verzerren in Z Richtung
!nwinkx = -20 ! Neigung Basisfläche
!gs_resol = 36 ! Auflösung
!sphere_rad = 2 ! Radius Kuppel
!dome_thk = 0.1 ! Wandungsstärke
!angle_1 = 360 ! Rotationswinkel
XFORM a,0,0,0, !!x' = a11 * x + a12 * y + a13 * z + a14
0,b,0,0, !!y' = a21 * x + a22 * y + a23 * z + a24
sin(nwinkx),0,zzyzx,0 !!z' = a31 * x + a32 * y + a33 * z + a34
roty -90
num=int(gs_resol/4)
alfa=0
for i=1 to num
if i=1 then show_edge=2 Else show_edge=1 ! Edge Visible
put sphere_rad*sin(alfa), sphere_rad*cos(alfa), show_edge
alfa=90/num*i
next i
put sphere_rad, 0.00001, 2
if dome_thk>0 then
alfa=90
show_edge=1
put sphere_rad-dome_thk, 0.00001, 2
for i=1 to num
if i=num then show_edge=2 ! Edge Visible
alfa=alfa-90/num
put (sphere_rad-dome_thk)*sin(alfa), (sphere_rad-dome_thk)*cos(alfa), show_edge
next i
put 0, sphere_rad, 2
endif
if angle_1=360 then
mask=2
else
if dome_thk>0 then
mask=4+8+16+32
else
mask=2+16+32
endif
endif
resol 120
rotx -90
revolve nsp/3, angle_1, mask,
get(nsp)
del 1
del topdie parameter, die am anfang stehen legst du dir in der parameterliste an, dann sollte es klappen.
ins 2d skript kommt folgendes hinein:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">
hotspot2 0,0,0
hotspot2 a,0,0
hotspot2 0,b,0
mul2 a,b
circle2 0,0,sphere_rad
circle2 0,0,sphere_rad-dome_thk :winken:
