PolarDistort v1.0
This location is for Registered Users Only.
Perhaps you need to login or register.
Contributor: Daniel Velikov
Photoshop like distortion filter Polar.
Requirements:
9.0, 8.0, 7.1, 7.0 or later
9.0, 8.0, 7.1, 7.0 or later
23 May 2015
2072
Group {
name PolarDistort
selected true
addUserKnob {20 User l Controls}
addUserKnob {4 Out l Transform M {'Rectangular to Polar' 'Polar to Rectangular' ''}}
Out 'Polar to Rectangular'
addUserKnob {6 Ccc l CheckerSample +STARTLINE}
Ccc true
addUserKnob {26 About l '' +STARTLINE T '\nDaniel Velikov © 2015 \n'}
}
Input {
inputs 0
name Input1
}
CheckerBoard2 {
inputs 0
name CheckerBoard1
xpos -516
ypos 42
}
Switch {
inputs 2
which {{!Ccc}}
name Switch2
}
set N4b281f70 [stack 0]
Expression {
temp_name0 rr
temp_expr0 ((0.5+x)/width)+ax
temp_name1 gg
temp_expr1 1-((0.5+y)/height)-ay
temp_name2 xx
temp_expr2 gg*sin(pi*2*(1-rr))
temp_name3 yy
temp_expr3 gg*cos(pi*2*rr)
expr0 (1+xx)*.5+(rx-.5)
expr1 (1+yy)*.5+(ry-.5)
channel2 {-rgba.red -rgba.green rgba.blue rgba.alpha}
expr2 0
channel3 none
name Expression3
addUserKnob {20 User}
addUserKnob {7 ax l Tx}
addUserKnob {7 ay l Ty}
addUserKnob {7 rx l Rx}
rx 0.5
addUserKnob {7 ry l Ry}
ry 0.5
}
push $N4b281f70
Expression {
temp_name0 gg
temp_expr0 (0.5+x)/(width)-.5
temp_name1 rr
temp_expr1 (0.5+y)/(height)-.5
temp_name2 xx
temp_expr2 sqrt(rr*rr+gg*gg)
temp_name3 yy
temp_expr3 'atan2(x-width/2 , y-height/2 )/pi'
channel0 {rgba.red -rgba.green -rgba.blue none}
expr0 1-(yy0?1-abs(yy)/2yy/2)
channel1 {-rgba.red rgba.green -rgba.blue none}
expr1 (.5-xx)*2
channel2 {-rgba.red -rgba.green rgba.blue none}
expr2 0
expr3 0
name Expression2
addUserKnob {20 User}
}
Switch {
inputs 2
which {{parent.Out}}
name Switch1
}
push $N4b281f70
STMap {
inputs 2
uv rgb
name STMap3
}
Output {
name Output1
}
end_group
Please login in order to download these files.
Comments
RSS feed for comments to this post