File indexing completed on 2024-05-19 15:23:14
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.pb</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (PureBasic) - Theme (Breeze Dark)"/> 0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre> 0007 <span style="color:#7a7c7d;">; This is a test file for kate's PureBasic highlighting.</span> 0008 0009 <span style="color:#7a7c7d;">; BMP2x Converter by Sven Langenkamp</span> 0010 0011 <span style="color:#8e44ad;">UseJPEGImageEncoder</span>() 0012 <span style="color:#8e44ad;">UsePNGImageEncoder</span>() 0013 0014 <span style="font-weight:bold;">Declare</span> Convert(JPEG) 0015 0016 <span style="font-weight:bold;">Enumeration </span><span style="color:#f67400;">1</span> 0017 <span style="color:#2980b9;">#JPEG</span> 0018 <span style="color:#2980b9;">#PNG</span> 0019 <span style="font-weight:bold;">EndEnumeration</span> 0020 0021 <span style="color:#2980b9;background-color:#153042;">; BEGIN section</span> 0022 0023 0024 <span style="color:#2980b9;background-color:#153042;">; END</span> 0025 0026 <span style="font-weight:bold;">Global</span> Count 0027 <span style="font-weight:bold;">Global</span> file.s 0028 <span style="font-weight:bold;">Global</span> filename.s 0029 <span style="font-weight:bold;">Global</span> fileext.s 0030 <span style="font-weight:bold;">Global</span> OutputFormat 0031 <span style="font-weight:bold;">Global</span> JPEGQuality 0032 0033 Count <span style="color:#3f8058;">=</span> <span style="color:#f67400;">0</span> 0034 OutputFormat <span style="color:#3f8058;">=</span> <span style="color:#f67400;">1</span> 0035 JPEGQuality <span style="color:#3f8058;">=</span> <span style="color:#3f8058;">-</span><span style="color:#f67400;">1</span> 0036 0037 <span style="color:#7a7c7d;">; MAIN PROGRAM------------------------------------------------------------------</span> 0038 0039 <span style="color:#7a7c7d;">;Request Options</span> 0040 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">"Output Format"</span>) 0041 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">" [1] JPEG"</span>) 0042 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">" [2] PNG"</span>) 0043 <span style="color:#8e44ad;">Print</span> (<span style="color:#f44f4f;">"> "</span>) 0044 OutputFormat <span style="color:#3f8058;">=</span> <span style="color:#8e44ad;">Int</span>(<span style="color:#8e44ad;">Input</span>()) 0045 0046 <span style="font-weight:bold;">Select </span>OutputFormat 0047 <span style="font-weight:bold;">Case</span> <span style="color:#2980b9;">#JPEG</span>: 0048 fileext <span style="color:#3f8058;">=</span> <span style="color:#f44f4f;">".jpg"</span> 0049 <span style="color:#7a7c7d;">;Request JPEG Quality</span> 0050 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">""</span>) 0051 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">"JPEG Quality"</span>) 0052 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#f44f4f;">" [0-10]"</span>) 0053 <span style="color:#8e44ad;">Print</span> (<span style="color:#f44f4f;">"> "</span>) 0054 JPEGQuality <span style="color:#3f8058;">=</span> <span style="color:#8e44ad;">Int</span>(<span style="color:#8e44ad;">Input</span>()) 0055 0056 <span style="font-weight:bold;">Case</span> <span style="color:#2980b9;">#PNG</span>: 0057 fileext <span style="color:#3f8058;">=</span> <span style="color:#f44f4f;">".png"</span> 0058 <span style="font-weight:bold;">EndSelect</span> 0059 0060 <span style="color:#7a7c7d;">;Convert all BMP files in the current directory</span> 0061 <span style="color:#8e44ad;">ExamineDirectory</span>(<span style="color:#f67400;">0</span>, <span style="color:#f44f4f;">""</span>, <span style="color:#f44f4f;">"*.bmp"</span>) 0062 <span style="font-weight:bold;">While </span><span style="color:#8e44ad;">NextDirectoryEntry</span>() 0063 file <span style="color:#3f8058;">=</span> <span style="color:#8e44ad;">DirectoryEntryName</span>() 0064 filename <span style="color:#3f8058;">=</span> <span style="color:#8e44ad;">GetFilePart</span>(file) 0065 0066 <span style="font-weight:bold;">If </span><span style="color:#8e44ad;">LoadImage</span>(<span style="color:#f67400;">0</span>, file) 0067 <span style="font-weight:bold;">Select </span>OutputFormat 0068 <span style="font-weight:bold;">Case</span> <span style="color:#2980b9;">#JPEG</span>: 0069 Convert(JPEGQuality) 0070 0071 <span style="font-weight:bold;">Case</span> <span style="color:#2980b9;">#PNG</span>: 0072 Convert(<span style="color:#3f8058;">-</span><span style="color:#f67400;">1</span>) 0073 <span style="font-weight:bold;">EndSelect</span> 0074 Count <span style="color:#3f8058;">=</span> Count <span style="color:#3f8058;">+</span><span style="color:#f67400;">1</span> 0075 <span style="font-weight:bold;">EndIf</span> 0076 0077 <span style="font-weight:bold;">Wend</span> 0078 0079 <span style="color:#8e44ad;">PrintN</span>(<span style="color:#8e44ad;">Str</span>(Count) <span style="color:#3f8058;">+</span> <span style="color:#f44f4f;">" files converted"</span>) 0080 <span style="color:#8e44ad;">CloseConsole</span>() 0081 0082 <span style="color:#7a7c7d;">; PROCUDURES--------------------------------------------------------------------</span> 0083 0084 <span style="font-weight:bold;">Procedure </span>Convert(JPEG) 0085 <span style="font-weight:bold;">Shared</span> filename, fileext 0086 0087 <span style="font-weight:bold;">If </span>JPEG <span style="color:#3f8058;">></span> <span style="color:#3f8058;">-</span><span style="color:#f67400;">1</span> 0088 <span style="color:#8e44ad;">SaveImage</span>(<span style="color:#f67400;">0</span>, filename <span style="color:#3f8058;">+</span> fileext, <span style="color:#2980b9;">#PB_ImagePlugin_JPEG</span>, JPEG) 0089 <span style="font-weight:bold;">Else</span> 0090 <span style="color:#8e44ad;">SaveImage</span>(<span style="color:#f67400;">0</span>, filename <span style="color:#3f8058;">+</span> fileext, <span style="color:#2980b9;">#PB_ImagePlugin_PNG</span>) 0091 <span style="font-weight:bold;">EndIf</span> 0092 <span style="color:#8e44ad;">PrintN</span>(file <span style="color:#3f8058;">+</span> <span style="color:#f44f4f;">" converted to "</span> <span style="color:#3f8058;">+</span> filename <span style="color:#3f8058;">+</span> fileext) 0093 <span style="font-weight:bold;">EndProcedure</span> 0094 </pre></body></html>