MaplePrimes - comments on Post, Canadian Flag

MaplePrimes - comments on Post, Canadian Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag en-us 2026 Maplesoft, A Division of Waterloo Maple Inc. Maplesoft Document System Tue, 09 Jun 2026 17:23:48 GMT Tue, 09 Jun 2026 17:23:48 GMT The latest comments added to the Post, Canadian Flag http://www.mapleprimes.com/images/mapleprimeswhite.jpg MaplePrimes - comments on Post, Canadian Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag Canadian flag http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44698 That's a rather funky Maple leaf.  Here's a more standard flag.  It requires Standard GUI (because Classic doesn't fill polygons properly). <pre>> with(plots):with(plottools): G1:= (p1,p2) -> arccos(.3/sqrt((p1[1]-p2[1])^2 + (p1[2]-p2[2])^2)) + arctan(p2[2]-p1[2],p2[1]-p1[1]): G2:= (p1,p2) -> -arccos(.3/sqrt((p1[1]-p2[1])^2 + (p1[2]-p2[2])^2)) + arctan(p2[2]-p1[2],p2[1]-p1[1]): C:=[31.5,2],[32.5,2], op(op(arc([32.5,8], .3, G2([32.5,8],[32.5,2])+2*Pi.. G1([32.5,8],[39,7.5])))), [39,7.5], op(op(arc([38.3,9.5],.3, G2([38.3,9.5],[39,7.5])+2*Pi .. G1([38.3,9.5],[44.6,15])))), [44.6,15], op(op(arc([43.3,16.1],.3, G2([43.3,16.1],[44.6,15])+2*Pi .. G1([43.3,16.1],[44.1,20.1])))), [44.1,20.1], op(op(arc([40.5,20],.3, G2([40.5,20],[44.1,20.1])+2*Pi .. G1([40.5,20],[39.5,21.5])))), [39.5,21.5], op(op(arc([35.8,18.3],.3,G2([35.8,18.3],[39.5,21.5])+2*Pi .. G1([35.8,18.3],[37,25.5])))), [37,25.5], op(op(arc([34.3,24.9],.3,G2([34.3,24.9],[37,25.5])+2*Pi .. G1([34.3,24.9],[32,29])))), [32,29]: C:= C,op(ListTools[Reverse](map(t -> [64-t[1],t[2]], [C]))): display([POLYGONS([C],COLOUR(RGB,1,0,0)), rectangle([0,0],[16,32],colour=red), rectangle([48,0],[64,32],colour=red), curve([[0,0],[64,0],[64,32],[0,32],[0,0]])],scaling=constrained,axes=none); </pre> <img src="http://www.mapleprimes.com/files/4541_flag.jpg" alt="" width="600" height="300" /> The latest comments added to the Post, Canadian Flag 44698 Mon, 22 Feb 2010 02:01:50 Z Robert Israel Robert Israel I tend to agree with you http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44699 I tend to agree with you Robert. My flag (or more specifically Andre Heck's flag) look more like a marijuana leaf compared to your flag ha ha. I hope the people of canada was not insulted too much  :-) The latest comments added to the Post, Canadian Flag 44699 Mon, 22 Feb 2010 02:44:31 Z alex_01 alex_01 Another Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44700 Here is the Swedish flag or at least something that resembles it . <img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-7.png" alt="" /><img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-8.png" alt="" /> restart: with(plots): with(plottools): display({rectangle([0, 2], [6, 1.5], color = yellow), rectangle([0, 1.5], [2, 0], color = blue), rectangle([0, 3.5], [2, 2], color = blue), rectangle([2, 0], [2.5, 3.5], color = yellow), rectangle([2.5, 2], [6, 3.5], color = blue), rectangle([2.5, 1.5], [6, 0], color = blue)}, axes = none); <img src="http://www.mapleprimes.com/files/8342_Swe.jpg" alt="" width="346" height="232" /> The latest comments added to the Post, Canadian Flag 44700 Mon, 22 Feb 2010 03:09:42 Z alex_01 alex_01 Another Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44701 Here is the German flag <img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-9.png" alt="" />restart: with(plots): with(plottools): display({rectangle([0, 1], [6, 0], color = yellow), rectangle([0, 2], [6, 1], color = red), rectangle([0, 2], [6, 3], color = black)}, axes = none);   <img src="http://www.mapleprimes.com/files/8342_Germany.jpg" alt="" width="269" height="152" /> The latest comments added to the Post, Canadian Flag 44701 Mon, 22 Feb 2010 03:34:32 Z alex_01 alex_01 Another Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44702 Here is the Italian flag <img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-10.png" alt="" />restart: with(plots): with(plottools): display({rectangle([0, 3], [2, 0], color = "DarkGreen"), rectangle([2, 3], [4, 0], color = white), rectangle([4, 3], [6, 0], color = red)}, axes = none); <img src="http://www.mapleprimes.com/files/8342_Italy.jpg" alt="" width="315" height="237" /> The latest comments added to the Post, Canadian Flag 44702 Mon, 22 Feb 2010 03:50:21 Z alex_01 alex_01 Another Flag http://www.mapleprimes.com/posts/35682-Canadian-Flag?ref=Feed:MaplePrimes:Canadian Flag:Comments#comment44703 This will be the last flag for me today. Feel free to add more flags to this blog post if you feel like it :-) Here is the French flag <img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-11.png" alt="" /><img src="file:///C:/Users/Marcus/AppData/Local/Temp/moz-screenshot-12.png" alt="" />restart: with(plots): with(plottools): display({rectangle([0, 3], [2, 0], color = "DarkBlue"), rectangle([2, 3], [4, 0], color = white), rectangle([4, 3], [6, 0], color = red)}, axes = none); <img src="http://www.mapleprimes.com/files/8342_France.jpg" alt="" width="297" height="205" /> The latest comments added to the Post, Canadian Flag 44703 Mon, 22 Feb 2010 04:00:51 Z alex_01 alex_01