PQASCIIStudio - ASCII Arts wie in Paint zeichnen

Pr0g · Beiträge: 220 D7 Pers

Hallo,

ich möchte nun mein neustes Projekt (war wieder für einen Wettbewerb) vorstellen: PQASCIIStudio.

Das Programm soll beim Erstellen von ASCII Arts behilflich sein, in dem es Zeichentools wie Paint anbietet, hier mal ein Screenshot: .png (~21Kb).

Das Programm biete verschiedene Exportfunktionen (HTML, RTF, TXT), sowie ein eigenes Format (.adf). Herzstück des Programms ist der TASCIIDesigner. Diese Komponente stellt die Zeichenfläche, -funktionen und alles weitere wie Exporter zur Verfügung. Dem Programm liegt eine kleine Hilfe bei und der Code ist kommentiert. Für die TASCIIDesigner Komponente liegt noch eine Dokumentation (mit DelphiCodeToDoc erstellt) bei.

Das Programm hat noch nen paar Bugs und einige Funktionen fehlen noch (dazu blieb mir die Zeit nicht). Ich werde es nach Fertigstellung von Webweaver v2 aber noch weiterentwickeln. In der Readme findet ihr nochmal genauere Infos zu den einzelnen Teilen (Programm, Code, ToDo-Liste): .txt (~5Kb).

Für die .adf Dateien gibt es auch noch eine Onlinegalerie (bspw. um die Bilder anderen zu zeigen): adfviewer.pr0g.net. Das PHP Script ist auch OpenSource und liegt dem Download ebenfalls bei.

Hier nun der Download, das ganze ist unter der GPL lizensiert: .zip (~661Kb).

Im Ordner "sample" findet ihr das auf dem Screenshot gezeigte Bild als .adf Datei (zum Laden in das Programm), sowie den verschiedenen Exportformaten.

Feedback wie immer erwünscht

MfG Pr0g

retnyg · Verfasst: Mi 15.06.05 18:26

sieht ziemlich geil aus, testen werd ichs sobald ich bedarf habe
glaube aber schon vom screenie her zu sagen können dass es ein top-teil ist

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

uall@ogc · Verfasst: Mi 15.06.05 18:45

hab zuerst gedacht der kann schwarzweiß bilder direkt konvertieren, dann wärs geil gewesen.

aber so braucht man das programm net wirklich *duck*

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

Pr0g · Beiträge: 220 D7 Pers

@retnyg: Danke.

@uall@ogc: Dafür gibt es Bildconverter. Dies ist aber ein Zeichenprogramm zum erstellen von ASCII Arts. Wie in der ToDo Liste zu lesen ist, wird eine Importfunktion für Bilder aber später noch integriert. Die Hauptaufgabe des Programms liegt bei der Erstellung eigener Bilder.

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Das ist doch mal ein cooles Programm
Allein auf die Idee zu kommen
gefällt mit richtig gut

aber gibt es eine möglichkeit die bilder zu vergrößern?

Pr0g · Beiträge: 220 D7 Pers

DarkHunter hat folgendes geschrieben:

Allein auf die Idee zu kommen

Die Idee ASCII Arts mit einem Programm leichter zu erstellen ist nicht von mir. Es war für einen Wettbewerb und gibt ähnliche Programme.

DarkHunter hat folgendes geschrieben:

aber gibt es eine möglichkeit die bilder zu vergrößern?

Wie genau meinst du das mit "vergrößern"? Momentan gibt es nichts in dieser Richtung.

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Ich meine mit "Vergrößern da auch größere Bilder möglich sind, und nicht nur die voreingestellte feste größe

Pr0g · Beiträge: 220 D7 Pers

Geh einfach mal auf "Datei"->"Neu", dann kannst du eine Größe angeben. Und sollte ein Text (aus der Zwischenablage) auch größer sein, als die Designerfläche, so kommt eine Abfrage, ob der Designer abgepasst werden soll (oder der Text abgeschnitten).

F34r0fTh3D4rk · Verfasst: Di 21.06.05 13:43

finde ich gut, auch dass es dicker wird, wenn man mehrmals drüber geht.
es müsste aber eine Textfunktion geben die Texte so ausgibt:

markieren

Quelltext

1:
2:
3:
4:
5:

  A  BBB CCC
 A A B B C
 AAA BB  C
 A A B B C
 A A BBB CCC

