'farbzähler
Graphics 800,600,0,60

img_name_open$=GInput$("Name des Bildes: (mit Endung) ")
img=LoadPixmap(img_name_open$)

Cls
DrawPixmap img,0,0
Flip
WaitKey()


Type TFarbe
 Field rgb
EndType

Local farb_list:TList=CreateList()

'-----------------------------------------------------------------------------------------------------------
'Hier beginnt der Teil, welcher die Farbanzahl herausfinden soll

For y=0 To PixmapHeight(img)-1
 For x=0 To PixmapWidth(img)-1
  Local gefunden=0
  current_rgb=ReadPixel(img,x,y)
  For f:TFarbe=EachIn farb_list
   If current_rgb=f.rgb Then gefunden=1 ; Exit
  Next
  If gefunden=0 Then
   Local nf:TFarbe
   nf=New TFarbe
   nf.rgb=current_rgb
   farb_list.addlast(nf)
  Cls; DrawText farb_list.count(),0,0 ; Flip
  EndIf
 Next
Next

WaitKey()

'-----------------------------------------------------------------------------------------------------------

Function GInput$(text$,x=0,y=0)
'Ersetzt die Input-Funktion im grafischen Fenster. Wenn für x und y keine Werte übergeben wurden
'werden sie auf 0 gesetzt. Liefert -1 zurück wenn sie abgebrochen wurde.

 FlushKeys()

 Type TChar
  Field zeichen$
 End Type
 
 
 Local char_list:TList=CreateList()

 While Not KeyHit(Key_enter)
  If KeyHit(key_escape) Then text$="-1" ; Exit

  'Textausgaben
  DrawText text$,x,y
  Local zaehler=0
  For c:TChar=EachIn char_list
   DrawText c.zeichen$,x+TextWidth(text$)+zaehler,y
   zaehler=zaehler+TextWidth(c.zeichen$)
  Next

  'Eingabeänderungen
  current_char=GetChar()
  If Not current_char=0 Then 'eine Taste wurde gedrückt
   If current_char=8 And Not char_list.Count()=0 Then 'die rücktaste wurde gedrückt, lösche ein zeichen
    char_list.removelast()
   Else
    Local NewChar:TChar
    NewChar=New TChar
    NewChar.zeichen$=Chr(current_char)
    ListAddLast char_list,NewChar
   EndIf

  EndIf

  Flip;Cls 
 Wend

 'der eingegebene Text wird zurückgegeben und die liste gelöscht
 Local text_return$="" 
 For c:TChar=EachIn char_list
  text_return$=text_return$+c.zeichen$
 Next
 char_list.clear()

 FlushKeys()
 Return text_return$

End Function