User:Jr/assorted - Revision history

Jr: added remaining syntaxhighlight tags.

2026-04-20T20:00:22Z

added remaining syntaxhighlight tags.

Jr: add another syntaxhighlight tag, for consistency.

2026-04-20T16:28:45Z

add another syntaxhighlight tag, for consistency.

Jr: testing/adding a syntaxhighlight tag.

2026-04-20T16:22:35Z

testing/adding a syntaxhighlight tag.

Jr: correction of macro name.

2026-02-08T13:24:33Z

correction of macro name.

Jr: added 'gcd' macro.

2026-02-08T13:21:01Z

added 'gcd' macro.

Jr: added horizontal rule/separator.

2026-01-01T13:01:04Z

added horizontal rule/separator.

Jr: wording, added link to wikipedia page.

2026-01-01T12:58:59Z

wording, added link to wikipedia page.

Jr: make link "nicer".

2025-12-26T09:41:49Z

make link "nicer".

Jr: added the 'strSplit()' macro.

2025-12-26T09:38:11Z

added the 'strSplit()' macro.

Jr: added a category ('macros').

2025-12-25T22:56:54Z

added a category ('macros').

@@ Line 82: / Line 82: @@
 this small macro is designed to "parse" text strings.  it splits its input on a given separator character and returns a new array of strings.  the macro was posted some time ago in the NG (<web.64b08576d08f3556b49d80446cde94f1@news.povray.org>).
-<pre>
+<syntaxhighlight lang='pov'>
 #macro strSplit(s_,sep_)
    #local n_ = strlen(s_);
@@ Line 111: / Line 111: @@
    a_
 #end
-</pre>
+</syntaxhighlight>
 this simple usage demo:
-<pre>
+<syntaxhighlight lang='pov'>
 #declare demo_ = "apple:3 mango:5 pear:7";
 #declare ddict_ = dictionary;
@@ Line 128: / Line 128: @@
 #debug concat("mango: ",str(ddict_.mango,0,0),"\n")
 #debug concat("pear : ",str(ddict_.pear,0,0),"\n")
-</pre>
+</syntaxhighlight>
 will output:
@@ Line 146: / Line 146: @@
 this macro implements a "Greatest Common Divisor" algorithm, as found and discussed on <span class='plainlinks'>[https://en.wikipedia.org/wiki/Greatest_common_divisor Wikipedia]</span>.  I had, as so often, <span class='plainlinks'>[https://news.povray.org/povray.text.scene-files/thread/%3Cweb.61e053bc97dcb06aea8869266cde94f1%40news.povray.org%3E help]</span> to make my initial, naive implementation better.
-<pre>
+<syntaxhighlight lang='pov'>
 #macro gcd(a_,b_)
    #local ta_ = max(a_,b_);
@@ Line 157: / Line 157: @@
    ta_
 #end
-</pre>
+</syntaxhighlight>
 eg invoked with the numbers given in the Wikipedia example:
-<pre>
+<syntaxhighlight lang='pov'>
 #declare result_ = gcd(48,18);
-</pre>
+</syntaxhighlight>
 (tested using version 3.7.0.8)
 [[Category:Macros]]

@@ Line 55: / Line 55: @@
 a copy'n'paste set of calls to try it out:
-<pre>
+<syntaxhighlight lang='pov'>
 #debug concat("2000  ",LatinYear(2000),".\n")
 #debug concat("1984  ",LatinYear(1984),".\n")
@@ Line 62: / Line 62: @@
 #debug concat("   4  ",LatinYear(4),".\n")
 #debug concat("3999  ",LatinYear(3999),".\n")
-</pre>
+</syntaxhighlight>
 which shows:

@@ Line 7: / Line 7: @@
 this macro converts small integer values, typically years, to their Roman Numerals representation, as outlined in the <span class='plainlinks'>[https://en.wikipedia.org/wiki/Roman_numerals Wikipedia article]</span>.  it started life as several macros in a include/header file, but with some <span class='plainlinks'>[https://news.povray.org/povray.text.scene-files/thread/%3Cweb.694d4f696fb404d152af7e976cde94f1%40news.povray.org%3E  help and encouragement]</span>, it now is "stand-alone" and just 40-odd (formatted) lines of code.
-<pre>
+<syntaxhighlight lang='pov'>
 #macro LatinYear(year_)
    #if (int(year_) != year_)
@@ Line 52: / Line 52: @@
    s_
 #end
-</pre>
+</syntaxhighlight>
 a copy'n'paste set of calls to try it out:

@@ Line 147: / Line 147: @@
 <pre>
-#macro m_gcd(a_,b_)
+#macro gcd(a_,b_)
    #local ta_ = max(a_,b_);
    #local tb_ = min(a_,b_);

← Older revision		Revision as of 13:21, 8 February 2026
Line 139:		Line 139:

	(tested using version 3.8.0-alpha.9945627)		(tested using version 3.8.0-alpha.9945627)
		+
		+	<hr>
		+
		+	=== gcd() ===
		+
		+	this macro implements a "Greatest Common Divisor" algorithm, as found and discussed on <span class='plainlinks'>[https://en.wikipedia.org/wiki/Greatest_common_divisor Wikipedia]</span>. I had, as so often, <span class='plainlinks'>[https://news.povray.org/povray.text.scene-files/thread/%3Cweb.61e053bc97dcb06aea8869266cde94f1%40news.povray.org%3E help]</span> to make my initial, naive implementation better.
		+
		+	<pre>
		+	#macro m_gcd(a_,b_)
		+	#local ta_ = max(a_,b_);
		+	#local tb_ = min(a_,b_);
		+	#while (tb_)
		+	#local v_ = mod(ta_,tb_);
		+	#local ta_ = tb_;
		+	#local tb_ = v_;
		+	#end
		+	ta_
		+	#end
		+	</pre>
		+
		+	eg invoked with the numbers given in the Wikipedia example:
		+
		+	<pre>
		+	#declare result_ = gcd(48,18);
		+	</pre>
		+
		+	(tested using version 3.7.0.8)

	[[Category:Macros]]		[[Category:Macros]]

← Older revision		Revision as of 13:01, 1 January 2026
Line 76:		Line 76:
	(fingers crossed :-), tested using version 3.7.0.8)		(fingers crossed :-), tested using version 3.7.0.8)

		+	<hr>

	=== strSplit() ===		=== strSplit() ===

@@ Line 1: / Line 1: @@
-this page has been created to house stand-alone macros, for now, I reserve the right :-) to add "how to" snippets and such.  also, not necessarily only my own macros/code, I'm willing (and will be happy) to consider ''your'' code for inclusion.
+this page has been created to house stand-alone macros, "how to" snippets and such.  also, not necessarily only my own macros/code, I'm willing (and will be happy) to consider ''your'', showcased in the news groups, code for inclusion.
 == macros ==