das wäre lustig, und ne funktion die schwarz/weiß bilder umwandelt, dann ist es perfekt, ansonsten richtig geil, vielleicht noch etwas verbessern, aber auch schon heftig, dass es richtungen erkennt, zwar manchmal zu genau aber schön ! :wink:

ich finde die boxen ja so lustig, wollte da schon ne eigene Komponente draus machen, aber gab son paar Fehler, dann hatte ich kein Bock mehr, ne Procedure geschrieben, mal geguckt, wie Pr0g das gemacht hat, ich hatte viele schleifen drin, weil ich stringofchar (sehr praktisch) nicht kannte und hab halt ne Procedure draus gemacht, die man für jedes MemoFeld einsetzen kann:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure CreateTextBox(Memo: TMemo; Txt: TStrings; EdgeChar, FrameChar, SideFrameChar: char);
var
  i, max: Integer;
  str, frame: String;
begin
  max := 0;
  //Alles aufs Memo beziehen
  with Memo do
    begin
      //Schriftart setzen
      font.Name := 'fixedsys'; 
      //Länge der längsten Zeile ermitteln
      for i := 0 to Txt.Count - 1 do
        if Length(Txt[i]) > max then
          max := Length(Txt[i]);
      //Update beginnen
      Lines.BeginUpdate;
      //Vorher alles löschen
      Lines.Clear;
      //Oberen und unteren Rahmen festlegen
      Frame := EdgeChar + StringOfChar(FrameChar, max + 2) + EdgeChar;
      //Oberen Rahmen setzen
      Lines.Add(Frame);
      //Textzeilen bearbeiten und einfügen
      for i := 0 to Txt.Count - 1 do
        begin
          str := Txt[i];
          if Length(str) < max then
            str := str + StringOfChar(' ', max - Length(str));
          str := SideFrameChar + ' ' + str + ' ' + SideFrameChar;
          Lines.Add(str);
        end;
      //Unteren Rahmen setzen
      Lines.Add(frame);
      //Update beenden
      Lines.EndUpdate;
    end;  
end;

Beispielaufruf

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Memo2Change(Sender: TObject);
begin
  CreateTextBox(Memo1, Memo2.lines, '+', '-', '|');
end;

vielleicht mach ich noch eine wo man den text zentriert anzeigen lassen kann und rechtsbündig, ich glaube das ist ganz nützlich

Pr0g · Beiträge: 220 D7 Pers

Textfunktion: Support für FiGlet Schriften wäre später noch machbar. Der Vorteil dabei ist, dass es schon eine ganze Menge Fonts gibt und diese auch etwas Variable sind:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

 _____ _       _      _
