"Mike Williams" <mi***@whiskyandCoke.com> wrote in message news:%23KfPcNlMIHA.5160@TK2MSFTNGP05.phx.gbl...
> "Ken Halter" <Ken_Halter@Use_Sparingly_Hotmail.com> wrote in message news:ukqVJejMIHA.2000@TK2MSFTNGP05.phx.gbl...
>
>> Not sure 'bout you, but the crickets are chirpin' here. No
>> sign of  Inverted Bitmap.Net anywhere in sight...
>
> I imagine that there will be some inverted bitmaps appearing quite soon. See my post about an hour ago in the "I used to use VB
> ..." thread. I posted it there because Michael C seems to have ignored my request to take his challenge into a new thread. The
> gist of my post is that Michael C has refused to take on the task using VB.Net and he wants to do it in C# and I suggested that if
> he wants to talk about .NET in a VB newsgroup then we have the right to assume that he is talking about VB.Net and that if he
> wants to talk about how good his beloved C# is in relation to other languages then he really should be posting his stuff on a C or
> C++ group.
>
> Anyway, even though I quite naturally assume that VB6 will not be able to actually beat a lower level language such a C#, I have
> accepted Michael C's (good surname for him that, innit!) challenge and have asked him to write his stuff in C# and post the result
> (not the code so that I cannot copy anything) of his speed test and when I see his result I will either publicly give up
> gracefully (highly unlikely!) or I will attempt to see how close I can get to his result using VB6.
>
> Mike
>
>

"Mike Williams" <mi***@whiskyandCoke.com> wrote in message
news:euHqtQlMIHA.4712@TK2MSFTNGP04.phx.gbl...
> "Ken Halter" <Ken_Halter@Use_Sparingly_Hotmail.com> wrote in message
> news:ukqVJejMIHA.2000@TK2MSFTNGP05.phx.gbl...
>
>> There's a ton of great code on PSC... since you guys had
>> a graphics challenge going, this isn't too far off topic...
>
> I imagine there will be a lot of good code in that stuff, and it would be
> possible to perform operations such as invert and lots of others on bitmaps
> using all sorts of GDI and GDI+ routines on the complete bitmap, but of course
> Michael C's challenge (in which he derides what he seems to perceive as the
> "slowness" of VB6) is to invert a 24bit bmp on a strictly pixel by pixel
> basis, which will of course be quite a bit slower whatever language you use.
> Anyway, I'm up for it if he is ;-)
>

> On Nov 28, 2:05 am, "Mike Williams" <mi***@whiskyandCoke.com> wrote:
>
> > Come on, Michael C. I finished my VB6 "Invert Bitmap Challenge" code hours
> > ago and I told you that I had done so. What's holding you up? Are you still
> > waiting for VB.Net to load?
>
> > By the way, I've taken the liberty of starting a new thread for this
> > challenge. The old one was a bit long in the tooth. A bit like VB6, eh,
> > Michael ;-) Still some good life in the old dog yet, though!
>
> > Mike
>
> Mike...
>
> I'm not sure if Michael C will ever respond - but, I would be happy to
> have a go at a VB.NET version.  The problem is I'm not a graphics guy,
> by any stretch of the imagination, and so I'm not sure what you mean
> by inverting the bitmap?  Do you mean creating a negative image?  Do
> you mean actually fliping the image?  And can you give me a quick
> primer of the basic algorithm?  I mean, what do I have to do to each
> pixel?  Sorry, if these are stupid questions, but like I said, I don't
> do graphics AT ALL.
>
> --
> Tom Shelton

On Nov 29, 1:25 am, "Mike Williams" <mi***@whiskyandCoke.com> wrote:
> "Tom Shelton" <tom_shel***@comcast.net> wrote in message
>
> news:e4a21924-00ea-4e34-83d4-4e252edc6594@e6g2000prf.googlegroups.com...
>
> > Mike...
> > I'm not sure if Michael C will ever respond - but, I would be
> > happy to have a go at a VB.NET version.  The problem is
> > I'm not a graphics guy, by any stretch of the imagination, and
> > so I'm not sure what you mean by inverting the bitmap?
>
> Well I've taken it to mean flipping each bit in each data byte in the image,
> so that for example any bytes with &HFFFFFFFF (white) become &H00000000
> (black) and any bytes with &H00000000 (black) become &HFFFFFFFF (white), and
> of course with other data bytes being "bit flipped" regardless of the data
> they contain. This causes the image to look a bit like a "funny coloured
> negative" and of course if you flip the flipped image you end up with the
> original image you started with. Running the function any odd number of
> times will end up with a flipped image (hence his requirement of 1001 calls
> to the function rasther than 1000, so you can see the result). Running it
> 1001 times again will give you back the image you started with.
>
> > And can you give me a quick
> > primer of the basic algorithm?
>
> data = Not data
>
> Mike

