Zeichnen

[Noedel]

mit nem Timer liest du aus, ob eine Taste gedrückt ist (--> getansikeystate), dann malst du mit lineto eine Linie in die gewünschte Richtung.
also sähe dann im pseudocode so aus

Delphi-Quellcode:

Anweisung Zeichnen(Zeichen:Char; JetztX,JetztY:Integer)
Variable
  LinieVertikal, LinieHorizontal: byte;
beginne
  Wenn zeichen='W' dann
    Beginne
      LinieHorizontal:=0;
      LinieVertikal:=-5;
    Ende
  Wenn zeichen='S' dann
    Beginne
      LinieHorizontal:=0;
      LinieVertikal:=5;
    Ende
  Wenn zeichen='A' dann
    Beginne
      LinieHorizontal:=-5;
      LinieVertikal:=0;
    Ende
  Wenn zeichen='D' dann
    Beginne
      LinieHorizontal:=5;
      LinieVertikal:=0;
    Ende
  Bild.Zeichenfläche.LinieZu(JetztX+LinieHorizontal,JetztY+LinieVertikal)
  Ende