"Aki másnak felbontás...!"
-
GixEr #61209 Elrettento peldanak (Nenad ne fuss ki a vilagbol a primitivsege miatt) Asszem meg MAX2.0 vagy 2.5 ben okoskodtam ki egy ev MAX hasznalat utan meg a tortenelem elotti idokben...:
utility dobo_g "Dobókocka Generátor"
(
group "Dobókocka Paraméterek"
(
spinner d_rad "D.kocka Rád." type:#float range:[0,1000,50]
spinner d_seg "D.kocka Seg." type:#float range:[0,100,10]
)
--Készítsük is el
Group "Dobókocka Készítése"
(
edittext obj_name "Objektum Neve" text:"Dobókocka" width:140
Button create_p "Dobókocka"
)
group ""
(
label warn_k1 "Dobókocka Generátor"
label warn_k2 "V1.0b"
label warn_k3 "[email protected]"
)
on create_p pressed do
(
--Kocka készítése
dkocka = box length:d_rad.value width:d_rad.value height:d_rad.value \
widthsegs:d_seg.value lengthsegs:d_seg.value heightsegs:d_seg.value mapcoords:true boolean:true \
materialid:1 pos:[0,0,(0-(d_rad.value/2))]
dkocka.name = "dkocka01"
--Gömb készítése
dgomb = geosphere Radius:((d_rad.value+(d_rad.value*38)/100)/2) Segs:(d_seg.value/2) mapCoords:true boolean:true \
materialid:1
dgomb.name = "dgomb01"
--Hol vannak a lyukak
----Ez az egyes oldal
dlyuk11 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0,0,0-(d_rad.value/2)]
dlyuk11.name = "dlyuk11"
----Eddíg tart az egyes oldal
----Ez az kettes oldal
dlyuk21 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/4),0-(d_rad.value/2),0-(d_rad.value/4)]
dlyuk21.name = "dlyuk21"
dlyuk22 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/4),0-(d_rad.value/2),(d_rad.value/4)]
dlyuk22.name = "dlyuk22"
----Eddíg tart a kettes oldal
----Ez a hármas oldal
dlyuk31 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0,0,(d_rad.value/2)]
dlyuk31.name = "dlyuk31"
dlyuk32 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/4),(d_rad.value/4),(d_rad.value/2)]
dlyuk32.name = "dlyuk32"
dlyuk33 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/4),0-(d_rad.value/4),(d_rad.value/2)]
dlyuk33.name = "dlyuk33"
----Eddíg tart a hármas oldal
----Ez a négyes oldal
dlyuk41 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/4),(d_rad.value/2),0-(d_rad.value/4)]
dlyuk41.name = "dlyuk41"
dlyuk42 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/4),(d_rad.value/2),(d_rad.value/4)]
dlyuk42.name = "dlyuk42"
dlyuk43 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/4),(d_rad.value/2),0-(d_rad.value/4)]
dlyuk43.name = "dlyuk43"
dlyuk44 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/4),(d_rad.value/2),(d_rad.value/4)]
dlyuk44.name = "dlyuk44"
----Eddíg tart a négyes oldal
----Ez az ötös oldal
dlyuk51 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/2),(d_rad.value/4),0-(d_rad.value/4)]
dlyuk51.name = "dlyuk51"
dlyuk52 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/2),(d_rad.value/4),(d_rad.value/4)]
dlyuk52.name = "dlyuk52"
dlyuk53 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/2),0-(d_rad.value/4),0-(d_rad.value/4)]
dlyuk53.name = "dlyuk53"
dlyuk54 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/2),0-(d_rad.value/4),(d_rad.value/4)]
dlyuk54.name = "dlyuk54"
dlyuk55 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[(d_rad.value/2),0,0]
dlyuk55.name = "dlyuk55"
----Eddíg tart az ötös oldal
----Ez a hatos oldal
dlyuk61 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),(d_rad.value/4),0-(d_rad.value/4)]
dlyuk61.name = "dlyuk61"
dlyuk62 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),(d_rad.value/4),(d_rad.value/4)]
dlyuk62.name = "dlyuk62"
dlyuk63 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),0-(d_rad.value/4),0-(d_rad.value/4)]
dlyuk63.name = "dlyuk63"
dlyuk64 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),0-(d_rad.value/4),(d_rad.value/4)]
dlyuk64.name = "dlyuk64"
dlyuk65 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),0-(d_rad.value/4),0]
dlyuk65.name = "dlyuk65"
dlyuk66 = geosphere Radius:((d_rad.value-(d_rad.value*0.90))/2) Segs:(d_seg.value/4) mapCoords:true boolean:true \
pos:[0-(d_rad.value/2),(d_rad.value/4),0]
dlyuk66.name = "dlyuk66"
----Eddíg tart a hatos oldal
--Lyuk attach
dlyukak =$dlyuk11+$dlyuk21+$dlyuk22+$dlyuk31+$dlyuk32+$dlyuk33+$dlyuk41+$dlyuk42+$dlyuk43+$dlyuk44 \
+$dlyuk51+$dlyuk52+$dlyuk53+$dlyuk54+$dlyuk55+$dlyuk61+$dlyuk62+$dlyuk63+$dlyuk64+$dlyuk65+$dlyuk66
dlyukak.name = "lyukak"
delete $dlyuk*
--Boolean
dobokocka01=$dkocka01 * $dgomb01
dobokocka02=$dkocka01 - $lyukak
dobokocka02.name = obj_name.text
delete $dgomb01
delete $lyukak
)
)
Utoljára szerkesztette: GixEr, 2015.01.06. 19:50:54