Some really nice Art work

[GarrisonRicketson]

Quark, one of the newest members, sent me a link to his artwork,..and gave me permission to share this,...so thank you Quark,...
http://home.comcast.net/~larches/PaintingsIndex.html
 Thes are really beautiful.
from Garry
edit:
This one I liked the best:

 But it is well worth looking at them all.
And thanks again Quark for shareing these.

[659_minifly]

WoW !
Very nice painting
Bravo Mille fois Bravo.
Thanks for sharing with us

[OlDosLover]

Hi all,
    You are quiet an artist Quark. We should make a community effort, if you agree ,to make a program that displays them in QB64. I magine you could get asked a lot to help on projects with the art. Thanks you for sharing these wonderful works.
OlDosLover.

[Quark]

OldDosLover, funny you should say that about using qb64 to send images.  I have been playing with, and having some success in, using the DRAW statement to draw images.  In FreeBASIC I used POINT to create the strings for DRAW, saved the array, reloaded it, and then re-created the image.  I'll try to post the strings-create routine here:

sub CopyScreen(x1 as integer,y1 as integer,x2 as integer,y2 as integer, buf() as string)
  'Copies a rect pattern from the screen to an array of 'DRAW'able strings
  dim as integer temp, oldColor, cnt, bufLine
  ' For each scanned line, record colors and lengths for the 'draw' string
  For i As Integer = y1 To y2
    cnt=0
    For j As Integer = x1 To x2
      if j=x1 then
        redim preserve buf(ubound(buf)+1)
        bufLine = ubound(buf)
        buf(bufLine)="BM" & str(j) & "," & str(i)
        oldColor = point(j,i)
        buf(bufLine) &= "C" & str(oldColor) & "R"
        cnt=1
      else
        temp = point(j,i)
        if temp = oldColor then
          if j = x2 then
            'done; line complete
            buf (bufLine) &= str(cnt)
          end if
          cnt += 1
        else
          buf(bufLine) &= str(cnt) & "C" & str(temp)
          if j = x2 then
            'Done, line complete
            buf(bufLine) &= "NM" & str(j) & "," & str(i)
         else
            buf(bufLine) &= "R"
          end if
          oldColor = temp
          cnt = 1
        end if
      end if
    Next
  Next
end sub

Hopefully this wouldn't be much of a problem to convert for QB64...

--Quark

[OlDosLover]

Hi all,
    Interesting idea, converting screen are to draw string. In FREEBASIC! Hmm i not know freebasic.Will have to get back to you on this.
OlDosLover.

[Quark]

Hi,

This does work in QB64 I discovered today, but the technique isn't for 32 bit color or for detailed images or (probably) for jpg images.  But for 16 colors or 256, it does fine with simpler images like game or typical gif images.

Even so, it is surprising how flexible the POINT-DRAW pair are for reproducing images.  I hope to post a good little demo of the technique when I figure it out better.

--Quark