[Tex/LaTex] How to make this curly ‘R’ (ℛ)

Question

Which package has a similar looking fancy R or does anyone know how to make one? (Note: the line underneath the R is just the notebook paper… this is from a scanned set of notes).

Answer 1

My answer is by using tikz (but with simple lines and not fill to add effect of width):

\documentclass{article}
\usepackage{amsmath,amsfonts}
\usepackage{tikz}
\usetikzlibrary{}
\newcommand{\fancyR}{\sbox1{\vbox{R}}\sbox2{\hbox{R}}\tikz[inner sep=0pt,outer sep=0pt]{\coordinate (A);\draw[-,black,line width=0.55pt,scale=0.75]([shift={({\the\wd2/2},0)}]A) to[out=180,in=0] ++(-{\the\wd2/2},{3*(\the\ht1+\the\dp1)/5)}) to[in=90,out=180]++({-\the\wd2/5},{-(\the\ht1+\the\dp1)/8})
to[in=270,out=270]++({\the\wd2/2},{7*(\the\ht1+\the\dp1)/12})
to[in=0,out=90]++(-{7*\the\wd2/20},{3*(\the\ht1+\the\dp1)/12})
to[in=90,out=180]++(-{13*\the\wd2/24},-{11*(\the\ht1+\the\dp1)/12})
to[in=180,out=270]++({3*\the\wd2/12},{-4*(\the\ht1+\the\dp1)/10})
to[in=270,out=0]++({11*\the\wd2/48},{(\the\ht1+\the\dp1)/3})
to[in=300,out=90]++(-{3*\the\wd2/13},{11*(\the\ht1+\the\dp1)/12})
to[in=40,out=120]++(-{6*\the\wd2/10},-{1*(\the\ht1+\the\dp1)/6});
}}
\begin{document}
$\mathbb{R}$R\fancyR{}$R$
\end{document}

Output: