And here it is:

And here it is:
AsciiImage for Delphi
http://memnarch.bplaced.net/blog/?p=129
http://memnarch.bplaced.net/blog/?p=129

Comments

  1. my idea is, that you define a const array like:
    CPokeballColors: array[0..3] of TAsciiImagePaintContext = (
      (FollColor: clBlack; StrokeColor: clBlack; PenSize: 1)
    ...
    );
    Still very simple, but more readable

    ReplyDelete
  2. then you can also define Shapes, no need of Ascii Art ;)

    PokeBall = array [0..2] of Shape = (
      (Kind: Circle, Color: Red ...
    );

    and how will you load this colors from a text file or a Database ? how will you make them related to the pokeball shape ?

    Anyway, that's your project, thank you for sharing it ;)

    ReplyDelete
  3. Paul TOTH
    The advantage of still using ascii-art instead of directly specifying shapes is, that you see what it looks like(sort of). And colors are assigned by order. If it has 8 shapes, you'd have to add 8 entries.(year a bit repetetive but simple)

    ReplyDelete

Post a Comment