PDA

View Full Version : 2D graphics, anyone?



Mutant Squirrle
08-11-2007, 05:09 PM
Well this isnt really what I made and I assume that we all know what 2D graphics are I don't believe I need to explain that haha. Anyways I would like to know if anyone thinks they are good at making 2 dimensional graphics? If you think you are at least decent send me a pm or show some work here.

I am looking for someone who is willing to make some tile sets and possibly some sprite sheets. If you have no idea what im talking about but don't suck at 2d graphics still show me something pretty and I will talk to you.

I will provide more info on what im attempting later in the mean time if anyone is interested let me know.

Thank you.

SKy Scripter
08-11-2007, 08:15 PM
Creating new game? :)

Pokemons maybe? :D

hah i get people adding me on msn asking me to make pokemon or mario..
fun.. :p

Edit : btw use Splines... ;)

Edit2 : then you can create like a simple animation.. :)


program new;


const
RibbonWidth = 10;
RibbonHeight = 100;
DegreeTurn = 360;





type
TRibbon = record
Control : TPoint;
Width, Height : Integer;
end;

var
MainForm : TForm;
Ribbon : TRibbon;
Timer : TTIMER;
Degree : Integer;



function DrawSplinePath(sx, sy, ex, ey, MinStep : Integer; Controls : TPointArray) : TPointArray;
var
theta, inc, b1, b2, b3, b4 : Extended;
Tempx, Tempy, Lastx, Lasty : Integer;
Cntrls : array [1..4] of TPoint;
begin
inc := (1.0 / (Distance(sx, sy, ex, ey) / 0.5));
if (InRange(Length(Controls), 1, 3)) then
begin
Cntrls[1] := Controls[0];
Cntrls[2] := Controls[1];
Cntrls[3] := Controls[2];
Cntrls[4] := Point(ex - sx, ey - sy);
repeat
theta := theta + inc;
b1:= Pow(theta, 3);
b2:= 3 * b1 * (1 - theta);
b3:= 5 * (b1 / theta) * Sqr(1 - theta);
b4:= 3 * (b1 / Pow(theta, 2)) * Pow(1 - theta, 2);
Tempx := Trunc(Cntrls[1].x * b4 + Cntrls[2].x * b3 + Cntrls[3].x * b2 + Cntrls[4].x * b1 + sx);
Tempy := Trunc(Cntrls[1].y * b4 + Cntrls[2].y * b3 + Cntrls[3].y * b2 + Cntrls[4].y * b1 + sy);
if (iAbs(Lastx - Tempx) >= MinStep) and
(iAbs(Lasty - Tempy) >= MinStep) then
begin
SetArrayLength(Result, Length(Result) + 1);
Result[length(Result)-1] := Point(Tempx, Tempy);
Lastx := Tempx;
Lasty := Tempy;
end;
until (theta >= 1);
end;
end;

procedure DrawRibbon(Ribbon : TRibbon);
var
i : Integer;
P : TPointArray;
begin
try
P := DrawSplinePath(255, 100, 255, 100 + Ribbon.Height, 0, [Ribbon.Control, Ribbon.Control, Ribbon.Control]);

for i := 0 to GetArrayLength(P)-1 do
begin
MainForm.Canvas.MoveTo(P[i].x, P[i].y);
MainForm.Canvas.LineTo(P[i].x + Ribbon.Width, P[i].y);
if (i mod 2 = 0) then
MainForm.Canvas.Pen.Color := 255 * i;
end;
except
end;
end;




procedure OnPaint(Sender : TObject);
begin
DrawRibbon(Ribbon);
end;


procedure OnTimer(Sender : TObject);
var
x, y : Integer;
begin
Degree := Degree + 30;
x := trunc(100 * Sin((Pi/DegreeTurn) * Degree));
y := trunc(120 * Cos((Pi/DegreeTurn) * Degree));
Ribbon.Control := Point(x, y);
MainForm.Repaint;
end;


