semi shading?

[MihaiG]

well this is sortoff a shading program i am working on.....its ok so far..

but i need some tips on optimizing...

and i cant get it to work so u draw in -y or - x direction from where mosue is clicked and dragged

and how can i make it more efficient

code:

setscreen ("graphics:max;max") var mx, my, mb : int proc shade (x1, y1, x2, y2 : int, col : int)     for decreasing j : y2 .. y1 by 3         for i : x1 .. x2 by 3             Draw.Dot (i, j, col)         end for     end for     for decreasing j : y2 - 1 .. y1 by 3         for i : x1 + 1 .. x2 - 1 by 3             Draw.Dot (i, j, col)         end for     end for end shade var temp := 1 var x1, y1, x2, y2 : int := 0 var chars : array char of boolean Pic.ScreenLoad ("C:/water.jpg", 100, 100, picUnderMerge)%add a picture to see a bit how it works loop     Mouse.Where (mx, my, mb)     Input.KeyDown (chars)     if chars ('t') then         put "The T key is pressed"     end if     if mb = 1 and temp = 1 then         x1 := mx         y1 := my         temp := 0     elsif mb = 1 and temp = 0 then         x2 := mx         y2 := my         shade (x1, y1, x2, y2, 15)     elsif mb = 0 then         temp := 1     end if end loop

[Delos]

For your shade proc, try this instead:

code:

proc shade (x1, y1, x2, y2 : int, col : int)     for i : min (x1, x2) .. max (x1, x2) by 3         for j : min (y1, y2) .. max (y1, y2) by 3             Draw.Dot (i, j, col)         end for     end for     % etc end shade

Neat, eh?

Now, for your main loop, look into Mouse.ButtonWait() and Mouse.ButtonMoved(). Specifically, look at the example that comes with F10. You should be able to edit that to get something. The best I was able to come up with (without too much work) was one where you click at one point, drag, release, and a clean shading is drawn. The only set back was that there was no indicator as to where the box would start and end...but that's not too difficult to get around.

No, not posting my code was not a mistake...I'll let you mull over it a little bit before I do that. Uh, if I do...

[MihaiG]

well...you read my mind... i am working on that kind of program like drag and release...but i want to make it so when you draw and move the mouse the shading gradient thingy doesn change and it doesnt look like grey lines but grey dots..

[batman]

Your shading program didn"t work on my computer. Nothing was outputed on the output screen.

[[Gandalf]]

If it doesn't work, that is your computer's fault. More likely, you didn't check to see what the program does. It doesn't output anything by default, try clicking around with the mouse, clicking and dragging.

[batman]

Oh! Ok after I clicked around and did it the right way this time, the program is pretty cool. Its easier for some reason to shade in the middle part of the screen then in the far end corners though.

[DaftPunk]

This little code is pretty cool. Although on my screen it only shows up the first time I drag and drop. What are you planning on doing with it? Just shading pics?

[Booya]

Awesome shading program your really talented at turing.

[do_pete]

You could try something like this, but it is too slow to be practicle

code:

proc shade (x1, y1, x2, y2 : int, col : int)     for i : min (x1, x2) .. max (x1, x2)         for j : min (y1, y2) .. max (y1, y2)             var Colour : int             var r, g, b : real             var Colour2 : int             Colour := whatdotcolour (i, j)             RGB.GetColour (Colour, r, g, b)             Colour2 := RGB.AddColour (r / 2, g / 2, b / 2)             Draw.Dot (i, j, Colour2)         end for     end for end shade

[MihaiG]

ya...ur combining olours...thats really slow...and u rdoing it for eveyr pixel


do it for eveyr other one and i twould run way faster..

[MysticVegeta]

yes but then it loses its effect too =\

[do_pete]

Is there a way to make it quicker without losing the effect?

[MihaiG]

think about it


if u drag a box 10x10 its 100 pixels so ur doing that calculation 100 times...ok.



lets say ur box is 100,100 = 10,000

that starts to get really slow

and finaly if our box is 400,700

its 280,000 pixels it has to calculate


so its gonna be very inneficient