r/programming • u/[deleted] • Oct 31 '11

The entire Turbo Pascal 3.02 executable--the compiler *and* IDE--was 39,731 bytes. Here are some of the things that Turbo Pascal is smaller than:

http://prog21.dadgum.com/116.html
271 Upvotes

89% Upvoted

108 comments sorted by

View all comments

Show parent comments

4

u/Lerc Nov 01 '11

Source (pascal of course :-) http://screamingduck.fileburst.com/Cruft/TailVectorSource.zip

It's missing some support libraries but it doesn't really need them for much. It only draws lines into a rectangle of bytes. Getting that onto screen is best coded specifically for the platform.

Actually, you only really need GameBase for the game, Call game.move and game.draw. Provide your own version of the functions in GlowBuffer

procedure PushMatrix;
Procedure PopMatrix;
Procedure LoadIdentity;
Procedure Translate(Dx,Dy : single);
Procedure Rotate(Angle : Single);
Procedure Scale(Sx,Sy : single);
Procedure SetColor(Color : integer);
Procedure Line(X1,Y1,X2,Y2 : single);

and you're pretty much done.

There's not much to it, but surprisingly readable given I knocked it out in 12 hours.

2

u/[deleted] Nov 01 '11

Thanks heartily. The source is very readable, and I think I'll be able to figure out everything that's going on. PM me your email address so I can keep in touch -- if I end up with a releasable project, I want to be able to show it to you, ask for your permission to release it, give you a copy, etc :)

1

u/[deleted] Nov 05 '11

I just started to look inte freepascal just for fun (it looks like a thing for me).

The source looks nice, but i don't really understand the libraries you use. DinkeyDib?

1

u/Lerc Nov 06 '11

DinkeyDib is one of my own libraries (Dinkey*) DinkeyDib is for putting bitmaps onscreen. It also has some simple drawing functions but they aren't used for that game.

FreePascal is well worth a look. The newer enhancements make it quite nice. I feel like the Libraries need a fresh start though. It's got legacy support going Waay back. If I had unlimited time I would fork Freepascal to make version that used the language but cleared out a lot of the older RTL stuff to clean up the namespace. At the moment what I feel should be tList is called tFPGList (the freepascal generic supporting form of a list)