procedure InitForm;
begin
MainForm := CreateForm;
MainForm.SetBounds(0, 0, 500, 400);
MainForm.POSITION:= poDesktopCenter;
MainForm.BORDERICONS:= [biMinimize, biSystemMenu];
MainForm.BORDERSTYLE:= bsSingle;
MainForm.Caption := 'Splines!';
MainForm.Canvas.Pen.Color := 255;
MainForm.Canvas.Pen.Width := 4;
MainForm.Canvas.Brush.Style := bsClear;
MainForm.OnPaint := @OnPaint;

Timer := TTIMER.Create(MainForm);
Timer.INTERVAL := 100;
Timer.ONTIMER := @OnTimer;

MainForm.ShowModal;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;


begin
try
Ribbon.Height := RibbonHeight;
Ribbon.Width := RibbonWidth;

SafeInitForm;

finally
FreeForm(MainForm)

except
Writeln('ERROR: With Loading');

end;

end.

JuKKa
08-11-2007, 09:32 PM
hah i get people adding me on msn asking me to make pokemon or mario..
fun.. :p

*Cartman voice* skyyyy... can you make a super mario game in scar?

Dan Cardin
08-11-2007, 11:04 PM
im interested, but i dont know if im good enough:redface:

Mutant Squirrle
08-12-2007, 03:16 AM
just post a little character or a tree or anything that you would see in runescape or a chrono trigger type game. Haha fuck scar games no offense but I am actually trying to make an amusing little game in c++ =p sure it will be 2d but hey i have to start someplace

Dan Cardin
08-12-2007, 06:40 PM
u mean like rs minimap tree ?
http://img262.imageshack.us/img262/1808/zzzzzzzzzzzzzzzzzzzzzzzsj4.png (http://imageshack.us)

or some wierd rs minimap berry bush?
http://img255.imageshack.us/img255/8910/zzzzzzzzzzzzzzzzzzzzzzzyw5.png (http://imageshack.us)

or did u mean something else?

(note:together those took me 4 mins)

Mutant Squirrle
08-12-2007, 07:02 PM
haha well those actually arent that bad at all in comparison to the horrible images i have produced XD. Contact me on aim

mutantsquirrle
or msn
blurhenry@hotmail.com

yeah idc noobs can have my contacts lol just dont be stupid -_- (and dan im not calling you a noob)

TravisV10
08-12-2007, 11:52 PM
u mean like rs minimap tree ?
http://img262.imageshack.us/img262/1808/zzzzzzzzzzzzzzzzzzzzzzzsj4.png (http://imageshack.us)

or some wierd rs minimap berry bush?
http://img255.imageshack.us/img255/8910/zzzzzzzzzzzzzzzzzzzzzzzyw5.png (http://imageshack.us)

or did u mean something else?

(note:together those took me 4 mins)

You forgot the white dots for RS Demon users! :p

Dan Cardin
08-13-2007, 01:32 AM
You forgot the white dots for RS Demon users! :p

uhh right...well! im gonna be gone until the 18th as im putting in my sig so ye might want to find someone else till then, or wait(whichever)

Mutant Squirrle
08-13-2007, 05:45 PM
Well more then one person is always welcome to join I am sure we will need all the help me can get haha

PwNZoRNooB
08-14-2007, 05:29 AM
I would want to help but I can't. I'm not very good in these kinda things. :p

Mutant Squirrle
08-14-2007, 02:59 PM
haha so what exactly was the point of your post...

perri9
08-17-2007, 10:51 AM
http://www.imagehosting.com/out.php/i1035704_Counter.PNG
http://img3.freeimagehosting.net/uploads/715374e5bf.png
http://img3.freeimagehosting.net/uploads/fcbe2e527a.png

Im on my new computer, all my cool stuff has gone, only paint to work with. i used to be a 2d artist but then i got into isometric and 3d mmocc's.
Ill be happy to help.Obviously, i'd get better as i instal my various programs i use, and it would be great fun to help. I have tons more on my old pc, but i cant get to that at this moment. I have more that i cant show you, as they're for a mmocc that im currently pixelling for. :D


Thanks,



Perri.:spongebob:

Mutant Squirrle
08-17-2007, 06:38 PM
*claps* that is beautiful haha. Hey go ahead and add me on msn or aim and talk to me my addresses are in an above post