Ammoniten...

[andreaszeike]

Hallo, Hr. Mooslechner!! zum Thema Ammoniten habe ich noch folgendes gefunden:

http://de.groups.yahoo.com/group/ArchiCAD-Tipps/files/GDL-Objekte/Klein.GSM

so ungefähr habe ich mir das vorgestellt...
interessant?

Gruß, AZ

(download einfach mit rechter Mausteste/Ziel speichern unter)

[David Kehr]

...hi zappa hast du gewußt, daß dieses objekt die 3. dimension des möbiusbandes ist?

es gibt noch eine animation über die 4. dimension - leider habe ich sie noch nie gesehen - nur gehört.

moffett

[Bernhard Binder]

na gut dann auch hier mein Werk:
<img src="http://www2.a-null.com/support/forum/schnecke.gif" alt="" />

[andreaszeike]

Wow! Big Hand!! Und zwar Beiden!! 😉

Gruß, AZ

[Bernhard Binder]

Ok, ganz im Sinne des OpenSource hier der 3D Text zum selbst herumspielen.
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">rotx 90
resol 36 ! hier Werte ändern um Performance / Auflösung zu ändern
for i= 1 to 160

prism_ 7,0.6,
0,0,10,
0,0.3,10,
0.5,0.8,1010,
0.8,0.8,15,
1.7,0.6,1015,
2,0,1015,
0,0,15

addz 0.5
roty 9
mul .9999,.999,.97
next iim 2D Text übrigens nur project2 3,270,2

um einen lustigen Effekt zu erzielen kann man statt dem prism_ Befehl auch:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">sweep 7,2,0,.90,63,
0,0,0,
0,0.3,0,
0.5,0.8,1000,
0.8,0.8,0,
1.7,0.6,1000,
2,0,1000,
0,0,0,

0,0,0,
0,0,0.5einsetzen. Viel Spass 😄

[andreaszeike]

Die gesammelten Ammoniten-Werke liegen jetzt hier zum download, als Studienobjekte sozusagen (habe mir erlaubt, noch ein wenig zu parameterisieren...*grins*)

Gruß, und nochmals Dank, AZ

PS: fehlt nur noch der "3DAmmonit(PLANE_)"... 😄

[Bernhard Binder]

Ich hab' was neues!
🙂

[Bernhard Binder]

So, hier die "Richtige" Form:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">rotx 90
for i=180 to 1795 step 15
x=n*sin(i)
y=n*cos(i)
n=n-0.01
put x,0,y
next i
sweep 7,nsp/3,0,1.01,63,
-0.1,0,0,
-0.1,0.03,1,
-0.05,0.08,1001,
-0.02,0.08,1,
0.07,0.06,1001,
0.1,0,1001,
-0.1,0,1,
use(nsp)

[andreaszeike]

Superschön!

... aber kann ich auch einen "Schalenquerschnitt" hinbekommen? Im Schnitt ungefähr so:

:yeah: </a>

[Bernhard Binder]

😄
😉