Pensieve header: Making the beehive picture.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\Pitzer-250308"];

BeehiveImages=Import["C:\\drorbn\\AcademicPensieve\\Projects\\HigherRank\\DunfieldKnots\\PP"<>ToString[#]<>".png"]&/@(100+Range[15]);
Show[Beehive=Graphics[{
{0,0,1},{1,0,2},{2,0,3},{0,1,4},{1,1,5},{2,1,6},{-1,2,7},{0,2,8},{1,2,9},{-1,3,10},{0,3,11},{1,3,12},{-2,4,13},{-1,4,14},{0,4,15}
},
PlotRange->{{-0.6,4.1},{-0.5,3}}, ImageSize->1200]/.{x_,y_,k_}:>
Inset[
SetAlphaChannel[BeehiveImages[[k]],Graphics[{White,Polygon[Table[{Cos[t],Sin[t]},{t,0,5π/3,π/3}]]},Background->Black]],
x{0,1}+y{(Sqrt[3])/2,1/2},Center,1.2
], ImageSize->Small]

h=ImageDimensions[Beehive][[2]];
Show[
Beehive=ImageTake[Beehive,Round@{h/7,6h/7}],
ImageSize->Small]

Export["Beehive.png",RemoveBackground[ImageCrop[Beehive], {White,1/250}]]