aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Bitmap-PPM-conversion-through-a-pipe/Tcl/bitmap-ppm-conversion-through-a-pipe-1.tcl Normal file
View file

@ -0,0 +1,8 @@
package require Tk
proc output_jpeg {image filename {quality 75}} {
set f [open |[list convert ppm:- -quality $quality jpg:- > $filename] w]
fconfigure $f -translation binary
puts -nonewline $f [$image data -format ppm]
close $f
}

8
Task/Bitmap-PPM-conversion-through-a-pipe/Tcl/bitmap-ppm-conversion-through-a-pipe-2.tcl Normal file
View file

@ -0,0 +1,8 @@
package require Tk
package require img::jpeg
proc output_jpeg {image filename} {
$image write $filename -format jpeg
}
set img [image create photo -filename filename.ppm]
output_jpeg $img filename.jpg