Choose a colorful image already loaded on your computer:
Choose a colorful image already loaded on your computer:
Click inside each code section before keying shift enter
Click inside each code section before keying shift enter
In[]:=
Clear["Global`*"];importImageFileWithoutMultiImageListError:={Import[SystemDialogInput["FileOpen"]]}//Flatten//First;myImage=importImageFileWithoutMultiImageListErrorImageDimensions[myImage]
Choose a maximum pixel dimension {width and height limit} for your computer:
Choose a maximum pixel dimension {width and height limit} for your computer:
In[]:=
maxDimension=Input["Please input a maximum dimension for images to be processed",1024];maxImage=ImageResize[myImage,{maxDimension}]ImageDimensions[maxImage]
Choose two more images already loaded on your computer:
Choose two more images already loaded on your computer:
In[]:=
secondImage=ImageResize[importImageFileWithoutMultiImageListError,ImageDimensions[maxImage]]thirdImage=ImageResize[importImageFileWithoutMultiImageListError,ImageDimensions[maxImage]]
Change the filename and/or extensions below to your preference:
Change the filename and/or extensions below to your preference:
In[]:=
(*Filesetup*)baseOutputFileName="dreamweave2024";baseOutputImageExtension=".pdf";baseOutputMovieExtension=".mp4";
Select an existing directory folder to save batch outputs:
Select an existing directory folder to save batch outputs:
In[]:=
outputDirectory=SystemDialogInput["Directory"](*Outputfunctionsbasedonchoicesabove*)putOut[image_]:=Export[StringJoin[outputDirectory,baseOutputFileName,baseOutputImageExtension],image,OverwriteTarget"KeepBoth"];putOut[imageS_List]:=Export[StringJoin[outputDirectory,baseOutputFileName,baseOutputMovieExtension],imageS,OverwriteTarget"KeepBoth"];
Then let the automation work, clicking inside each code section before keying shift enter
Then let the automation work, clicking inside each code section before keying shift enter
In[]:=
starT=NowPrint["myImage at different widths"];myImage;Print["Original image is ",ImageDimensions[myImage]," pixels"];tinyImage=ImageResize[myImage,128];Print[ImageDimensions[tinyImage]," pixels"];smallImage=ImageResize[myImage,256];Print[ImageDimensions[smallImage]," pixels"];mediumImage=ImageResize[myImage,512];Print[ImageDimensions[mediumImage]," pixels"];largeImage=ImageResize[myImage,1024];Print[ImageDimensions[largeImage]," pixels"];Print[ImageDimensions[maxImage]," pixels"];elapseD=Now-starT
In[]:=
starT=Now;Print["ImageInkOverWatercolor"]ResourceFunction["ImageInkOverWatercolor"][maxImage]putOut[%]elapseD=Now-starT
Select a folder containing many images to make a mosaic of your image:
Select a folder containing many images to make a mosaic of your image:
In[]:=
starT=Now;mosaicDir=SystemDialogInput["Directory"];artImages=Flatten[{Import[#]}&/@RandomChoice[FileNames[{"*.pdf","*.png","*.jpg","*.heic","*.gif","*.bmp"},mosaicDir,2],350]];ResourceFunction["ImageMosaic"][maxImage,artImages,"TileSize"->#]&/@{48,24,12}putOut[#]&/@%elapseD=Now-starT
In[]:=
starT=Now;Print["PebbleStoneEffect tiny image"]ResourceFunction["PebbleStoneEffect"][tinyImage]putOut[%]elapseD=Now-starTstarT=Now;Print["PebbleStoneEffect small image"]ResourceFunction["PebbleStoneEffect"][smallImage]putOut[%]elapseD=Now-starTstarT=Now;Print["PebbleStoneEffect medium image"]ResourceFunction["PebbleStoneEffect"][mediumImage]putOut[%]elapseD=Now-starT
In[]:=
starT=Now;Print["PebbleStoneEffect large image"]image01=ResourceFunction["PebbleStoneEffect"][largeImage]putOut[%]elapseD=Now-starT
Original images can be VERY large - if so invoke patience and optimism before keying shift enter on this last Pebblestone
Original images can be VERY large - if so invoke patience and optimism before keying shift enter on this last Pebblestone
In[]:=
starT=Now;Print["PebbleStoneEffect my original image"]myImagePebbled=ResourceFunction["PebbleStoneEffect"][myImage]putOut[%]elapseD=Now-starT
In[]:=
starT=Now;Print["Solarization"];ImageEffect[#,"Solarization"]&/@{maxImage,ImageResize[image01,ImageDimensions[maxImage]]}images05=Flatten[{%,ImageAdd[%[[1]],%[[2]]]}]putOut[#]&/@%elapseD=Now-starTstarT=Now;Print["ColorNegate max and solarized image"]ColorNegate[#]&/@Join[{maxImage},images05]putOut[#]&/@%elapseD=Now-starT
In[]:=
starT=Now;Print["Radon medium image and color negation"]Radon[mediumImage]
In[]:=
putOut[%]ColorNegate[%%]putOut[%]ResourceFunction["ImagePalettePlumes"][%%]putOut[%]elapseD=Now-starT
In[]:=
starT=Now;Print["ImageAdd and Multiply"]{ImageAdd[maxImage,secondImage],ImageAdd[maxImage,thirdImage],ImageAdd[secondImage,thirdImage],ImageMultiply[maxImage,secondImage],ImageMultiply[maxImage,thirdImage],ImageMultiply[secondImage,thirdImage]}putOut[#]&/@%elapseD=Now-starT
In[]:=
starT=Now;Print["ImageColorReplace second third and myImage in pairs"];ResourceFunction["ImageColorReplace"][#[[1]],#[[2]]]&/@Permutations[{myImage,secondImage,thirdImage},{2}]putOut[#]&/@%elapseD=Now-starT