Anonymous user
Bitmap/Write a PPM file: Difference between revisions
no edit summary
(→{{header|D}}: improve writing speed) |
No edit summary |
||
Line 299:
<lang perl>$img->image_set_format("jpeg"); # or png, tiff, ppm ...</lang>
=={{header|Tcl}}==
Referring to [[Basic bitmap storage#Tcl]]:
<lang tcl>package require Tk
set img [newImage 150 150]
fill $img red
setPixel $img green 40 40
$img write filename.ppm -format ppm
# check the file format:
set fh [open filename.ppm]
puts [gets $fh] ;# ==> P6
puts [gets $fh] ;# ==> 150 150
puts [gets $fh] ;# ==> 255
binary scan [read $fh 3] c3 pixel
foreach colour $pixel {puts [expr {$colour & 0xff}]} ;# ==> 255 \n 0 \n 0 \n
close $fh</lang>
=={{header|Vedit macro language}}==
| |||