Basic Examples
Basic Examples
In[]:=
Have a wolf say your output:
[Plot[Sin[x],{x,-5,5}]]
In[]:=
Out[]=
Position the wolf on the right:
[Plot[Sin[x],{x,-5,5}],Right]
In[]:=
Out[]=
WolfieSay
LabeledStyle
["WolframLanguageLogo"],100,"This is a pretty cool wolf",Top
In[]:=
Out[]=
WolfieSay
Labeled
,"This is an even cooler wolf",TopIn[]:=
Out[]=
Scope
Scope
Position at the top-left:
["top left",{Top,Left}]
In[]:=
Out[]=
Position at the left-top:
["left top",{Left,Top}]
In[]:=
Out[]=
See all valid positions:
positions=Join[Tuples[#],Tuples[Reverse[#]]]&[{{Left,Right},{Top,Bottom}}]
In[]:=
{{Left,Top},{Left,Bottom},{Right,Top},{Right,Bottom},{Top,Left},{Top,Right},{Bottom,Left},{Bottom,Right}}
Out[]=
[Row[#],#]&/@positions
In[]:=
,
,
,
,
,
,
,
Out[]=
Applications
Applications
In[]:=
Create a notebook that prints messages in a really cool way:
wolfBox=Module{expr},Withb=ToBoxes
[expr],Replace[CurrentValue[{StyleDefinitions,"MessageTemplate","TemplateBoxOptionsDisplayFunction"}],HoldPattern[e_&]Function@@{b/.SymbolName[expr]e}];nb=CreateDocumentExpressionCell[Defer[1/0],"Input"],ExpressionCell[Defer[First[x]],"Input"],ExpressionCellDefer
["Neat!"],"Input",StyleDefinitionsNotebook[{Cell[StyleData["MessageTemplate"],"TemplateBoxOptionsDisplayFunction"wolfBox]}];NotebookEvaluate[nb,InsertResultsTrue]
In[]:=
Out[]=
Properties and Relations
Properties and Relations
In[]:=
Copy and paste the output into another expression:
Possible Issues
Possible Issues
In[]:=
Neat Examples
Neat Examples
In[]:=
WolfieSay another wolfram:
This one is probably a stretch:
WolfieSay a WolfieSay that’s WolfieSaying a WolfieSay more times than you care to say WolfieSay:
Animate your WolfieSay:
Act out a play: