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

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 (или чего другое?) можно ли копии вращать сдвигать и пр. одновременно?

 

[Edward Aksenovsky]

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

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

 

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

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

Ферштейн?

 

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

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

 

[G-Kir]

Хех, и впрямь Корел не может реверснуть градиент. Но не беда. Сегодня до обеда у меня появилось несколько свободного времени и я накатал макрос. Алгоритм простейший — абсолютно лишен изящества.
Макрос учитывает цвет и положение слайдеров на многоцветных градиентах и учитывает положение 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

 

Прикольно!