Initilization
Initilization
i=ImageResize
,500;
logogramDirectory="~/Dropbox/SOYL/ReceivedMaterial/HiRez Logograms/Final Scripted Logograms/ScriptLogoJpegs/";
i2=(ImageResize[#,500]&)/@Import/@(logogramDirectory<>#&)/@Select[StringMatchQ[#,___~~".jpg"]&]@Import@logogramDirectory;
01
01
SkeletonTransform@ColorNegate@i
02
02
HighlightImage[i,ImageCorners[i,3,0.1,5]]
Animated (not very exciting):
DynamicModule[{corners},Manipulate[corners=ImageCorners[i,r,t,d];If[Length@corners>0,HighlightImage[i,corners],i],{{r,3},0,10,1},{{t,0.1},0,0.13},{{d,5},1,10}]]
03
03
corners=ImageCorners[i,3,0.1,5];
Show[{i,Graphics[{{Orange,Opacity[0.05],Thickness[0.003],Outer[If[#1===#2,{},Line[{#1,#2}]]&,corners,corners,1]},{EdgeForm[Green],FaceForm[],Rectangle[#-10,#+10]&/@corners}}]}]
Show[{i,Graphics[{{Orange,Opacity[0.05],Outer[If[#1===#2,{},{Thickness[1*(1/EuclideanDistance[#1,#2])],Line[{#1,#2}]}]&,corners,corners,1]},{EdgeForm[Green],FaceForm[],Rectangle[#-10,#+10]&/@corners}}]}]
Show[{i,Graphics[{{Orange,Thickness[0.003],Outer[If[#1===#2,{},{Opacity[3000*1/EuclideanDistance[#1,#2]^2],Line[{#1,#2}]}]&,corners,corners,1]},{EdgeForm[Green],FaceForm[],Rectangle[#-10,#+10]&/@corners}}]}]
Animated:
04
04
05
05
06
06
07
07