Data update

Task/Bitmap-PPM-conversion-through-a-pipe/FreeBASIC/bitmap-ppm-conversion-through-a-pipe.basic

@@ -0,0 +1,64 @@
+Const ancho = 400
+Const alto = 300
+Dim As Integer i, x, y
+Dim As Ulong kolor
+
+' Set up graphics
+Screenres ancho, alto, 32
+Windowtitle "Pattern Generator"
+
+' A little extravagant, this draws a design of dots and lines
+' Fill background with color Rgb(&h40, &h80, &hc0)
+Line (0, 0)-(ancho-1, alto-1), Rgb(64, 128, 192), BF
+
+' Draw random dots Rgb(&h20, &h40, &h80)
+For i = 1 To 2000
+    Pset (Rnd * (ancho-1), Rnd * (alto-1)), Rgb(32, 64, 128)
+Next
+
+' Draw horizontal lines
+For x = 0 To ancho-1
+    For y = 240 To 244
+        Pset (x, y), Rgb(32, 64, 128)
+    Next
+    For y = 260 To 264
+        Pset (x, y), Rgb(32, 64, 128)
+    Next
+Next
+
+' Draw vertical lines
+For y = 0 To alto-1
+    For x = 80 To 84
+        Pset (x, y), Rgb(32, 64, 128)
+    Next
+    For x = 95 To 99
+        Pset (x, y), Rgb(32, 64, 128)
+    Next
+Next
+
+' Open PPM file to write
+Dim As Integer ff = Freefile
+Open "noutput.ppm" For Binary As #ff
+If Err > 0 Then Print "Error opening output file": End
+
+' Write PPM header
+Put #ff, , "P6" & Chr(10)
+Put #ff, , Str(ancho) & " " & Str(alto) & Chr(10)
+Put #ff, , "255" & Chr(10)
+
+' Write pixel data
+For y = 0 To alto - 1
+    For x = 0 To ancho - 1
+        kolor = Point(x, y)
+        Put #ff, , Cbyte(kolor Shr 16)  ' Blue
+        Put #ff, , Cbyte(kolor Shr 8)   ' Green
+        Put #ff, , Cbyte(kolor)         ' Red
+    Next
+Next
+
+Close #ff
+
+' Convert to JPG using ImageMagick  (pipe logic)
+Shell "magick.exe noutput.ppm noutput.jpg"
+
+Sleep