|  ___(_) __ _| | ___| |_
| |_  | |/ _` | |/ _ \ __|
|  _| | | (_| | |  __/ |_
|_|   |_|\__, |_|\___|\__|
         |___/

Wie hier zu sehen ist, geht das "t" in das "e", solche Überschneidungsstücke werden für jeden Buchstaben in der Font angegeben. Jedoch dürfte es nicht wenig Arbeit sein, das FiGlet System zu integrieren.

Schwarz-/Weißbilder nach ASCII: Es ist ein allgemeiner Bildimporter geplant, der auch farbige Bilder durch verschiedenen Algorythmen umwandeln kann.

Momentan habe bin ich noch mit Webweaver beschäftigt. Denke in ein paar Wochen finde ich Zeit für eine Teil-Weiterentwicklung.

F34r0fTh3D4rk · Verfasst: Di 21.06.05 17:38

wie wäre es mit einer eigenen schrift schnittstelle, sollte doch nicht so schwierig sein, man kann neue buchstaben (mit deinem programm) erstellen und diese dann in eine Font Datei Speichern, diese wird dann im programm eigenen Font Ordner geschpeichert und ist dann mit ner Font-Kombobox auswählbar, dann kannst du die einzelnen buchstaben ja zeile für zeile nebeneinander klatschen (ähnlich wie mit den boxen) das sollte dann eigentlich recht einfach werden :wink:

ok buchstaben die sich nicht in ein Quadrat packen lassen, weil die einzelnen buchstaben dicht aneinander oder ineinander sein müssen, werden schwierig werden :lol:

ich mach gerade einen ReadMe Datei Creator, um so simple TXT Dateien Grafisch aufzupeppen, sowas wie dein "paint" werde ich wohl nicht einbauen, dann müssen die schon dein Tool runterladen, aber Überschriften, Boxen und Listen einfacher zu erstellen ist doch auch fein

ach ja: sonne paint farbleiste unten fehlt noch, sodass man 2 farben wählen kann, und n radierer :!:

Pr0g · Beiträge: 220 D7 Pers

Wegen den Schriften werden ich mir noch ein System ausdenken.

Momentan gibt es keine Hintergrundfarbe für die einzelnen Felder (warum auch), daher reicht eine Farbe IMHO :roll:

Radierer kommt ja auch noch:

readme.txt hat folgendes geschrieben:

[...]
Folgende Features
könnte ich mir für die Zukunft aber noch vorstellen:

- komplette Unterstüzung für Rückgängig und Wiederrufen
- Umwandeln mehrerer .txt in .adf Dateien
- Exporter für JS Animationen
- Importer für Grafiken
- .adf Dateien mit dem Programm verknüpfen
- ClipArt Gallerie
- weitere Modi (bspw. Radiergummi, Füllen...)
- Erweiterung der Pixelerkennung
- Diagramm-Generator
- (Pluginschnittstelle)
- überarbeitetes Design der Hilfe^^
[...]

F34r0fTh3D4rk · Verfasst: Di 21.06.05 19:22

Undo Redo fehlt auch noch !

F34r0fTh3D4rk · Verfasst: Mi 14.12.05 16:09

gibts schon wieder was neues, bin total auf den Bildimporter gespannt :!:

Pr0g · Beiträge: 220 D7 Pers

Nein, ich hatte noch keine Zeit dafür, da der ASCII Designer nur ein Nebenprojekt ist (welches ich aber nicht vergesse). Doch es könnte noch etwas dauern, (vielleicht auch ein halbes Jahr...kA) bis ich mit bestimmten anderen Projekten an einem Punkt angelangt bin an dem ich sagen kann, dass die Projekte nun laufen und ich mich dem ASCII Designer widmen kann. Habe leider seit der Arbeit nicht mehr so viel Zeit wie früher bei der Schule

F34r0fTh3D4rk · Verfasst: Mo 19.12.05 18:39

oder du gibst den source frei

Pr0g · Beiträge: 220 D7 Pers

F34r0fTh3D4rk hat folgendes geschrieben:

oder du gibst den source frei

Du hast dir das Projekt aber mal angesehen, oder? Dies hier ist die Sparte für "Open Source Projekte" und im ersten Post von mir steht:

Pr0g hat folgendes geschrieben:

Hier nun der Download, das ganze ist unter der GPL lizensiert: .zip (~661Kb).

Der Download enthält:

Executable
Beispiele
Source
Dokumentation
PHP Source der Onlinegalerie

Was willst du mehr :roll:

F34r0fTh3D4rk · Verfasst: So 25.12.05 13:11

ups, hatte ich ja ganz vergessen ^^ hab mir ja auch den source schon angesehen, sorry

siehe meinen post:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure CreateTextBox(Memo: TMemo; Txt: TStrings; EdgeChar, FrameChar, SideFrameChar: char);
var
  i, max: Integer;
  str, frame: String;
begin
  max := 0;
  //Alles aufs Memo beziehen
  with Memo do
    begin
      //Schriftart setzen
      font.Name := 'fixedsys'; 
      //Länge der längsten Zeile ermitteln
      for i := 0 to Txt.Count - 1 do
        if Length(Txt[i]) > max then
          max := Length(Txt[i]);
      //Update beginnen
      Lines.BeginUpdate;
      //Vorher alles löschen
      Lines.Clear;
      //Oberen und unteren Rahmen festlegen
      Frame := EdgeChar + StringOfChar(FrameChar, max + 2) + EdgeChar;
      //Oberen Rahmen setzen
      Lines.Add(Frame);
      //Textzeilen bearbeiten und einfügen
      for i := 0 to Txt.Count - 1 do
        begin
          str := Txt[i];
          if Length(str) < max then
            str := str + StringOfChar(' ', max - Length(str));
          str := SideFrameChar + ' ' + str + ' ' + SideFrameChar;
          Lines.Add(str);
        end;
      //Unteren Rahmen setzen
      Lines.Add(frame);
      //Update beenden
      Lines.EndUpdate;
    end;  
end

^^ war wohl nicht ganz bei mir

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme