1. Пользоваться форумом на планшетах и телефонах стало удобнее благодаря Tapatalk

Скрипт "Column Maker"

Тема в разделе "Общие вопросы", создана пользователем Yury Koldashev, 31 янв 2002.

Модераторы: Артер
  1. Yury Koldashev

    Yury Koldashev Активный участник

    С нами с:
    23.11.2001
    Сообщения:
    77
    Симпатии:
    0
    Баллы:
    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 radius2:(R_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 radius:(R_COLUMN) height:(H*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) height:(H*0.05) heightsegs:5
    addModifier AEHIN (taper amount:0.5 curve:0.5 )
    AEHIN.pos=[0,0,H_COLUMN]
    ABAK=box length:(D) width:(D) height:(H*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()

    )
    )


    ___________________________________________________________________
     
  2. Guest

    Чего-то у меня не пашет... Не могу понять.... Может скажешь как и откуда он по твоей версии должен работать....
     
  3. Yury Koldashev

    Yury Koldashev Активный участник

    С нами с:
    23.11.2001
    Сообщения:
    77
    Симпатии:
    0
    Баллы:
    5
    1.Копируем всё кроме двух линий (верхней и нижней).
    2.Открываем Блокнот, вставляем и сохраняем как " Doryc Column #9.ms ".
    3. В МАКСЕ выбираем "run script " и запускаем его.

    Работает во всех версиях, начиная с 3-ьей. (Про 5-ую версию ничего сказать не могу)

    З.Ы. А чегой-то у тебя не пашет, описал бы ...
     
  4. Yury Koldashev

    Yury Koldashev Активный участник

    С нами с:
    23.11.2001
    Сообщения:
    77
    Симпатии:
    0
    Баллы:
    5
    Сейчас проверил - всё работает. Скопировал отсюда, вставил, сохранил, запустил - ВСЁ работает. А Максим у меня 42-ой.
     
  5. Yury Koldashev

    Yury Koldashev Активный участник

    С нами с:
    23.11.2001
    Сообщения:
    77
    Симпатии:
    0
    Баллы:
    5
    Печально. А я дурак. Думал, что это кому-нибудь понравится...
     
  6. Guest

    не вешай нос

    просто, редкий человек, особенно дизайнер, не поленится написать пару слов благодарности за полезный скрипт, плаг и т.д., к тому же, если он достался на халяву...

    удачи ;)
     
  7. Yury Koldashev

    Yury Koldashev Активный участник

    С нами с:
    23.11.2001
    Сообщения:
    77
    Симпатии:
    0
    Баллы:
    5
    Пашет что-ли?
     
  8. Guest

    замечательно пашет, а чего ему не пахать :)
     
Модераторы: Артер

Поделиться этой страницей