kate/tests/highlight.pb

   1 ; This is a test file for kate's PureBasic highlighting.
   2
   3 ; BMP2x Converter by Sven Langenkamp
   4
   5 UseJPEGImageEncoder()
   6 UsePNGImageEncoder()
   7
   8 Declare Convert(JPEG)
   9
  10 Enumeration 1
  11     #JPEG
  12     #PNG
  13 EndEnumeration
  14
  15 ; BEGIN section
  16
  17
  18 ; END
  19
  20 Global Count
  21 Global file.s
  22 Global filename.s
  23 Global fileext.s
  24 Global OutputFormat
  25 Global JPEGQuality
  26
  27 Count        = 0
  28 OutputFormat = 1
  29 JPEGQuality  = -1
  30
  31 ; MAIN PROGRAM------------------------------------------------------------------
  32
  33 ;Request Options
  34 PrintN("Output Format")
  35 PrintN("  [1] JPEG")
  36 PrintN("  [2] PNG")
  37 Print ("> ")
  38 OutputFormat = Int(Input())
  39
  40 Select OutputFormat
  41     Case #JPEG:
  42         fileext = ".jpg"
  43         ;Request JPEG Quality
  44         PrintN("")
  45         PrintN("JPEG Quality")
  46         PrintN("  [0-10]")
  47         Print ("> ")
  48         JPEGQuality = Int(Input())
  49
  50     Case #PNG:
  51         fileext = ".png"
  52 EndSelect
  53
  54 ;Convert all BMP files in the current directory
  55 ExamineDirectory(0, "", "*.bmp")
  56 While NextDirectoryEntry()
  57     file     = DirectoryEntryName()
  58     filename = GetFilePart(file)
  59
  60     If LoadImage(0, file)
  61         Select OutputFormat
  62             Case #JPEG:
  63               Convert(JPEGQuality)
  64
  65             Case #PNG:
  66                 Convert(-1)
  67         EndSelect
  68         Count = Count +1
  69     EndIf
  70
  71 Wend
  72
  73 PrintN(Str(Count) + " files converted")
  74 CloseConsole()
  75
  76 ; PROCUDURES--------------------------------------------------------------------
  77
  78 Procedure Convert(JPEG)
  79     Shared filename, fileext
  80
  81     If JPEG > -1
  82         SaveImage(0, filename + fileext, #PB_ImagePlugin_JPEG, JPEG)
  83     Else
  84         SaveImage(0, filename + fileext, #PB_ImagePlugin_PNG)
  85     EndIf
  86     PrintN(file + " converted to " + filename + fileext)
  87 EndProcedure