----------------------------------- Thuged_Out_G Fri Dec 12, 2003 4:51 pm Fade effect? ----------------------------------- i wanted to make a sonar like thing here is what i have so far, its not much lol View.Set ("graphics") for decreasing i : maxint .. 1 Draw.FillArc (100, 100, 100, 100, 0, 360, black) Draw.FillArc (100, 100, 100, 100, i - 1, i, 10) delay(15) end for i was wondering how i could add like a fade effect to the green bar any ideas anyone? ----------------------------------- Mazer Fri Dec 12, 2003 5:33 pm ----------------------------------- with turing, you start off with a pretty crappy (for most things) palette of 256 colours. if you plan on drawing with any other colours you're either loading pictures, or making your own colours. luckily there's a way to make your own colours in turing: RGB.SetColour(). it takes 4 parameters: colour number, red component, green component, and blue component. using this you can mix your own colours by using various values of red green and blue (between 0.0 and 1.0, see var angle := 0 for i : 0 .. 255 RGB.SetColour (i, 0, (i - 150) / 150 * i / 255, 0) end for RGB.SetColour (255, 0, .8, 0) RGB.SetColour (0, 0, 0, 0) cls View.Set ("offscreenonly") loop angle += 5 for decreasing c : 255 .. 170 Draw.FillArc (100, 100, 100, 100, angle + c, angle + c + 1, c) drawfillarc (100, 100, 100, 100, angle + 255, angle + 257, 255) end for View.Update delay (20) drawfilloval (100, 100, 100, 100, 170) end loop ----------------------------------- DanShadow Fri Dec 12, 2003 5:41 pm ----------------------------------- Ah! RGB is the answer to not using the 256 colors...ive been secretly wondering about that for a couple weeks, tx! Also, that sonar looks great. :D ----------------------------------- Homer_simpson Fri Dec 12, 2003 6:44 pm ----------------------------------- mazer yer effect is pretty creative i like it... + bits ----------------------------------- Thuged_Out_G Fri Dec 12, 2003 7:38 pm ----------------------------------- thanks mazer, that was a pretty cool solution...im gonna try it on my own now :D ----------------------------------- Thuged_Out_G Fri Dec 12, 2003 7:50 pm ----------------------------------- i have another question i made the sonar bleep things to appear where the user clicks the mouse, and i am trying to make it so the bleeps are black when the user clicks outside the sonar....it works, but as soon as you click on the sonar area, and then outside it draws a green bleep var angle := 0 var x, y, button : int for i : 0 .. 255 RGB.SetColour (i, 0, (i - 150) / 150 * i / 255, 0) end for RGB.SetColour (255, 0, .8, 0) RGB.SetColour (0, 0, 0, 0) cls View.Set ("offscreenonly") loop angle += 5 for decreasing c : 255 .. 170 Draw.FillArc (100, 100, 100, 100, angle + c, angle + c + 1, c) drawfillarc (100, 100, 100, 100, angle + 255, angle + 257, 255) end for View.Update delay (20) drawfilloval (100, 100, 100, 100, 170) Mouse.Where (x, y, button) if button = 1 then if x > angle and y > angle then Draw.Oval (x, y, 5, 5, 0) else Draw.Oval (x, y, 5, 5, 10) Draw.Oval (x, y, 10, 10, 10) end if end if end loop any suggestions? ----------------------------------- Mazer Fri Dec 12, 2003 8:38 pm ----------------------------------- that's because the only part of the screen that's being drawn over is the radar part. anything that's drawn somewhere else will stay there until something else is drawn over it or the screen is cleared. try this: var angle := 0 var x, y, button : int for i : 0 .. 255 RGB.SetColour (i, 0, (i - 150) / 150 * i / 255, 0) end for RGB.SetColour (255, 0, .8, 0) RGB.SetColour (0, 0, 0, 0) cls View.Set ("offscreenonly") loop angle += 5 for decreasing c : 255 .. 170 Draw.FillArc (100, 100, 100, 100, angle + c, angle + c + 1, c) drawfillarc (100, 100, 100, 100, angle + 255, angle + 257, 255) end for Mouse.Where (x, y, button) if button = 1 then /* if x > angle and y > angle then %