weequ
2010-11-13 19:08:47
All lines are made with MMouse moving from the left to the right.1 = 800 pixels move.
2 = 700
3 = 600
4…..
I like the look.
2010-11-13 19:08:47
All lines are made with MMouse moving from the left to the right.2010-11-13 19:10:58
2010-11-13 19:14:08
From: Shuttleulol. Idk where I should put it…
errr…. how is this news?
~shut
2010-11-13 19:14:55
2010-11-13 19:49:00
2010-11-13 19:50:07
This is what my mouse movement looks like
2010-11-13 20:01:42
From: Zyt3x
This is what my mouse movement looks like
2010-11-13 20:17:12
From: cstrikeNo, seriously. I do draw like that :P
;)
MSPaint, or I will personally pay you to teach me how your hands are so steady and perfect.
2010-11-13 20:19:00
From: Zyt3x
No, seriously. I do draw like that :P
I can film it for you ;P
2010-11-13 20:50:29
From: Shuttleu
its easy to draw like that if you use a mouse (not a mouse pad)
~shut
2010-11-14 13:30:22
2010-11-14 14:11:05
From: Zyt3x
No, seriously. I do draw like that :P
I can film it for you ;P
E: there http://www.youtube.com/watch?v=L-ovpDYw6ZA
2010-11-14 14:56:23
From: cstrike
Omg how :cartman:?
Whoever said shift, that doesn't work for me :(
2010-11-14 15:21:07
2010-11-14 15:35:37
From: cstrike
Omg how :cartman:?
Whoever said shift, that doesn't work for me :(
2010-11-14 16:52:33
2010-11-15 14:46:49
2010-11-15 14:57:55
2010-11-15 19:08:14
2010-11-15 19:37:24
2010-11-15 20:01:46
program new;
var b,cx,cy,lx,ly : integer;
procedure ScriptTerminate;
begin
FreeBitmap(b);
end;
begin
b := CreateBitmap(500,500);
DisplayDebugImgWindow(500,500);
while true do
begin
wait(10);
DrawBitmapDebugImg(b);
while IsMouseButtonDown(mouse_Left) do
begin
try
GetMousePos(cx,cy);
if not (cx = lx) and ( cy = ly) then
begin
FastSetPixel(b,cx,cy,255);
writeln((cy-ly)/(cx-lx));
end;
except
writeln(ExceptionToString(ExceptionType,ExceptionParam));
end;
GetMousePos(lx,ly);
end;
end;
end. it fails?? but why =\
2010-11-16 12:44:37
2010-11-16 13:03:46
2010-11-16 13:54:57
program new;
const
newl = #13#10;
updateint = 1;
destination = 'C:/';
filename = 'testnumbers';
var
x,y,ox,oy,r,f,i:integer;
temp:string;
function I2S(x:integer):string;
var
t:string;
i:integer;
begin
t := IntToStr(x);
i := 4 - Length(t);
while (i<>0) do
begin
t := '0' + t;
i := i - 1;
end;
result := t;
end;
begin
i := 0;
f := CreateFile(destination + filename + '.txt');
WriteFileString(f,'Update interval: ' + IntToStr(updateint) + newl + newl);
GetMousePos(x,y);
ox := x;
oy := y;
while not(IsKeyDown(112)) do
begin
GetMousePos(x,y);
if (r<>0) then
begin
if ((ox = x) and (oy = y)) then
begin
r := r + 1;
end else
begin
temp := I2S(x) + ',' + I2S(y) + ' : ' + I2S(r) + newl;
r := 0;
WriteFileString(f,temp);
end;
end else
begin
if ((ox = x) and (oy = y)) then
begin
r := r + 1;
end else
begin
temp := I2S(x) + ',' + I2S(y) + newl;
WriteFileString(f,temp);
end;
end;
ox := x;
oy := y;
Sleep(updateint);
end;
end.