Hilfe - Wie erstellt man in Squeak eine Pixelgrafik?

Ich möchte gerne ein Bild (Pixelgrafik) erstellen, beispielsweise ein Sierpinski-Dreieck, und benötige dazu eine Anweisung der Art putPixel(x, y), drawDot(x, y) oder g.fillRect(x, y, 2, 2). Das müsste es doch auch in Squeak geben.

Ich habe lange in den Büchern (Inside Smalltalk, Blue Book) gesucht, aber keine Anleitung, kein Beispiel für diese einfache Aufgabe gefunden.

Mit Dank im voraus für die Hilfe

R. Baumann

Hallo Rüdeger Baumann,


On Sun, 26 Dec 2010, R. Baumann wrote:

>
> Ich möchte gerne ein Bild (Pixelgrafik) erstellen, beispielsweise ein
> Sierpinski-Dreieck, und benötige dazu eine Anweisung der Art putPixel(x, y),
> drawDot(x, y) oder g.fillRect(x, y, 2, 2). Das müsste es doch auch in Squeak
> geben.
>

Ich würde vermuten, dass die Klasse 'Form' eine mögliche Lösung des
Problems darstellt:

Form>>colorAt: x@y put: Color myColor

Schöne Grüße und frohe Festtage

Markus

Vielen Dank für den Hinweis - aber in den Klassen Form und BitBlt habe ich nachgeschaut. Dort wird gezeigt, wie man Bilder als rechteckige Bereiche mit Hilfe von 0/1-Reihungen (Arrays) erzeugt. Ich benötige aber lineare Gebilde, die man mit Pixeln füllen und dann untereinandersetzen kann.
Ennos Hinweis auf Canvas werde ich gleich nachgehen; aber ist dies nicht eher für Morphs gedacht?
Warum sind Dinge, die z. B. in Java ganz einfach gehen, in Squeak nur so kompliziert?

Nochmals vielen Dank für die guten Wünsche

R. B.

On 12/26/2010 10:42 PM, R. Baumann wrote:
> Vielen Dank für den Hinweis - aber in den Klassen Form und BitBlt habe ich
> nachgeschaut. Dort wird gezeigt, wie man Bilder als rechteckige Bereiche mit
> Hilfe von 0/1-Reihungen (Arrays) erzeugt. Ich benötige aber lineare Gebilde,
> die man mit Pixeln füllen und dann untereinandersetzen kann.
> Ennos Hinweis auf Canvas werde ich gleich nachgehen; aber ist dies nicht
> eher für Morphs gedacht?

Nein. Gar nicht. Am einfachsten geht das so:

form := Form extent: 100@100 depth: 32.
(form getCanvas)
        fillRectangle: form boundingBox color: Color white; "background"
        fillOval: form boundingBox color: Color red; "kreis"
        line: 0@0 to: 100@100 width: 1 color: Color black;
        line: 0@100 to: 100@0 width: 1 color: Color black; "kreuz;"
        point: 50@50 color: Color green; "pixel"
yourself. "usw. usf. see Canvas/FormCanvas Protokoll"

"und jetzt anzeigen"
form display.

"oder speichern"
PNGReadWriter putForm: form onFileNamed: 'sample.png'.

"oder als Morph oeffnen"
(SketchMorph withForm: form) openInWorld.

> Warum sind Dinge, die z. B. in Java ganz einfach gehen, in Squeak nur so
> kompliziert?

Weil a) Du Java kennst und Squeak nicht und b) es praktisch keine
Dokumentation fuer Squeak gibt und fuer Java schon.

Ciao,
   - Andreas

Danke, Andreas, ich werde die Hinweise gleich umsetzen.

Zuerst möchte ich mich noch bei Markus Schlager bedanken; es ging doch, wie er geschrieben hat.
Das folgende Programm (im Workspace) erzeugt ein Pascas-Dreieck mod 5.

basis := 5.
0 to: (basis hoch: 3) - 1 do: [:zeile |
  0 to: zeile do: [:spalte |
    w := zeile comb: spalte.
    w \\ basis = 0
         ifTrue: [Display colorAt: (100 + spalte) @(200 + zeile) put: Color black].
      ] "do"
  ]. "do"

Merke: Squeak-Programmierung lernt man nicht aus Büchern, sondern durch Mundpropaganda (vom Hörensagen, durch dringliches Befragen von Experten).

R. B.