i=ImageResize
,500;
logogramDirectory="~/Dropbox/SOYL/ReceivedMaterial/HiRez Logograms/Final Scripted Logograms/ScriptLogoJpegs/";
i2=(ImageResize[#,500]&)/@Import/@(logogramDirectory<>#&)/@Select[StringMatchQ[#,___~~".jpg"]&]@Import@logogramDirectory;
ImageTransformation[i,{ArcTan@@#,Norm@#}&]
points=PixelValuePositions[Binarize@ImageResize[i,200],0];
Manipulate[Graphics[{Point@({Rescale[ArcTan@@(#-{x,y}),{0,2Pi},{0,ImageDimensions[i][[1]]}],Norm[#-{x,y}]}&/@points),Point@points}],{x,50,150},{y,50,150}]
unwrap[i_,width_:600]:=ImageAssemble@List@Table[ImageTake[#,{0,ImageDimensions[#][[1]]/2},{Floor[ImageDimensions[#][[2]]/2]}]&@ImageRotate[i,t,All,BackgroundWhite],{t,0,2Pi,2Pi/width}]
l=unwrap@i
rotateImage[l_Image,t_]:=ImageAssemble@(RotateRight[#,t]&/@ImagePartition[l,{1,ImageDimensions[l][[2]]}])
Manipulate[rotateImage[l,t],{t,0,ImageDimensions[l][[1]],1}]
l2=unwrap/@RandomSample[i2,5];
ImageCrop/@l2
,
,
,
,
Column[Show[ImageCrop@#,ImageSize500]&/@l2,FrameAll]
Manipulate[Column[Show[rotateImage[ImageCrop@#,t],ImageSize500]&/@l2,FrameAll],{t,0,ImageDimensions[l2[[1]]][[1]],1}]