Live3D stuff

In[1]:=

LiveForm[graphics_, animOpts___] := <br />   Module[{graphics3d = Switch[graphi ... filename] ; ps = Unprotect[Real] ; Format[x_Real, InputForm] =. ; Protect @@ ps ;] ; Null

General :: spell1 : Possible spelling error: new symbol name \"LiveForm\" is similar to existing symbol \"LineForm\". More…

In[4]:=

SetDirectory[ToFileName[First["FileName" /.<br />   NotebookInformation[EvaluationNotebook[]]]]]

Out[4]=

C:\\RICK\\CALC3

Created by Mathematica  (October 15, 2003)