"Tom Shelton" <tom_shel***@comcast.net> wrote in message
news:acf61c8e-0ceb-43d3-abd1-73e2943f9eee@s8g2000prg.googlegroups.com...

> VB.NET:
> [snip]
> Sub Main()
> Dim bmp As New Bitmap("blizz2001-1024.bmp")
> Dim sw As New Stopwatch()
> sw.Start()
> For i As Integer = 0 To 1000
>    ComplementImage(bmp) '[routine snipped]
> Next i
> Console.WriteLine(sw.Elapsed)
> bmp.Save("blizz2001-1024 inverted.bmp")
> [snip]
> So, 26.6 seconds.

On Nov 29, 3:06 am, "Mike Williams" <mi***@whiskyandCoke.com> wrote:
> "Tom Shelton" <tom_shel***@comcast.net> wrote in message
>
> news:acf61c8e-0ceb-43d3-abd1-73e2943f9eee@s8g2000prg.googlegroups.com...
>
> > VB.NET:
> > [snip]
> > Sub Main()
> > Dim bmp As New Bitmap("blizz2001-1024.bmp")
> > Dim sw As New Stopwatch()
> > sw.Start()
> > For i As Integer = 0 To 1000
> >    ComplementImage(bmp) '[routine snipped]
> > Next i
> > Console.WriteLine(sw.Elapsed)
> > bmp.Save("blizz2001-1024 inverted.bmp")
> > [snip]
> > So, 26.6 seconds.
>
> I don't know VB.Net so I can't see where you are setting the size of the
> bitmap there? Can I take it that the code loads the existing bitmap
> ("blizz2001-1024.bmp") into memory and operates on that bitmap and that the
> size of the bitmap is 1024 x 768 pixels x 24 bit?

> Anyway, whatever the case, now that you have posted some code (you certainly
> beat Michael C to it!) I might as well post my own. Here it is. Paste it
> into a VB Form containing a Picture Box and a Command Button and change the
> hard coded bmp name appropriately (to a 1024x768 24 bitmap on your own
> system)and compile to a native code exe with all advanced optimizations
> checked. As expected, it is much slower than your C# code, but much faster
> than your VB.Net code. Let me know what result you get on your own system.
> In fact this particular task is hampered by the fact that VB6's For / Next
> loop seems to be very poorly implemented, because almost all of the time is
> spent by VB messing about with the loop itself and only about 20 per cent of
> the time is spent actually reading the data and flipping it and putting it
> back, Nevertheless, it is still quite quick and it proves that VB6 is
> certainly not the "slouch" that Michael C thinks it is. Post back with your
> timing result for this code. I'm getting 6 seconds here on my machine
> compared to the 26.6 seconds you're getting in your VB.Net code on your own
> machine.

On Nov 29, 2:01 pm, "Karl E. Peterson" <k***@mvps.org> wrote:
> Tom Shelton wrote:
> > On Nov 29, 1:21 pm, "Karl E. Peterson" <k***@mvps.org> wrote:
> >> Tom Shelton wrote:
> >>> I will try and test this latter today - but it will have to be done on
> >>> my older slower amd machine.  It's the only machine I have that has
> >>> all three environments :)  I don't have VB6 installed on my Vista box.
>
> >> If you're not testing compiled apps, what's the real point?  There's no other
> >> way to actually distribute something to a customer, afterall, and that's the
> >> only place such a performance measure matters.
>
> > What?  You know better then that.  All .NET apps run as native code.
> > So, I'm not sure what your on about.
>
> I only responded like that because you said VB6 wasn't installed on the Vista box,
> which made me wonder if you were testing *that* version in the IDE.  I guess, in
> hindsight, what it meant was you were simply wanting to test on the same box you
> could tweak on?
> --
> .NET: It's About Trust!
>  http://vfred.mvps.org

