i=ImageResize
,500;
logogramDirectory="~/Dropbox/SOYL/ReceivedMaterial/HiRez Logograms/Final Scripted Logograms/ScriptLogoJpegs/";
i2=(ImageResize[#,500]&)/@Import/@(logogramDirectory<>#&)/@Select[StringMatchQ[#,___~~".jpg"]&]@Import@logogramDirectory;
sectionCount=12;
colorFunction=ColorData[104];
breakLogogram[i_,c_]:=Map[SetAlphaChannel[#,ColorNegate@#]&]@Map[ColorNegate@ImageMultiply[ColorNegate@i,#]&]@Map[Graphics[{White,Polygon@#},BackgroundBlack,PlotRangeFunction[n,{-n/2,n/2}]/@ImageDimensions@i,ImageSizeImageDimensions@i]&]@Map[Prepend[{0,0}]]@Partition[Append[#,#[[1]]]&@CirclePoints[Norm@ImageDimensions@i,c],2,1]
ImageCrop/@breakLogogram[i,sectionCount]
,
,
,
,
,
,
,
,
,
,
,
Show[{i,Graphics[{Red,Line[{ImageDimensions@i/2,#}]&/@CirclePoints[ImageDimensions@i/2,Norm@ImageDimensions@i/2,sectionCount]}]}]
Manipulate[Show[{i,Graphics[{Red,Line[{ImageDimensions@i/2,#}]&/@CirclePoints[ImageDimensions@i/2,{Norm@ImageDimensions@i/2,t},sectionCount]}]}],{t,0,2Pi/sectionCount}]
Show@MapIndexed[ImageMultiply[#,colorFunction@(First[#2])]&]@Map[SetAlphaChannel[#,#]&]@Map[ImageMultiply[#,#]&]@Map[ColorNegate]@breakLogogram[i,sectionCount]
Multicolumn[Function[i,(Show[#,ImageSize250]&)@MapIndexed[ImageMultiply[ColorNegate@#,colorFunction@First[#2]]&]@breakLogogram[i,sectionCount]]/@RandomSample[i2,9],3,FrameAll]
sections=Function[i,ImageCrop/@breakLogogram[i,sectionCount]]/@i2;
Grid[sections,FrameAll]
Grid[sections,FrameAll,Background{{colorFunction/@Range[sectionCount]},None}]
Grid[MapIndexed[ImageMultiply[ColorNegate@#,colorFunction@First[#2]]&]/@sections,FrameAll]
straightSections=MapIndexed[ImageRotate[#1,#2[[2]]*-2Pi/sectionCount]&,sections,{2}];
Grid[straightSections,FrameAll]
Grid[straightSections,FrameAll,Background{{colorFunction/@Range[sectionCount]},None}]
Grid[MapIndexed[ImageMultiply[ColorNegate@#,colorFunction@First[#2]]&]/@straightSections,FrameAll]