VERY slow point() command - GameCreators Forum

Author

Message

Furiousuk

23

Years of Service

User Offline

Joined: 10th Jan 2003

Location: United Kingdom

Posted: 30th Mar 2003 23:20

Link

I'm writing a program where I want the user to be able to colour a graphic in any way they like but I don't want them to choose from a list - I want them to be able to enter any colour they want.
I've thought of doing this by having one graphic (called, say, test.bmp) and then having the program scan the graphic using the point() command and then re-colour all the pixels of a certain colour into those of another.
The only program I've experienced with this is that when scanning test.bmp using the point() command it becomes really slow.
Is there anyway I can tell the program to scan it all at once, thus speeding up the process?

I thought of turning the graphic into an array using a different program and then, the actual program would simply scan the array and change the colour values there. This certainly is quick but I don't want too many extra arrays cluttering up the program, I really want to be able to change the bitmap on the fly.
Can I do this in DB?

Back to top

Profile PM Email

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 31st Mar 2003 00:11

Link

yes...with a DLL...

ive made this example:

sync on
hide mouse

ink rgb(0,255,0),0
box 280,200,360,280
ink rgb(255,0,0),0
for i=1 to 30
  long#=i/2
  circle 300,220,long#/2.0
  circle 340,220,long#/2.0
next i
box 300,240,340,260
sync

load dll "user32.dll",1
load dll "gdi32.dll",2
hWnd = call dll(1,"GetActiveWindow")
hDC = call dll(1,"GetWindowDC",hWnd)

dim Color(640,480)

for i=1 to 640
  for j=1 to 480
  Color(i,j)=call dll(2,"GetPixel",hDC,i,j)
  next j
next i

`Change "Detail#" for the quality of the texture... 1 is lowest... 4 is a good number.. not too slow..
Detail#=4

degre#=10.0

create bitmap 1,640,480
do
  set current bitmap 1
  cls 0
  for i=1 to 200
      for j=1 to (detail#*360)
        i1#=i
        j1#=j/detail#
        Px=320.0+(i1#*cos(j1#))
        Py=240.0-(i1#*sin(j1#))
        color1=Color(px,py)

Px=320.0+(i1#*cos(j1#+Degre#))
        Py=240.0-(i1#*sin(j1#+Degre#))
        ink rgb(rgbb(color1),rgbg(color1),rgbr(color1)),0
        dot Px,Py
      next j
  next i
  degre#=degre#+10
  get image 1,0,0,640,480
  set current bitmap 0
  cls 0
  paste image 1,0,0
  sync
loop

+ Code Snippet

sync on
hide mouse

ink rgb(0,255,0),0
box 280,200,360,280
ink rgb(255,0,0),0
for i=1 to 30
  long#=i/2
  circle 300,220,long#/2.0
  circle 340,220,long#/2.0
next i
box 300,240,340,260
sync

load dll "user32.dll",1
load dll "gdi32.dll",2
hWnd = call dll(1,"GetActiveWindow")
hDC = call dll(1,"GetWindowDC",hWnd)

dim Color(640,480)

for i=1 to 640
  for j=1 to 480
  Color(i,j)=call dll(2,"GetPixel",hDC,i,j)
  next j
next i

`Change "Detail#" for the quality of the texture... 1 is lowest... 4 is a good number.. not too slow..
Detail#=4

degre#=10.0

create bitmap 1,640,480
do
  set current bitmap 1
  cls 0
  for i=1 to 200
      for j=1 to (detail#*360)
        i1#=i
        j1#=j/detail#
        Px=320.0+(i1#*cos(j1#))
        Py=240.0-(i1#*sin(j1#))
        color1=Color(px,py)

        Px=320.0+(i1#*cos(j1#+Degre#))
        Py=240.0-(i1#*sin(j1#+Degre#))
        ink rgb(rgbb(color1),rgbg(color1),rgbr(color1)),0
        dot Px,Py
      next j
  next i
  degre#=degre#+10
  get image 1,0,0,640,480
  set current bitmap 0
  cls 0
  paste image 1,0,0
  sync
loop

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / VERY slow point() command