Starting today, recreational weed is legal in Canada. This news has some how lead me to find Cannibus Curve, a mathmatical equation to draw Cannibus….!!!
So to celebrate? being 2nd country in the world (1st was Uruguay) to legalize the green stuff for fun, I decided I’ll try drawing cannibus curve with ggplot. Here’s the final results.
Cannibus_Final
Here’s the step I took, because I couldn’t really understand the mathmatical equation, so I’ve break it down step by step to sort of understand what each part of equation is doing.
library(tidyverse)
cannibus % ggplot(aes(x=t, y=r1)) + geom_path(color=&quot;#7ABA71&quot;, size=2) +
coord_polar() +
theme_void(base_family=&quot;Roboto Condensed&quot;) +
labs(title = &quot;(1+.9*cos(8*t) draws 8 petals&quot;)
cannibus %__% ggplot(aes(x=t, y=r2)) + geom_path(color=&quot;#7ABA71&quot;, size=2) +
coord_polar() +
theme_void(base_family=&quot;Roboto Condensed&quot;) +
labs(title = &quot;(1+.9*cos(8*t) * * (1+.1*cos(24*t)) makes the tip pointy&quot;)
cannibus %__% ggplot(aes(x=t, y=r3)) + geom_path(color=&quot;#7ABA71&quot;, size=0.5) +
coord_polar() +
theme_void(base_family=&quot;Roboto Condensed&quot;) +
labs(title = &quot;(1+.9*cos(8*t) * * (1+.1*cos(24*t)) * (.9+0.5*cos(200*t)) makes zaggy&quot;)
cannibus %__% ggplot(aes(x=t, y=r4)) + geom_path(color=&quot;#7ABA71&quot;, size=0.5) +
coord_polar(start=pi/2) +
theme_void(base_family=&quot;Roboto Condensed&quot;) +
labs(title = &quot;(1+.9*cos(8*t) * * (1+.1*cos(24*t)) * (.9+0.5*cos(200*t)) * (1+sin(t)) - OK Cool, Now 2 leaves are small!&quot;, subcaption=&quot;Notice I used start=pi/2 to rotate!&quot;)
cannibus %__% ggplot(aes(x=t, y=r)) + geom_polygon(fill=&quot;#499b4a&quot;, color=&quot;#74Ba71&quot;, size=0.1) +
coord_polar(theta=&quot;x&quot;, start=pi/2) +
theme_void(base_family=&quot;Roboto Condensed&quot;) +
labs(title = &quot;Instead of using geom_path, I used geom_polygon&quot;)
I couldn’t figure out how to “crop” the polar coordinate image, so there’s lots of white space on final image, but I like my little cannibus!