Hall Of Famer
Join Date: Feb 2002
Location: S. Carolina
Posts: 5,297
|
Quote:
Originally Posted by illeracula
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
|