> On Nov 29, 2:01 pm, "Karl E. Peterson" <k***@mvps.org> wrote:
>> Tom Shelton wrote:
>>> On Nov 29, 1:21 pm, "Karl E. Peterson" <k***@mvps.org> wrote:
>>>> Tom Shelton wrote:
>>>>> I will try and test this latter today - but it will have to be done on
>>>>> my older slower amd machine.  It's the only machine I have that has
>>>>> all three environments :)  I don't have VB6 installed on my Vista box.
>>
>>>> If you're not testing compiled apps, what's the real point?  There's no other
>>>> way to actually distribute something to a customer, afterall, and that's the
>>>> only place such a performance measure matters.
>>
>>> What?  You know better then that.  All .NET apps run as native code.
>>> So, I'm not sure what your on about.
>>
>> I only responded like that because you said VB6 wasn't installed on the Vista
>> box, which made me wonder if you were testing *that* version in the IDE.  I
>> guess, in hindsight, what it meant was you were simply wanting to test on the
>> same box you could tweak on?
>
> Yea.  I have VB6 on my other box, so I was going to redo the timings
> on that box.  Don't worry.  I will definately compile the VB6 app
> before testing.

> "Tom Shelton" <tom_shel***@comcast.net> wrote in message
>
> news:bfe38413-d42b-48fc-b84f-be0d77dfb8aa@e23g2000prf.googlegroups.com...
>
>
>
>
>
> > On Nov 29, 1:21 pm, "Karl E. Peterson" <k***@mvps.org> wrote:
> > > Tom Shelton wrote:
> > > > I will try and test this latter today - but it will have to be done on
> > > > my older slower amd machine.  It's the only machine I have that has
> > > > all three environments :)  I don't have VB6 installed on my Vista box.
>
> > > If you're not testing compiled apps, what's the real point?  There's no
> other way to
> > > actually distribute something to a customer, afterall, and that's the
> only place
> > > such a performance measure matters.
> > > --
> > > .NET: It's About Trust!
> > >  http://vfred.mvps.org
>
> > What?  You know better then that.  All .NET apps run as native code.
> > So, I'm not sure what your on about.
>
> > --
>
> I think Karl is simply saying that the /testing/ can be done on any box, and
> need not have VB6 installed to do so. So a compiled app, with any required
> runtimes, should be able to run on any box for identical time testing,
> whether that app was compiled in VB6, VB.Net or C# (or whatever), and
> regardless of what environment or machine it was compiled on.
>
> --
> Regards,
>
> Rick Raisley- Hide quoted text -
>
> - Show quoted text -

