34 lines
774 B
Plaintext
34 lines
774 B
Plaintext
Dim As String imagen = "Lena.ppm"
|
|
|
|
Sub readPPM (fs As String)
|
|
Dim As Integer x, y, ancho, alto
|
|
Dim As String t, kolor
|
|
Dim As Ubyte r, g, b
|
|
|
|
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
|
|
Next y
|
|
Close #ff
|
|
Else
|
|
Print "File is NOT PPM P6 type."
|
|
End If
|
|
End Sub
|
|
|
|
readPPM(imagen)
|
|
Sleep
|