Area-Commands (graphicslib) OLD!

[hackball]

Ok.

Hier ist der Editor. Achtung!!! SEEEEEHHR ALT!! Classic, sozusagen. :roll:

Und der Code zum Laden der Patterns.

Code:

NEWTYPE.lv
  a.w
  nam.s            ;pattern name
  patt.w[16]     ;$0000,$7FFF usw.;4x4 gross
End NEWTYPE


Dim List pattlist.lv(30)
USEPATH pattlist()

DEFTYPE.w
Dim patt.w(16,16)  ;malflaeche

....


.loadpatts
ResetList pattlist()
Gosub clearall
g$=ASLFileRequest$("name of file to load",pa$,fi$,"#?.patt",WindowX,WindowY,WindowWidth,WindowHeight)
If g$<>""
  If ReadFile(0,g$)
    FileInput0
    If Inkey$(8)="BB^PATED"  ;kennung ok
      ClearList pattlist()
      While NOT Eof(0)
        If AddLast(pattlist())
          \nam=Edit$(30)
          For a=0To15
            \patt[a]=Cvl(Inkey$(4))
         Next
        EndIf
      Wend
      CloseFile0
    Else
      CloseFile0
      EasyRequest"pattern ed message:","file format not ok !"," ok "
    EndIf
    GTChangeList1,#liste
    ResetList pattlist():numb=-1
    GTChangeList1,#liste,pattlist()
  Else
    EasyRequest"pattern ed message:","file not found !"," ok "
  EndIf
EndIf
Use Window1
Return

Und die Beispiel-Muster, zuguterletzt.