ManipulateModule{s,textpi,crop,ndigits,diglist,b,numcrop},s=Rasterize[Text[Style["π",FontSize10]],RasterSizen];textpi=Reverse[s[[-3,1]]];crop=Select[textpi,MemberQ[Flatten@#,0]&];ndigits=Total[Flatten[(crop/.{255,255,255}0)/.{r_,g_,b_}1]];diglist=First@RealDigits[π,10,ndigits];b=1;numcrop=If#{255,255,255},"", Stylediglist[[b++]], FontFamilyfamily, FontSlantslant, FontWeightweight, FontSize12*50n, FontColorRGBColor[0,0,0,If[smooth,0.3+0.7*(1-Total[#]/(3*255)),1]] &/@#&/@crop;Pane[Grid[numcrop,Spacings{0.2,0.1}],{580,420},Alignment{Center,Center}],{{n,25,"resolution"},10,50,Appearance"Labeled"},Delimiter,Row[{Control@{{family,"Helvetica","font"},{"Courier","Helvetica","Times"}},Control@{{slant,"Plain","slant"},{"Plain","Italic"}},Control@{{weight,"Plain","weight"},{"Plain","Bold"}},Control@{{smooth,True,"smoothing"},{True,False}}},Spacer[12]],ContinuousActionFalse
Happy Pi Day!
Happy Pi Day!
-3,1 is longer than depth of object.
cannot be used as a part specification.
.
This little gadget celebrates Day (March 14). You can set the size of the rendered symbol , as well as the font and some font options.
π
π