Data commit

Task/Bitmap-Read-a-PPM-file/Vedit-macro-language/bitmap-read-a-ppm-file-1.vedit

@@ -0,0 +1,17 @@
+//   Load a PPM file
+//     @10 = filename
+//   On return:
+//     #10 points to buffer containing pixel data,
+//     #11 = width,  #12 = height.
+
+:LOAD_PPM:
+File_Open(@10)
+BOF
+Search("|X", ADVANCE)		// skip "P6"
+#11 = Num_Eval(ADVANCE)		// #11 = width
+Match("|X", ADVANCE)		// skip separator
+#12 = Num_Eval(ADVANCE)		// #12 = height
+Match("|X", ADVANCE)
+Search("|X", ADVANCE)		// skip maxval (assume 255)
+Del_Block(0,CP)			// remove the header
+Return

Task/Bitmap-Read-a-PPM-file/Vedit-macro-language/bitmap-read-a-ppm-file-2.vedit

@@ -0,0 +1,19 @@
+// Load RGB image
+Reg_Set(10, "|(USER_MACRO)\example.ppm")
+Call("LOAD_PPM")
+
+// Convert to grayscale
+#10 = Buf_Num
+Call("RGB_TO_GRAYSCALE")
+Buf_Switch(#10) Buf_Quit(OK)
+
+// Convert to RGB
+Call("GRAYSCALE_TO_RGB")
+
+// Save the image
+Reg_Set(10, "|(USER_MACRO)\example_gray.ppm")
+Call("SAVE_PPM")
+
+// Cleanup and exit
+Buf_Switch(#20) Buf_Quit(OK)
+return