autotests/input/highlight.pb

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