Wolfram Cloud Document

WOLFRAM NOTEBOOK

In[]:=

standardcat=NetModel[{"CLIP Multi-domain Feature Extractor","InputDomain"->"Text","Architecture"->"ViT-L/14"}]["A cat in a party hat",NetPort[{"post_normalize","Output"}]];

In[]:=

standardcat

Out[]=

{{-0.388377,0.0229435,-0.0521966,-0.184061,-0.0273186,-0.335549,-0.0175792,-0.186929,0.187707,-0.0906623,-0.228012,

⋯746⋯

,-0.155446,-0.204386,-0.0400002,-0.427648,-0.300965,-0.245181,0.161179,0.100714,-0.489883,-0.306602,0.0674539},

⋯6⋯

⋯1⋯

}}

Full expression not available

(

original memory size:

51.3 kB)

In[]:=

Dimensions[%]

Out[]=

{8,768}

GraphicsGrid[Partition[StableDiffusionSynthesize[Table[xcat+(1-x)dog->BlockRandom[SeedRandom[254345];RandomVariate[NormalDistribution[],{4,64,64}]],{x,0,1,1/11}],sdOptions],6]]

In[]:=

cat=NetModel[{"CLIP Multi-domain Feature Extractor","InputDomain"->"Text","Architecture"->"ViT-L/14"}]["A cat",NetPort[{"post_normalize","Output"}]];

In[]:=

dog=NetModel[{"CLIP Multi-domain Feature Extractor","InputDomain"->"Text","Architecture"->"ViT-L/14"}]["A dog",NetPort[{"post_normalize","Output"}]];

In[]:=

GraphicsGrid[Partition[StableDiffusionSynthesize[Table[xcat+(1-x)dog->BlockRandom[SeedRandom[254345];RandomVariate[NormalDistribution[],{4,64,64}]],{x,0,1,1/11}],sdOptions],6]]

Out[]=

In[]:=

ImageAssemble[Take[Import["randomplane-100.wxf"],{3,-3},{3,-3}]]

Out[]=

In[]:=

ImageAssemble[Take[Import["catplane-1024.wxf"],{3,-3},{3,-3}]]

Out[]=

In[]:=

seedimage=BlockRandom[SeedRandom[33];RandomVariate[NormalDistribution[],{4,64,64}]];

In[]:=

catembedding=NetModel[{"CLIP Multi-domain Feature Extractor","InputDomain"->"Text","Architecture"->"ViT-L/14"}]["A cat in a party hat",NetPort["post_normalize","Output"]];

In[]:=

eplane=(SeedRandom[1024];{RandomReal[NormalDistribution[],Dimensions[catembedding]],RandomReal[NormalDistribution[],Dimensions[catembedding]]});

catplane=Table[StableDiffusionSynthesize[((#+catembedding)->seedimage)&/@(#.eplane&/@Table[{x,y},{x,-1,1,.2}]),sdOptions],{y,-1,1,.2}];

In[]:=

With[{y=0},StableDiffusionSynthesize[((#+catembedding)->seedimage)&/@(#.eplane&/@Table[{x,y},{x,-1,1,.2}]),"UnetBatchSize"->8,ProgressReporting->False,sdOptions]]

Out[]=

