Warning, /frameworks/syntax-highlighting/autotests/input/highlight.pb is written in an unsupported language. File is not indexed.
0001 ; This is a test file for kate's PureBasic highlighting. 0002 0003 ; BMP2x Converter by Sven Langenkamp 0004 0005 UseJPEGImageEncoder() 0006 UsePNGImageEncoder() 0007 0008 Declare Convert(JPEG) 0009 0010 Enumeration 1 0011 #JPEG 0012 #PNG 0013 EndEnumeration 0014 0015 ; BEGIN section 0016 0017 0018 ; END 0019 0020 Global Count 0021 Global file.s 0022 Global filename.s 0023 Global fileext.s 0024 Global OutputFormat 0025 Global JPEGQuality 0026 0027 Count = 0 0028 OutputFormat = 1 0029 JPEGQuality = -1 0030 0031 ; MAIN PROGRAM------------------------------------------------------------------ 0032 0033 ;Request Options 0034 PrintN("Output Format") 0035 PrintN(" [1] JPEG") 0036 PrintN(" [2] PNG") 0037 Print ("> ") 0038 OutputFormat = Int(Input()) 0039 0040 Select OutputFormat 0041 Case #JPEG: 0042 fileext = ".jpg" 0043 ;Request JPEG Quality 0044 PrintN("") 0045 PrintN("JPEG Quality") 0046 PrintN(" [0-10]") 0047 Print ("> ") 0048 JPEGQuality = Int(Input()) 0049 0050 Case #PNG: 0051 fileext = ".png" 0052 EndSelect 0053 0054 ;Convert all BMP files in the current directory 0055 ExamineDirectory(0, "", "*.bmp") 0056 While NextDirectoryEntry() 0057 file = DirectoryEntryName() 0058 filename = GetFilePart(file) 0059 0060 If LoadImage(0, file) 0061 Select OutputFormat 0062 Case #JPEG: 0063 Convert(JPEGQuality) 0064 0065 Case #PNG: 0066 Convert(-1) 0067 EndSelect 0068 Count = Count +1 0069 EndIf 0070 0071 Wend 0072 0073 PrintN(Str(Count) + " files converted") 0074 CloseConsole() 0075 0076 ; PROCUDURES-------------------------------------------------------------------- 0077 0078 Procedure Convert(JPEG) 0079 Shared filename, fileext 0080 0081 If JPEG > -1 0082 SaveImage(0, filename + fileext, #PB_ImagePlugin_JPEG, JPEG) 0083 Else 0084 SaveImage(0, filename + fileext, #PB_ImagePlugin_PNG) 0085 EndIf 0086 PrintN(file + " converted to " + filename + fileext) 0087 EndProcedure