B

2013-04-10 16:19:29 -07:00 · 2013-04-10 16:19:29 -07:00 · 518da4a923
commit 518da4a923
parent e5e8880e41
1019 changed files with 15877 additions and 0 deletions
--- a/Task/Bitmap-Write-a-PPM-file/PicoLisp/bitmap-write-a-ppm-file.l
+++ b/Task/Bitmap-Write-a-PPM-file/PicoLisp/bitmap-write-a-ppm-file.l
@ -0,0 +1,6 @@
+(de ppmWrite (Ppm File)
+   (out File
+      (prinl "P6")
+      (prinl (length (car Ppm)) " " (length Ppm))
+      (prinl 255)
+      (for Y Ppm (for X Y (apply wr X))) ) )