langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Bitmap-Histogram/Vedit-macro-language/bitmap-histogram.vedit
+++ b/Task/Bitmap-Histogram/Vedit-macro-language/bitmap-histogram.vedit
@ -0,0 +1,10 @@
+:HISTOGRAM:
+#30 = Buf_Free			     // #30 = buffer to store histogram data
+for (#9=0; #9<256; #9++) {
+    Out_Reg(21) TC(#9) Out_Reg(Clear)		// @21 = intensity value to be counted
+    Buf_Switch(#15)				// switch to image buffer
+    #8 = Search(@21, CASE+BEGIN+ALL+NOERR)	// count intensity values
+    Buf_Switch(#30)				// switch to histogram buffer
+    Num_Ins(#8, FILL)				// store count
+}
+Return