Aktuelle Zeit: 13. Jul 2020, 04:14
Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: GDL für'n Grill :::::: mal wieder ein kleiner wettbewer
BeitragVerfasst: 24. Jun 2005, 13:59 
Offline
Forum Veteran

Registriert: 29. Jul 2002, 01:01
Beiträge: 6149
Wohnort: .
... zu gewinnen gibts nix (wie immer), ausser ruhm & ehre,
trotzdem: das wetter ist glühend heiss, also mal ein sommerliches thema anregen:

GDL für'n Grill

ich fang mal mit einem würstchen an (code siehe unten), aber natürlich ist alles gefragt, was bei einem grillabend nützlich und angenehm ist (diverses grillgut, flaschbier, ein grill, gartenstühle, hängematte, ventilator, ...) . der code sollte möglichst kurz sein und der einfachheit halber nur im masterskript geschrieben werden.
also dann los!


:winken: :winken: :winken:
Code:
! gdl für'n grill
! parametrische grillwurst
! by zzyzx
! 24 juni 2005

project2 3,270,2
hotspot2 0,0

resol 72
rw = 0.01
rb = 0.3
wnk = 40

rotx 270
addy -rw
mulz -1
gosub 5
del 1
elbow rb,wnk,rw
addx rb
roty wnk
addx -rb
gosub 5
del 3
del 2

end
5:
ellips rw,rw
addz rw
cone rw/2,rw/4,rw/2,90,90
del 1
return


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: GDL für'n Grill :::::: mal wieder ein kleiner wettbewer
BeitragVerfasst: 25. Jun 2005, 11:04 
Offline
Mitglied

Registriert: 21. Sep 2002, 01:01
Beiträge: 285
Wohnort: Mönchengladbach
Land: DE
Betriebsystem: Windows 10
Unser rheinisches Getränk in Orginalmaßen ...

Code:
! gdl für'n grill
! kölsch
! by georg
! 25 juni 2005

project2 3,270,2
hotspot2 0,0

define material "kölsch" 2, 1.0, 0.78, 0.13
define material "schaum" 2, 1.0, 1.0, 1.0

h= 0.15 !höhe glas
d= 0.05 !durchmesser
s= 0.01 !stärke glasboden
hb=h-0.03 !füllhöhe
hs=h-hb-s+0.005 !höhe schaum

gosub 100 !glas
gosub 200 !bier
gosub 300 !schaum
end

100:
material "glas normalglas"
group "group_101"
cylind h, d/2
endgroup
group "group_102"
addz s
cylind h, d/2-d/40
del 1
endgroup
result_103 = subgroup ("group_101", "group_102")
placegroup (result_103)
return

200:
addz s
material "kölsch"
cylind hb, d/2-d/40
del 1
return

300:
material "schaum"
addz hb+s
cylind hs, d/2-d/40
del 1
return

_________________
ArchiCAD 4.5 bis 21 GER FULL | Worksation: Win10 64bit | BIM Server: Win Server 2008 R2 64bit | Mönchengladbach


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste


Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu: