This file was made in TVP 9.5 Standard if it matters.
Param Circle
Parse result command Cx Cy r button
tv_getActiveTool
oldTool = Result
if r>800
t=800
Else
t=r
End
tv_projectInfo
parse Result name width height extra
maxLen = sqr(width*width + height*height)
tv_propelling mode "color" power 100 opacity 100 dry 0 aaliasing 1 gradient 0 cpower "10;2 0 1 0 0 1 1 "
tv_undoOpenStack
tv_lockDisplay
FOR i = 1 TO t
angle = i * (360 / t)
x1=COS(angle) * maxLen
y1=SIN(angle) * maxLen
tv_ZLine Cx Cy x1+Cx y1+Cy button 0 255
END
tv_UnLockDisplay
tv_cmd oldTool
tv_undoCloseStack "Perspective Guide"
Param Circle
Parse result command Cx Cy r button
tv_projectInfo
parse Result name width height extra
maxLen = sqr(width*width + height*height)
r = 800 * (r / (maxLen / 3))
if r>800
t=800
Else
t=r
End
tv_undoopenstack
tv_LockDisplay
FOR i = 1 TO t
r1 = rnd(maxLen / 2)
o2 = 255 * (1 - (r1 / (maxLen / 2)))
angle = rnd(3600)
x2=COS(angle/10)
y2=SIN(angle/10)
x1=x2 * maxLen
y1=y2 * maxLen
x2 = x2 * r1
y2 = y2 * r1
tv_ZLine x2+Cx y2+Cy x1+Cx y1+Cy button 0 o2
END
tv_UnLockDisplay
tv_undoclosestack "Radial Burst"
lemec wrote:Hm. Maybe I should make a version that will set the vanishing point to the intersection of two non-parallel lines. Might be useful for getting perspective guides for imagery that has an existing vanishing point.
Users browsing this forum: No registered users and 1 guest