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[]=
,
,
,
,
,
,
,
,
,
,
In[]:=
catrow[{-.1,.1}]
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.