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

градиент и пр.

Тема в разделе "CorelDraw", создана пользователем -, 11 авг 2005.

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

    1. Вот мне интересно в Photoshop у градиента есть Reverse
    Есть ли векторный редактор с такой возможностью?
    И как с наименьшими кликами Градиент ревертировать в Кореле?

    2. CorelDRAW 11 Bar.cfg — за что отвечает этот файл
    C:\Program Files\Corel\Corel Graphics 11\Workspace\CorelDRAW11\_BootDefault

    3. Копируем: «Ctrl+C Ctrl+V/Ctrl+D/+/SIMBOL или Clone/Правой кл. мыши (Copy Here)/Объект мышкой тащу (пока тащу, по пробелу стучу)/Объект мышкой тащу (дотащил правую нажал)/Через меню/Transformation»

    Все это конечно хорошо!
    А как с многократным копированием, как в верстаках (ну кроме создай 10 Ctrl+C Ctrl+V получиш 20 и т.д. — для любителей поумничать)?

    4. Докер Transformation (или чего другое?) можно ли копии вращать сдвигать и пр. одновременно?
     
  2. Edward Aksenovsky

    Edward Aksenovsky Активный участник

    С нами с:
    19.06.2006
    Сообщения:
    573
    Симпатии:
    0
    Баллы:
    15
    ILYAS Написал:
    -------------------------------------------------------
    > 1. Вот мне интересно в Photoshop у градиента есть
    > Reverse
    > Есть ли векторный редактор с такой возможностью?
    > И как с наименьшими кликами Градиент ревертировать
    > в Кореле?

    Reverse - это поворот на 180 градусов. Ферштейн? Где дописать +180 (или -180) показать? Hint: в интерактивной панели ищи Fountain Fill Angle.

    > 2. CorelDRAW 11 Bar.cfg — за что отвечает этот
    > файл
    > C:\Program Files\Corel\Corel Graphics
    > 11\Workspace\CorelDRAW11\_BootDefault

    Очевидно, дефолтные установки (активизируются при старте корела с нажатой F8).

    ЗЫ. В остальных дебрях не копался. Ибо лениво разбираться в написаном.
     
  3. Guest

    Речь идет об изменении положения (шкала Position 0-100%) базовых цветов участвующих в формировании градиента.
    Чтоб они перепрыгнули в новые места в обратном порядке.
    Математически можно выразить так 100-X, где X исходное расположение.

    К примеру:
    Был радиальный градиент в центре зеленый – далее белый – с краю красный
    Стал радиальный градиент в центре красный – далее белый – с краю зеленый

    Ферштейн?
     
  4. Guest

    >Был радиальный градиент в центре зеленый – далее белый – с краю красный
    >Стал радиальный градиент в центре красный – далее белый – с краю зеленый

    Похоже только ручками.
    А вообще спроси на http://www.prodtp.ru/ в разделе Corel — там толчется тыщща полиграфистов. Может они что подскажут.

     
  5. G-Kir

    G-Kir Знаток

    С нами с:
    17.06.2005
    Сообщения:
    774
    Симпатии:
    3
    Баллы:
    20
    Хех, и впрямь Корел не может реверснуть градиент. Но не беда. Сегодня до обеда у меня появилось несколько свободного времени и я накатал макрос. Алгоритм простейший — абсолютно лишен изящества.
    Макрос учитывает цвет и положение слайдеров на многоцветных градиентах и учитывает положение Mid-point в двухцветных градиентах.


    Sub GradientReverse()
    Dim n As Long, i As Long, staID As Long, k As Long
    Dim cStart As New Color
    Dim cEnd As New Color
    Dim s As Shape
    Dim cl As FountainColor

    If ActiveShape Is Nothing Then
    MsgBox "Nothing selected!", vbCritical
    Exit Sub
    Else
    If ActiveShape.Fill.Type <> cdrFountainFill Then
    MsgBox "The selected shape must have a fountain fill."
    Exit Sub
    End If
    End If

    '======================================================================
    cStart.CopyAssign ActiveShape.Fill.Fountain.StartColor
    cEnd.CopyAssign ActiveShape.Fill.Fountain.EndColor
    ActiveShape.Fill.Fountain.StartColor = cEnd
    ActiveShape.Fill.Fountain.EndColor = cStart

    n = ActiveShape.Fill.Fountain.Colors.Count
    staID = ActiveShape.StaticID

    If n > 0 Then
    ActiveLayer.CreateRectangle 0, 0, 2, 1
    ActiveShape.Fill.ApplyFountainFill

    Set s = ActiveLayer.FindShape(StaticID:=staID)
    s.AddToSelection

    k = n
    For i = 1 To n
    ActiveSelection.Shapes(2).Fill.Fountain.Colors.Add ActiveSelection.Shapes(1).Fill.Fountain.Colors(k).Color, _
    100 - ActiveSelection.Shapes(1).Fill.Fountain.Colors(k).Position
    k = k - 1
    Next i

    For Each cl In ActiveSelection.Shapes(1).Fill.Fountain.Colors
    cl.Delete
    Next cl

    For i = 1 To n
    ActiveSelection.Shapes(1).Fill.Fountain.Colors.Add ActiveSelection.Shapes(2).Fill.Fountain.Colors(i).Color, _
    ActiveSelection.Shapes(2).Fill.Fountain.Colors(i).Position
    Next i

    ActiveLayer.Shapes(1).Delete
    Else
    ActiveShape.Fill.Fountain.MidPoint = 100 - ActiveShape.Fill.Fountain.MidPoint
    End If

    End Sub
     
  6. Guest

    Прикольно!
     
Модераторы: Артер

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