Hi.
A friend was looking for a Soft Inside Bevel Macro. Can anyone post a link to something, or similar. I know many of you are using Brian's macros and I think I heard it mentioned. If anyone can post a link here or info about one of Brian's macros that can do this it would be great.
Thanks,
~John
Are you referring to the BDinnershadow macro? https://coreldraw.com/forums/p/25929/121541.aspx#121541
Thanks Mike, that one is close but lack one important part of the bevel, that is the shiny highlights. I'd ideally want any macro enthusiast to make a macro on the following technique.
Here's my doodle...
'bevel testSub bevelTest() Dim s As Shape, s1 As Shape, s2 As Shape, sTrimmed As Shape, sTrimmed2 As Shape Dim dMove#, dDiv#, strBlurRadius$ Set s = ActiveShape If s Is Nothing Then Exit Sub If Not s.IsSimpleShape Then Exit Sub If s.Type = cdrBitmapShape Then Exit Sub If s.Type <> cdrCurveShape Then s.ConvertToCurves ActiveDocument.Unit = cdrInch dDiv = 0.5 dMove = 0.1 strBlurRadius = 5000 Set s1 = s.Duplicate Set s2 = s.Duplicate s1.Move dMove, dMove * -1 Set sTrimmed = s.Trim(s1, True, False) sTrimmed.Fill.UniformColor.RGBAssign 0, 0, 0 s2.Move dMove * -1, dMove s2.CreateSelection Set sTrimmed2 = s.Trim(s2, True, False) sTrimmed2.Fill.UniformColor.RGBAssign 255, 255, 255 Set s1 = sTrimmed.ConvertToBitmap(, True, , True, 300, cdrNormalAntiAliasing) s.CreateSelection s1.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=" & strBlurRadius s1.Move (dMove * dDiv) * -1, dMove * dDiv s1.AddToPowerClip s Set s1 = sTrimmed2.ConvertToBitmap(, True, , True, 300, cdrNormalAntiAliasing) s.CreateSelection s1.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=" & strBlurRadius s1.Move dMove * dDiv, (dMove * dDiv) * -1 s1.AddToPowerClip sEnd Sub
Hi John,
It will be great if it prompts for the things like the Shadow color and Blur amount and it will be even cooler if this macro has an interface with all such options like thickness of shadow and highlights and blur value and color etc.
Aleem Ashraf said: Hi John, It will be great if it prompts for the things like the Shadow color and Blur amount and it will be even cooler if this macro has an interface with all such options like thickness of shadow and highlights and blur value and color etc.
First, I don't think i got the blur right. Which blur are you using?
RunFlaCruiser said:Hi.
Here's an idea about the macro's interface
Aleem Ashraf said: Hi. Here's an idea about the macro's interface [/quote] HI Aleem. Really nice but man, that's hours and hours of work! ~John
[/quote]
HI Aleem.
Really nice but man, that's hours and hours of work!
@ John,
Yeah I can understand that. This idea is open for whoever and whenever like to do. I'm still very happy doing it manually.
Aleem Ashraf said: @ John, Yeah I can understand that. This idea is open for whoever and whenever like to do. I'm still very happy doing it manually.
Maybe I can get my motivation back. I'm pretty dead right now :(
Hi,
I coded your "idea" for Corel Soft Bevel Macro.
Please, take a look at this : http://www.youtube.com/watch?v=XVkMvQ46sEk
Just quick code with macro interface.
That looks cool. Thumbs up (y)
Anjazmoro said: I coded your "idea" for Corel Soft Bevel Macro. Please, take a look at this : http://www.youtube.com/watch?v=XVkMvQ46sEk Just quick code with macro interface.
Hi
Really cool. Are you going to make it available?
Also if you use optimization the effect should be created much faster.