On Nov 29, 3:06 am, "Mike Williams" <mi***@whiskyandCoke.com> wrote:
> "Tom Shelton" <tom_shel***@comcast.net> wrote in message
>
> news:acf61c8e-0ceb-43d3-abd1-73e2943f9eee@s8g2000prg.googlegroups.com...
>
> > VB.NET:
> > [snip]
> > Sub Main()
> > Dim bmp As New Bitmap("blizz2001-1024.bmp")
> > Dim sw As New Stopwatch()
> > sw.Start()
> > For i As Integer = 0 To 1000
> >    ComplementImage(bmp) '[routine snipped]
> > Next i
> > Console.WriteLine(sw.Elapsed)
> > bmp.Save("blizz2001-1024 inverted.bmp")
> > [snip]
> > So, 26.6 seconds.
>
> I don't know VB.Net so I can't see where you are setting the size of the
> bitmap there? Can I take it that the code loads the existing bitmap
> ("blizz2001-1024.bmp") into memory and operates on that bitmap and that the
> size of the bitmap is 1024 x 768 pixels x 24 bit? Also, I cannot see where
> you are allowing for the padding bytes on bitmaps that do not align on "four
> byte" boundaries, for example a 1025 x 768 pixel bitmap, in which Michael
> C's requirement was that you should invert only the actual pixel data bytes
> and leave the padding byte or bytes untouched. Are you actually doing that?
> Also, is the same kind of thing happenning in the C# code (I don't use C).
> Is that also loading a 1024 x 768 x 24 bit bitmap and invereting the data
> bytes while leaving the padding bytes untouched? And can I take it that they
> both produce a correctly inverted image when they have finished?
>
> Anyway, whatever the case, now that you have posted some code (you certainly
> beat Michael C to it!) I might as well post my own. Here it is. Paste it
> into a VB Form containing a Picture Box and a Command Button and change the
> hard coded bmp name appropriately (to a 1024x768 24 bitmap on your own
> system)and compile to a native code exe with all advanced optimizations
> checked. As expected, it is much slower than your C# code, but much faster
> than your VB.Net code. Let me know what result you get on your own system.
> In fact this particular task is hampered by the fact that VB6's For / Next
> loop seems to be very poorly implemented, because almost all of the time is
> spent by VB messing about with the loop itself and only about 20 per cent of
> the time is spent actually reading the data and flipping it and putting it
> back, Nevertheless, it is still quite quick and it proves that VB6 is
> certainly not the "slouch" that Michael C thinks it is. Post back with your
> timing result for this code. I'm getting 6 seconds here on my machine
> compared to the 26.6 seconds you're getting in your VB.Net code on your own
> machine.
>
> Mike
>
> Option Explicit
> Private Declare Sub CopyMemory Lib "kernel32" _
>   Alias "RtlMoveMemory" (pDst As Any, _
>   pSrc As Any, ByVal ByteLen As Long)
> Private Declare Function VarPtrArray _
>   Lib "msvbvm60.dll" Alias "VarPtr" _
>   (Ptr() As Any) As Long
> Private Declare Function GetObject Lib "gdi32" _
>   Alias "GetObjectA" (ByVal hObject As Long, _
>   ByVal nCount As Long, lpObject As Any) As Long
> Private Declare Function timeGetTime _
>   Lib "winmm.dll" () As Long
> Private Declare Function timeBeginPeriod _
>   Lib "winmm.dll" (ByVal uPeriod As Long) As Long
> Private Declare Function timeEndPeriod _
>   Lib "winmm.dll" (ByVal uPeriod As Long) As Long
> Private Type BITMAP
>   bmType As Long
>   bmWidth As Long
>   bmHeight As Long
>   bmWidthBytes As Long
>   bmPlanes As Integer
>   bmBitsPixel As Integer
>   bmBits As Long
> End Type
> Private Type SAFEARRAYBOUND
>   cElements As Long
>   lLbound As Long
> End Type
> Private Type SAFEARRAY2D
>   cDims As Integer
>   fFeatures As Integer
>   cbElements As Long
>   cLocks As Long
>   pvData As Long
>   Bounds(0 To 1) As SAFEARRAYBOUND
> End Type
>
> Private Sub DoIt()
> Dim j As Long, k As Long, pic() As Long
> Dim sa As SAFEARRAY2D, bmp As BITMAP, pixRight As Long
> Dim oddBytes As Long
> Dim mask1 As Long, mask2 As Long
> GetObject Picture1.Picture, Len(bmp), bmp
> With sa
>   .cbElements = 4
>   .cDims = 2
>   .Bounds(0).lLbound = 0
>   .Bounds(0).cElements = bmp.bmHeight
>   .Bounds(1).lLbound = 0
>   .Bounds(1).cElements = bmp.bmWidthBytes \ 4
>   .pvData = bmp.bmBits
> End With
> CopyMemory ByVal VarPtrArray(pic), VarPtr(sa), 4
> oddBytes = (bmp.bmWidth And 3&) * (bmp.bmBitsPixel \ 8&)
> If oddBytes <> 0 Then
>   Select Case oddBytes
>     Case 1
>       mask1 = &HFF&: mask2 = &HFFFFFF00
>     Case 2
>       mask1 = &HFFFF&: mask2 = &HFFFF0000
>     Case 3
>       mask1 = &HFFFFFF: mask2 = &HFF000000
>   End Select
> End If
> For k = 0 To UBound(pic, 2)
>   For j = 0 To UBound(pic, 1) - 1
>     pic(j, k) = Not pic(j, k)
>   Next j
>   If oddBytes = 0 Then
>     pic(j, k) = Not pic(j, k)
>   Else
>     pic(j, k) = (Not pic(j, k) And mask1) _
>                     Or (pic(j, k) And mask2)
>   End If
> Next k
> CopyMemory ByVal VarPtrArray(pic), 0&, 4
> End Sub
>
> Private Sub Command1_Click()
> Dim t1 As Long, t2 As Long, n As Long
> Caption = "Doing 1001 runs. Please wait . . ."
> t1 = timeGetTime
> For n = 1 To 1001
>   DoIt
> Next n
> t2 = timeGetTime
> Caption = Format((t2 - t1) / 1000, "0.0") & " seconds."
> Picture1.Refresh
> End Sub
>
> Private Sub Form_Load()
> timeBeginPeriod 1
> Picture1.Picture = LoadPicture("c:\temp\jessica1024.bmp")
> End Sub
>
> Private Sub Form_Unload(Cancel As Integer)
> timeEndPeriod 1
> End Sub