Anonymous user
Bitmap/Read a PPM file: Difference between revisions
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 1,014:
Read f
if not Eof(f) then {
Line Input #f,
If
Line Input #f, Comment$
if left$(Comment$,1)="#" then {
Line 1,083:
Export2File=Lambda Image1, x, y (f) -> {
\\ use this between open and close
Print #f, "
Print #f,"# Created using M2000 Interpreter"
Print #f, x;" ";y
Line 1,144:
' is the same as this one
Open "A.PPM" for Input as #F
Line Input #f,
If
Line Input #f, Comment$
if left$(Comment$,1)="#" then {
Line 1,177:
</lang>
=={{header|Mathematica}}/ {{header|Wolfram Language}}==
<lang Mathematica>Import["file.ppm","PPM"]
|