PDA

View Full Version : Scar paint...



Negaal
02-13-2008, 07:53 PM
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
http://i26.tinypic.com/10oion6.jpg

Harry
02-13-2008, 07:57 PM
Bloody nice!

Looks sweet :)

Heavenzeyez1
02-13-2008, 08:11 PM
That's amazing.
You are very bored?:D
http://img86.imageshack.us/img86/8742/48530290pj6.th.jpg (http://img86.imageshack.us/my.php?image=48530290pj6.jpg)
Eerik.

mixster
02-24-2008, 08:02 PM
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 ;)
http://i26.tinypic.com/2dlrayb.gif
Edit: Updated it with the vector version (converted it to a gif so it's smaller)

vcvv
02-24-2008, 08:25 PM
Woah!! awesome script!

GoF
02-24-2008, 08:51 PM
Nice but cooler with photoshop. Looks a bit choppy.. A simple and nice script though. Whoosh.

Negaal
02-24-2008, 11:40 PM
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

mixster
02-25-2008, 04:07 PM
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

exppo
02-25-2008, 04:16 PM
Wo neato I edited it and it came out like a dogs dinner :D

mixster
02-25-2008, 05:59 PM
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.

coo too
03-01-2008, 02:06 PM
here's what mine did. I did a few times over itself because there were some blank bits that didn't look very tidy.


http://i31.tinypic.com/2ccw0gg.jpg

Zezi
03-31-2008, 11:45 AM
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. :)