GDL für'n Grill :::::: mal wieder ein kleiner wettbewer

[zzyzx]

... 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:

! 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

[georgweber]

Unser rheinisches Getränk in Orginalmaßen ...

! 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