Bitmap/PPM conversion through a pipe: Difference between revisions

Content added Content deleted
(→‎{{header|Tcl}}: + standard ML)
Line 365: Line 365:
call and return value
call and return value
<lang Standard ML>
<lang Standard ML>
useOSConvert "/* XPM */ static char * new[] = {\"7 1 2 1\",\" c white\",\". c black\",\" . \"};" ;
useOSConvert "P3 3 2 255 255 0 0 0 255 0 0 0 255 255 255 0 255 255 255 0 0 0" ;
val it =
val it =
fromList[0wxFF, 0wxD8, 0wxFF, 0wxE0, 0wx0, 0wx10, 0wx4A, 0wx46, 0wx49,
fromList[0wxFF, 0wxD8, 0wxFF, 0wxE0, 0wx0, 0wx10, 0wx4A, 0wx46, 0wx49,
0wx46, ...]: vector
0wx46, ...]: BinIO.vector
</lang>
</lang>

=={{header|Tcl}}==
=={{header|Tcl}}==
Referring to [[Write ppm file#Tcl]] and [[Basic bitmap storage#Tcl]]
Referring to [[Write ppm file#Tcl]] and [[Basic bitmap storage#Tcl]]