@@ Line 5: / Line 5: @@
 === LatinYear() ===
-this macro started life as several in a include/header file, but, with some <span class='plainlinks'>[https://news.povray.org/povray.text.scene-files/thread/%3Cweb.694d4f696fb404d152af7e976cde94f1%40news.povray.org%3E  help and encouragement]</span>, it now is "stand-alone", and just 40-odd lines of code.
+this macro converts small integer values, typically years, to their Roman Numerals representation, as outlined in the <span class='plainlinks'>[https://en.wikipedia.org/wiki/Roman_numerals Wikipedia article]</span>.  it started life as several macros in a include/header file, but with some <span class='plainlinks'>[https://news.povray.org/povray.text.scene-files/thread/%3Cweb.694d4f696fb404d152af7e976cde94f1%40news.povray.org%3E  help and encouragement]</span>, it now is "stand-alone" and just 40-odd (formatted) lines of code.
 <pre>

← Older revision		Revision as of 09:38, 26 December 2025
Line 75:		Line 75:

	(fingers crossed :-), tested using version 3.7.0.8)		(fingers crossed :-), tested using version 3.7.0.8)
		+
		+
		+	=== strSplit() ===
		+
		+	this small macro is designed to "parse" text strings. it splits its input on a given separator character and returns a new array of strings. the macro was posted some time ago in the NG (<web.64b08576d08f3556b49d80446cde94f1@news.povray.org>).
		+
		+	<pre>
		+	#macro strSplit(s_,sep_)
		+	#local n_ = strlen(s_);
		+	#if (!n_)
		+	#error "strSplit: string must not be empty."
		+	#elseif (1 != strlen(sep_))
		+	#error "strSplit: separator must be a single character."
		+	#end
		+	#local a_ = array;
		+	#local f_ = false;
		+	#local i_ = 1;
		+	#local k_ = 0;
		+	#while (n_ >= i_)
		+	#if (!strcmp(sep_,substr(s_,i_,1)))
		+	#if ((i_ - 1) = k_) #local t_ = "";
		+	#else #local t_ = substr(s_,(k_ + 1),(i_ - k_ - 1));
		+	#end
		+	#if (n_ = i_) #local f_ = true; #end
		+	#local a_[dimension_size(a_,1)] = t_;
		+	#local k_ = i_;
		+	#undef t_
		+	#elseif (n_ = i_)
		+	#local a_[dimension_size(a_,1)] = substr(s_,(k_ + 1),(i_ - k_));
		+	#end
		+	#local i_ = i_ + 1;
		+	#end
		+	#if (f_) #local a_[dimension_size(a_,1)] = ""; #end
		+	a_
		+	#end
		+	</pre>
		+
		+	this simple usage demo:
		+
		+	<pre>
		+	#declare demo_ = "apple:3 mango:5 pear:7";
		+	#declare ddict_ = dictionary;
		+
		+	#declare pass1_ = strSplit(demo_," ");
		+	#for (i_, 0, dimension_size(pass1_,1)-1)
		+	#local pass2_ = strSplit(pass1_[i_],":");
		+	#local ddict_[pass2_[0]] = val(pass2_[1]);
		+	#end
		+
		+	#debug concat("apple: ",str(ddict_.apple,0,0),"\n")
		+	#debug concat("mango: ",str(ddict_.mango,0,0),"\n")
		+	#debug concat("pear : ",str(ddict_.pear,0,0),"\n")
		+	</pre>
		+
		+	will output:
		+
		+	<pre>
		+	apple: 3
		+	mango: 5
		+	pear : 7
		+	</pre>
		+
		+	(tested using version 3.8.0-alpha.9945627)

	[[Category:Macros]]		[[Category:Macros]]

← Older revision		Revision as of 22:56, 25 December 2025
Line 75:		Line 75:

	(fingers crossed :-), tested using version 3.7.0.8)		(fingers crossed :-), tested using version 3.7.0.8)
		+
		+	[[Category:Macros]]