SRL Archive - Graphics and Multimedia

By editing "this"'es you can combine lots of amazing musters, just try in paint

program New;

var
  x,y,midx,midy,h,w : integer;
  angle, rad : extended;
  
const
  ring = false; //this

begin
  activateclient;
  wait(500);
  GetClientDimensions(w,h);
  midx := w / 2;
  midy := h / 2;
  rad := 200;//round((w + h) / 12); //this
  holdmouse(x,y,true)
  repeat
    angle := angle + 1.9;    //this
    X := MidX + Round(rad * Cos(Radians(Angle - 90)));
    Y := MidY + Round(rad * Sin(Radians(Angle - 90)));
    wait(1);
    if ring then
      holdmouse(x,y,true)
    else
      holdmouse(midx,midy,true);
    movemouse(x,y);
  until angle >= 360;
  releasemouse(x,y,true)
end.

See::p

Bloody nice!

Looks sweet :)

That's amazing.
You are very bored?:D

Eerik.

Very nice - Adjusted my arc maker to work the same way and made an eye in paint (gonna try and make it in CorelDraw so I can resize it etc. and fix any imperfections). Also, I wanted to move the reflection bit outwards a bit more, but I didn't want to risk ruining it ;)
Edit: Updated it with the vector version (converted it to a gif so it's smaller)

Woah!! awesome script!

Nice but cooler with photoshop. Looks a bit choppy.. A simple and nice script though. Whoosh.

Nice one Mixter, I might try adjust it that much it draws it on canvas(when I find some time:p)…it would be faster…and l33ter… xD

It lags superbad in CorelDraw - it actually finished the script atleast 30 seconds before its finished being drawn >< Still, I've got it to work perfectly and have even made it autodetect Corel because it kept trying to draw on scar as I forgot to put the crosshairs on it lol
I can post the script if anyone wants it as well. I haven't tested it too thoroughly, but it's flawless as far as I can tell (and you can distort the shape into eclipses :p).
Also, I updated my image above. It's slightly more faint, but that's because Corel actually draws it "1" pixel wide, which is somehow different from 1 pixel in paint

Wo neato I edited it and it came out like a dogs dinner :D

Uggh, tried to make it draw on the canvas, but it won't free it afterwards, leading to my scar crashing :( It works fine the first time, but any time after that and it gets an access error, but feel free to try and fix it.

program New;
const
  degPerLine = 5;
var
  buffer,MidX,MidY,Rad: Integer;
  Canvas: TCanvas;
  x,y,dloop,eloop: Integer;
  angle: Extended;
  
begin
  MidX := 100;
  MidY := 100;
  Rad := 85;
  BitmapFromString(200, 200,'')
  FastDrawClear(Buffer, 0);
  DisplayDebugImgWindow(200, 200);
  Canvas := GetDebugCanvas;
  SetClientPos(True);
  Canvas.Pen.Color:= 16777215;
  Canvas.Pen.Width := 1;
  eloop:= Round(360 / degPerLine);
  repeat
    angle := angle + degPerLine
    Inc(dloop);
    X := MidX + Round(rad * Cos(Radians(angle - 90)));
    Y := MidY + Round(rad * Sin(Radians(angle - 90)));
    canvas.moveto(midx,midy);
    canvas.lineto(x,y);
    Wait(100);
  until (dloop >= (eloop-1));
  Canvas.free;
  FreeBitmap(Buffer);
end.

P.S. It's half my "star" shape maker and half your radar script and I've tried with and without the freebitmap, just added that as I thought it may be that the buffer bitmap wasn't being refreshed.

here's what mine did. I did a few times over itself because there were some blank bits that didn't look very tidy.

Lol, do you think that this could ever be used?

Ingenious use of your time however :) Yet i fial to see the benefits, fun nonetheless. :)