Thank you.walbus wrote:Very good work...
Current changes
- Added macros DrawCloud and DrawBalloon by davido.
- Added icons Rain Cloud and Cloud Storage by davido.
Thank you.walbus wrote:Very good work...
I like both styles. And I wanted to show all icons concerned in both styles in the icon browser, and in the preview picture here on the forum.Oma wrote:For the new (more "designed") document icons, 2 macros are delivered. One with round corners and one with a style similar to the writing-pad spatial-icon. Use the more pleasing design by commenting out the other "DocuSheet_Spatial()" macro.
Of course and thanks for doing so.Little John wrote:So I renamed one of the DocuSheet_Spatial() macros ... Is that OK with you?
Good question.RSBasic wrote:What are the license terms for use of icons?
Thank you for your kind words.captain_skank wrote:
A question though - is anyone using tools to 'draw' their icons or are they doing it by hand coding them ??
Cheers
Code: Select all
Procedure Spanner( x,y,Radius,Filled,Rotation=0)
InnerRadius = Radius * 0.15
OuterRadius = Radius * 0.3
y1 = y - (Radius * 0.73)
y2 = y + (Radius * 0.73)
SaveVectorState()
RotateCoordinates(x,y,Rotation)
AddPathCircle(x, y1, OuterRadius, 110, 245)
AddPathCircle(x, y1, InnerRadius, 150, 30,#PB_Path_CounterClockwise|#PB_Path_Connected )
AddPathCircle(x, y1, OuterRadius, 295, 70,#PB_Path_Connected)
AddPathCircle(x, y2, OuterRadius, 290, 65,#PB_Path_Connected)
AddPathCircle(x, y2, InnerRadius, 330, 210,#PB_Path_CounterClockwise|#PB_Path_Connected)
AddPathCircle(x, y2, OuterRadius, 115, 250,#PB_Path_Connected)
ClosePath()
RestoreVectorState()
If Filled = #True
FillPath()
Else
StrokePath(Radius * 0.01)
EndIf
EndProcedure