- Рейтинг
- 5
Вот, писанул, может кому понадобится.
___________________________________________________________________
utility col "Doryc column"
(
group "Название и цвет"
(
edittext prefix_txt " Name " fieldWidth:70 text:"column"
colorpicker a5 " Цвет " fieldWidth:70 height:16 color:[205,164,0]
)
group"Параметры"
(
spinner hght "Высота " type:#worldUnits range:[0, 100000, 100]
spinner can "Каннелюры " type:#integer range:[10, 44, 12]
)
group"Пропорции"
(
label lab1 "архаика ------- классика"
slider prop "" ticks:10 range:[3,5,4]
)
group"About "
(
button ab " About "
)
on ab pressed do
(
messagebox "Created by G.V.Coldashev 11/28/98"
messagebox "Modifed 11/9/99"
messagebox "Modifed 11/28/00"
messagebox "Very special thanks to Frank DeLise"
messagebox "Special thanks to A.B.Smirnov"
messagebox "Thanks to V.A. Poshetniov"
messagebox "Game over"
)
group"Сreate"
(button make "Create " )
on make pressed do
(
ProgressStart "Строительство колонны"
H=hght.value
P=prop.value
D=H/P
ProgressUpdate 5
D_COLUMN=D*0.84
R_COLUMN=D_COLUMN/2
COLUMN=star radius1:R_COLUMN radius2R_COLUMN*0.9)points:can.value
H_COLUMN=H*0.91
ProgressUpdate 25
ll=H_COLUMN/6
addModifier COLUMN (extrude amount:H_COLUMN segs:6 )
POAS=cylinder radiusR_COLUMN) heightH*0.01)
POAS.pos=[0,0,H_COLUMN-H*0.03]
COLUMN+POAS
delete POAS
ProgressUpdate 50
addModifier COLUMN (taper amount:-0.19 limit:true upperlimit:H_COLUMN lowerlimit:ll)
AEHIN= cylinder radius(D*0.66)/2) heightH*0.05) heightsegs:5
addModifier AEHIN (taper amount:0.5 curve:0.5 )
AEHIN.pos=[0,0,H_COLUMN]
ABAK=box lengthD) widthD) heightH*0.04)
ABAK.pos=[0,0,H_COLUMN+H*0.05]
COLUMN+AEHIN+ABAK
delete AEHIN
ProgressUpdate 75
delete ABAK
addModifier COLUMN (Uvwmap maptype:1)
ConvertToMesh COLUMN
column.wirecolor = a5.color
column.name=prefix_txt.text
ProgressUpdate 100
ProgressEnd()
)
)
___________________________________________________________________
___________________________________________________________________
utility col "Doryc column"
(
group "Название и цвет"
(
edittext prefix_txt " Name " fieldWidth:70 text:"column"
colorpicker a5 " Цвет " fieldWidth:70 height:16 color:[205,164,0]
)
group"Параметры"
(
spinner hght "Высота " type:#worldUnits range:[0, 100000, 100]
spinner can "Каннелюры " type:#integer range:[10, 44, 12]
)
group"Пропорции"
(
label lab1 "архаика ------- классика"
slider prop "" ticks:10 range:[3,5,4]
)
group"About "
(
button ab " About "
)
on ab pressed do
(
messagebox "Created by G.V.Coldashev 11/28/98"
messagebox "Modifed 11/9/99"
messagebox "Modifed 11/28/00"
messagebox "Very special thanks to Frank DeLise"
messagebox "Special thanks to A.B.Smirnov"
messagebox "Thanks to V.A. Poshetniov"
messagebox "Game over"
)
group"Сreate"
(button make "Create " )
on make pressed do
(
ProgressStart "Строительство колонны"
H=hght.value
P=prop.value
D=H/P
ProgressUpdate 5
D_COLUMN=D*0.84
R_COLUMN=D_COLUMN/2
COLUMN=star radius1:R_COLUMN radius2R_COLUMN*0.9)points:can.value
H_COLUMN=H*0.91
ProgressUpdate 25
ll=H_COLUMN/6
addModifier COLUMN (extrude amount:H_COLUMN segs:6 )
POAS=cylinder radiusR_COLUMN) heightH*0.01)
POAS.pos=[0,0,H_COLUMN-H*0.03]
COLUMN+POAS
delete POAS
ProgressUpdate 50
addModifier COLUMN (taper amount:-0.19 limit:true upperlimit:H_COLUMN lowerlimit:ll)
AEHIN= cylinder radius(D*0.66)/2) heightH*0.05) heightsegs:5
addModifier AEHIN (taper amount:0.5 curve:0.5 )
AEHIN.pos=[0,0,H_COLUMN]
ABAK=box lengthD) widthD) heightH*0.04)
ABAK.pos=[0,0,H_COLUMN+H*0.05]
COLUMN+AEHIN+ABAK
delete AEHIN
ProgressUpdate 75
delete ABAK
addModifier COLUMN (Uvwmap maptype:1)
ConvertToMesh COLUMN
column.wirecolor = a5.color
column.name=prefix_txt.text
ProgressUpdate 100
ProgressEnd()
)
)
___________________________________________________________________