Global window=CreateWindow("Pixelator - <anonym>",(ClientWidth(Desktop())-305)/2,(ClientHeight(Desktop())-300)/2,305,300,0,01+02+04+08)
SetMinWindowSize window,305,300:AppTitle "Pixelator"
Global op1=CreateMenu("Datei","a",WindowMenu(window))
Global op1mp1=CreateMenu("Neu",10,op1)
Global op1mp2=CreateMenu("Öffnen",11,op1)
Global op1mp3=CreateMenu("Abspeichern",12,op1)
Global op1mp4=CreateMenu("Speichern als",13,op1)
Global op1mp5=CreateMenu("Beenden",14,op1)
Global op2=CreateMenu("Zoom","b",WindowMenu(window))
Global op2mp1=CreateMenu("1",0,op2):CheckMenu op2mp1
Global op2mp2=CreateMenu("2",1,op2)
Global op2mp3=CreateMenu("3",2,op2)
Global op2mp4=CreateMenu("4",3,op2)
Global op2mp5=CreateMenu("5",4,op2)
Global op2mp6=CreateMenu("6",5,op2)
Global op2mp7=CreateMenu("7",6,op2)
Global op2mp8=CreateMenu("8",7,op2)
Global op2mp9=CreateMenu("9",8,op2)
Global op2mp10=CreateMenu("10",9,op2)
Global op5=CreateMenu("Backup","e",WindowMenu(window))
Global op5mp1=CreateMenu("Rückgängig",22,op5)
Global op3=CreateMenu("Tools","c",WindowMenu(window))
Global op3mp1=CreateMenu("Malweite",15,op3)
Global op3mp11=CreateMenu("Palette",28,op3)
Global op3mp3=CreateMenu("Rgb-Highlighter",17,op3)
Global op3mp9=CreateMenu("Bild-Shift",26,op3)
Global op3mp10=CreateMenu("Rahmen skalieren",27,op3)
Global op3trennstrich=CreateMenu("",-1,op3)
Global op3mp2=CreateMenu("Invertieren",16,op3)
Global op3mp4=CreateMenu("Bubbleblur",18,op3)
Global op3mp5=CreateMenu("Monomizer",19,op3)
Global op3mp6=CreateMenu("Flechtkorb",23,op3)
Global op3mp7=CreateMenu("Scratch",24,op3)
Global op3mp8=CreateMenu("Kantieren",25,op3)
Global op3mp12=CreateMenu("Mosaik",29,op3)
Global op4=CreateMenu("Sonstiges","d",WindowMenu(window))
Global op4mp1=CreateMenu("Hilfe",20,op4)
Global op4mp2=CreateMenu("Info",21,op4)
UpdateWindowMenu window
Global stiftpanel=CreatePanel(5,5,28,28,window,3):SetPanelImage stiftpanel,"Stift_1.bmp":SetGadgetLayout stiftpanel,1,0,1,0
Global rechteckpanel=CreatePanel(5,37,28,28,window,3):SetPanelImage rechteckpanel,"Rechteck_0.bmp":SetGadgetLayout rechteckpanel,1,0,1,0
Global fuelleckpanel=CreatePanel(5,70,28,28,window,3):SetPanelImage fuelleckpanel,"Fülleck_0.bmp":SetGadgetLayout fuelleckpanel,1,0,1,0
Global ratzelpanel=CreatePanel(5,103,28,28,window,3):SetPanelImage ratzelpanel,"Ratzel_0.bmp":SetGadgetLayout ratzelpanel,1,0,1,0
Global trennpanel=CreatePanel(3,136,32,4,window,3):SetPanelColor trennpanel,0,0,0:SetGadgetLayout trennpanel,1,0,1,0
Global farbe1panel=CreatePanel(5,144,28,28,window,3):SetPanelColor farbe1panel,0,0,0:SetGadgetLayout farbe1panel,1,0,1,0
Global farbe2panel=CreatePanel(5,177,28,28,window,3):SetPanelColor farbe2panel,255,255,255:SetGadgetLayout farbe2panel,1,0,1,0
Global bildpanel=CreatePanel(38,5,233,203,window,3):SetGadgetLayout bildpanel,1,1,1,1
Global bildcanvas=CreateCanvas(0,0,100,100,bildpanel):SetGadgetLayout bildcanvas,1,0,1,0
Global vslider=CreateSlider(38,210,233,18,window):SetGadgetLayout vslider,1,1,0,1:DisableGadget vslider
Global hslider=CreateSlider(273,5,18,203,window,2):SetGadgetLayout hslider,0,1,1,1:DisableGadget hslider
Global symbolpanel=CreatePanel(272,209,21,21,window,3):SetPanelImage symbolpanel,"Leistensymbol.bmp":SetGadgetLayout symbolpanel,0,1,0,1
Global malflaeche=CreateImage(100,100),pen=1,radius=5,penrot=0,pengruen=0,penblau=0,clsrot=255,clsgruen=255,clsblau=255
Global zoom=1,bildhoehe=100,bildbreite=100,radiuswindow,radiusslider,bildpfad$="",hlrgbwindow,rbutton,gbutton,bbutton,fbutton
Global imagechange=0,bilderpfad$=CurrentDir$(),helpwindow,zbutton,vbutton,helpview,backupimage,mauspaint
Global bswindow,obenbutton,linksbutton,untenbutton,rechtsbutton,closebutton,randbutton,palwindow,mosawindow
Dim palettenrot(40),palettengruen(40),palettenblau(40),palettengadget(40):
SetBuffer ImageBuffer(malflaeche):ClsColor clsrot,clsgruen,clsblau:Cls
SetBuffer CanvasBuffer(bildcanvas):DrawBlock malflaeche,0,0:FlipCanvas bildcanvas
SetGadgetShape bildcanvas,0,0,GadgetWidth(bildcanvas)*zoom,GadgetHeight(bildcanvas)*zoom
Range():SetStatusText window,"X:0 - Y:0":ReadPalette()

cmd$=CommandLine()
cmd$=Mid(cmd$,2,Len(cmd$)-1)
If FileType(cmd$)=1 Then
 OpenImage(cmd$)
EndIf

Function ReadPalette()
stream=ReadFile(bilderpfad$+"palette.dat")
For z=1 To 40
 palettenrot(z)=ReadByte(stream)
 palettengruen(z)=ReadByte(stream)
 palettenblau(z)=ReadByte(stream)
Next
CloseFile stream
End Function