Bitmap/Read a PPM file: Difference between revisions
m
→{{header|11l}}: BVec3
m (Correct error in text formatting.) |
Alextretyak (talk | contribs) m (→{{header|11l}}: BVec3) |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 10:
{{trans|Python}}
<syntaxhighlight lang="11l">T Colour = BVec3
Byte r, g, b▼
.r = r▼
V black = Colour(0, 0, 0)
Line 121 ⟶ 112:
4 4 4 0 0 0 0 0 0 0 0 0
</pre>
=={{header|Action!}}==
Part of the task responsible for conversion from RGB color image into a grayscale image can be found in the module [http://www.rosettacode.org/wiki/Category:Action!_Bitmap_tools#RGB2GRAY.ACT RGB2GRAY.ACT]. File D:PPM6.PPM can be generated by task [http://www.rosettacode.org/wiki/Bitmap/Write_a_PPM_file#Action.21 Bitmap/Write a PPM file].
Line 1,670 ⟶ 1,662:
* doing formatted I/O with Fortran is a pain... And unformatted does not mean ''free''; Fortran2003 has ''streams'', but they are not implemented (yet) in GNU Fortran compiler. Here (as in the write part) I've tried to handle the PPM format through formatted I/O. The tests worked but I have not tried still everything.
* comments after the first line are not handled
=={{header|FreeBASIC}}==
{{trans|Yabasic}}
<syntaxhighlight lang="vbnet">Dim As String imagen = "Lena.ppm"
Sub readPPM (fs As String)
Dim As Integer x, y, ancho, alto
Dim As String t, kolor
If Len(fs) = 0 Then Print "No PPM file name indicated.": Exit Sub
Dim As Long ff = Freefile
Open fs For Binary As #ff
If Err Then Print "File "; fs; " not found.": Exit Sub
Input #ff, t, ancho, alto, kolor
If t = "P6" Then
Screenres ancho, alto, 32
For y = 0 To alto - 1
For x = 0 To ancho - 1
Get #ff, , r
Get #ff, , g
Get #ff, , b
Pset (x, y), Rgb(r, g, b)
Next x
Close #ff
Else
Print "File is NOT PPM P6 type."
End If
End Sub
readPPM(imagen)
Sleep</syntaxhighlight>
=={{header|Go}}==
<syntaxhighlight lang="go">package raster
Line 3,520 ⟶ 3,549:
{{libheader|DOME}}
This assumes that [https://rosettacode.org/wiki/File:Lenna100.jpg Lenna100.jpg], a 512 x 512 color image of the eponymous lady, has already been converted to Lenna100.ppm using a variation of the 'Write a PPM file' task.
<syntaxhighlight lang="
import "dome" for Window, Process
import "io" for FileSystem
Line 3,546 ⟶ 3,575:
loadPPMFile(fileName) {
var ppm = FileSystem.load(fileName)
var count = ppm.count // ensure file is fully loaded before proceeding
if (ppm[0..1] != "P6") {
System.print("The loaded file is not a P6 file.")
Line 3,595 ⟶ 3,625:
var Game = Bitmap.new("Lenna100.ppm", "Lenna100_gs.jpg", 1048, 512)</syntaxhighlight>
=={{header|XPL0}}==
The simplicity of redirecting an input file on the command line doesn't
| |||