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.
Aleem
Have you ever had a chance to use KPT's Shapeshifter? It can do all you ask for. Another really awesome one is Alien Skin's Bevel combined with Perspective shadow, definitely worth a look.
@ Mike
I've used Alien Skin and Photoshop isn't far from me as I've configured it to be the bitmap editor for coreldraw. The advantage of doing this way is that your base object remains vector and you can easily enlarge it or change its color without any destruction.
Aleem Ashraf said: @ Mike I've used Alien Skin and Photoshop isn't far from me as I've configured it to be the bitmap editor for coreldraw. The advantage of doing this way is that your base object remains vector and you can easily enlarge it or change its color without any destruction.
Agree, sorta. I will make the bitmap twice as large as what it needs to be, then apply it to the artwork. I have made enough posters now to know it works 100%. But yeah, if it could remain all vector, better yet.