Thread: Jersey Creator
View Single Post
Old 08-22-2014, 02:45 PM   #29
justafan
Hall Of Famer
 
justafan's Avatar
 
Join Date: Feb 2002
Location: S. Carolina
Posts: 5,297
Quote:
Originally Posted by illeracula View Post
This is pretty awesome Justafan. I envy your work and if you ever want to share your source code I'd love to look at it. I am not much of a VB man, but I do know some. Just like to read code...

Just some thoughts...
1) As someone else mentioned, a second graphic. That would be a nice enhancement down the road. Sleeve logos.

2) A cool enhancement, if possible, would be to ability to import your own layers. Gern has a lot of cool layers that would be neat to include (such as his hokey yokes). Just some thoughts.

I will be playing with this tomorrow at work, thanks for your hard work. These 3 applications you have put together will only make things easier and more fun.



Tony
Would rather not share the code at this time.

1. Not looking good for that addition.

2. Not possible. Each element has to be drawn using XY coordinates for each point. It's a real pain to do too.

here's just part of what's involved in drawing the piping...

Code:
        ' Piping
        Select Case selPiping
            Case 1 ' Single 4px
                myPen = New Pen(BrushColorPiping4px, 4)
                Path.Reset()
                Path.AddBezier(New Point(371, 202), New Point(412, 197), New Point(435, 230), New Point(434, 265))
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBeziers(New Point(362, 211), New Point(351, 221), New Point(353, 246), New Point(349, 262), New Point(383, 272), New Point(395, 274), New Point(423, 271))
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBezier(New Point(351, 340), New Point(345, 344), New Point(341, 352), New Point(342, 360))
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 342, 352, 342, 475)
                myPen.Dispose()
            Case 2 ' Double 2px
                myPen = New Pen(BrushColorPiping2px, 2)
                Path.Reset()
                Path.AddBeziers(myPoints8)
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBeziers(myPoints9)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 339, 370, 340, 475)
                Path.Reset()
                Path.AddBeziers(myPoints10)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 363, 370, 362, 475)
                myPen.Dispose()
            Case 3 ' Double 4px
                myPen = New Pen(BrushColorPiping4px, 4)
                Path.Reset()
                Path.AddBeziers(myPoints8)
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBeziers(myPoints9)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 339, 370, 340, 475)
                Path.Reset()
                Path.AddBeziers(myPoints10)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 363, 370, 362, 475)
                myPen.Dispose()
            Case 4 ' Double Bi-Color
                myPen = New Pen(BrushColorPiping4px, 4)
                Path.Reset()
                Path.AddBeziers(myPoints8)
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBeziers(myPoints9)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 339, 370, 340, 475)
                Path.Reset()
                Path.AddBeziers(myPoints10)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 363, 370, 362, 475)

                myPen = New Pen(BrushColorPiping2px, 2)
                Path.Reset()
                Path.AddBeziers(myPoints8)
                gfx.DrawPath(myPen, Path)
                Path.Reset()
                Path.AddBeziers(myPoints9)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 339, 370, 340, 475)
                Path.Reset()
                Path.AddBeziers(myPoints10)
                gfx.DrawPath(myPen, Path)
                gfx.DrawLine(myPen, 363, 370, 362, 475)
                myPen.Dispose()
        End Select
__________________
justafan is offline   Reply With Quote