Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Saveable' topicStudent Support Forum > General > "Saveable"

Next Comment >Help | Reply To Topic
Author Comment/Response
hmj6jmh
04/22/11 09:30am

I can't save changes to a demo notebook I downloaded from the Wolfram demo site. 'Save' and 'Save as' are greyed out. I changed 'Saveable' from 'False' to 'True' with a text editor and it is still locked. Is there some other setting in the file that needs to be changed?

[code](* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 19886, 512]
NotebookOptionsPosition[ 18680, 465]
NotebookOutlinePosition[ 19324, 490]
CellTagsIndexPosition[ 19281, 487]
WindowTitle->Moir\351 Patterns - Source
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Moir\[EAcute] Patterns", "Section",
CellFrame->{{0, 0}, {0, 0}},
ShowCellBracket->False,
FontColor->RGBColor[0.597406, 0, 0.0527047]],

Cell[BoxData[
GraphicsBox[RasterBox[CompressedData["
1:eJztnVuSozgWQDNiPqa3MJ+zpVlCbaB3WlGVNV9dvYH6TQRUph/ZGIHQmwvG
xoZzQu3Aku7VfUj4Nk53//fLn//78q+Xl5f/NP/88e+Xl8v154Xj5+fp89y0
4+X63L7VnQu02XqOt9FzjRK5qtRMoYZFpk11/Ji+WDye92+r7+fFfbnGkuu9
eIQ4LBVJ+YRo5DPnRdITDp0TLRg6m/62nY/n08f5+H461G37fWqum57z4Xy2
jby0prMZOh4/jodLOx2bt6fzRSEA3B/KMKGSBy/DSKVcyYOn8krHqajvqed6
G6iol4qkfAIVNQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADsizPA/lj72AEA
AMCmWLu0AXh01j6jAAAAcdb+hNwUJ5e1zZnPDEeey/e1jx0AAABsirVLm03x
XFVlhs1X1JNY+4wCAAB02B9PJ4BdsvYpBAAAgOeGihpADo9GAUDIr+Lnr7ef
a9vw16/i73VtMPx6+2v1gGwMijeAE89FAQA2DRW1BxX14lBRA0wi+lx0baMA
AAAAAAAAAAAAbkj0uegR4L4cDoe1TYA1YQMAbIaDy9rm3JU9+w4AjwB3np3D
BgDYDHuuKu/su3k0ynNRACGLHMy93dm2ijCPpHvD7LliAQAAmA0VNRioqIGK
GlYk9Vz0AAAAAAAAAAAAALBR9KPR8Kf0a9sFAAAAAAAAAAAAcCt4LgoAAAAA
AAAAAAB7I/Vc9ONheH9/X9uEzUJsZ0PoAGBZ3gNuLQgggR21GUjl7SC2syF0
ALAsVNQgxMv14XAI/xOja9sIAAAAT0lYWM5jbT/msGffAQAAAGAp9lxV3sF3
b1r0uehSZgAAAAAAAAAAAAA8Ar9b6rpuXpu3+tf0PBcFWJcFvxYBAAAAANgh
VNQAADCK5LnobwAAAAAAAAAAAIANUbcPRav+wehH7LmoUqpsqKqmNTSXRVE0
by593mtRXlrfo7mImTlVN6ebUOhR07q3jmxVWXqquqxVOUjZq1eDVNe662ro
Nxe1Xr5o2lt5cUc7VWr3BpGindNL6TkDl5nVIGWtbuaXWbwJo/OVKjSX68oL
shMTO4ylHf+yy5GbhU5EubJJPeWgx5ayBfvOIR2qD5QJXWmFtJs2pLsLvu40
4oOesh/tJ3TKW/3DomZONgVdVPtNXvVXYWydyBRl/NWNWNW62L06G344TcNW
L/SVpaTqcmeOWGWOm3W+TFPWsbL8dE1yklUal73ghDtBH+Hu1dE/HBM7/t7h
sjNoN29Calrl2GadWfsMeoc0elcR584clrm5qzO5a+5mQe4imy2Tu1qcu+g2
7od7mkvVtqJtajgInQuqzUrRtWFCzIAkzQdK0/RR1U33JEhtgOhosnmLKtX0
DArVhaJHtZOlmgPbVN+mWZhRGzNvEc13MD61kIRcEPS2WciRp/C97a0ow569
DCOVRurZU0lFnUoBFbWkKiv7I0xFLc4dFXUAFfVUtVTUYRD2V1EnfTd7u920
v+va/NXoSXM86qXVwFtzgNvS7vJG3730Ga76Wkq/6lFz3dlWOa+69XpUOSix
ixQtrrVV1pxBleO+uesMsv6QjenXF+bViFjGO5rtObaUp7bVoENe21Kqy1Un
1M8xOaxNftysOh61q5joKStQpbkIQ2p54HRWXcqsOsbVU7oZNBr8Fbv+yotk
GBkvbuFbu9/LkY6DF3ZvTvqtOVXdBi0dlN6WZekEsHfQ2flmjpnQ+25vfn//
2yH1eswnokp/tNkpsJNrTqJruX4tzAkKBJXJVdUbbJmtrwtrUfuoGm2Ru5S3
AcrEGQyPld3jzbFTH+oP+is3d+XVuev2wI1zN9w8rZM1I3dFf203xxKvuUyT
TevJkd8JSzF7iVHBzJa+D0vFZJLapawNh6xiQ91ixaf03R+lDHvaMqwPCKl8
+lRGgkZF3W3Q0oGKmoq685yKmoo6L5jZ0vdhqZhMUruUteEQFfUk37VU98C8
qRvq+uPjQz8UPZ/P+snoZYIqVAwtaFY0r+E0+8l8VIM3Gs70JkelUoLR0XBm
2X5dldcmWS5lQ2r1jDue+DBaRvrzvidVpc2WOKJicRvVZu+HaFqjgpngC/MS
Fek2rRvSjKCy9rnxfepWFFKokVMzWaEsU9GDbEYnbfuoYOpGkdcwql/Sv+fc
CVdJcY1a+Yo3WuUaZsfE+9S+j3mTRuFZoAxL9eTtFK6ecccTH0bnlmGkMtXz
dKnMLCTpifZTUUfnyNOR4QGrstQuHTXGFqSiXiV3wlVSXKNWvuKNVrmG2TGh
ooZb0+T0rUWf/br9e1HvuWjR/z1/+JOUIujKPxYu+l9YCEX0kGVARDxjjHxa
ygZv6ejF6KiE0cfp0eUk6JMrmVamQx1qkPTIRzNSo4LC0OnbV7S/tD7WRw32
ElFYP1/y7EkZn09lPhHedej7vDiHSkbzq79YsWcWfUUUzYgXf7mdqa04eiK0
ebYxe86d9yE+T3n+OzuVqHbMx01Up/kkCud7Q0ZJ5uvCRQhNGvVCoueayK9O
mKP8qDDd9szol7b5AM5LSup0P7LvxXBX8dWGvlCGTTJm1IBwianK3QySyo2k
clR/KtShBkmPfDQjNSpIRS0xexJRy8NjS0UtMfVBcmegoh6FijrkEarKPVfU
Gd89w+rwd/Tt34uq/kuT6C2xsG5WhXvLsu+KUb+8/kxsvQMryUIxdp8PLc/c
FiblXaJEcgvKuODFf54N8yYXwYejZ2fUbO8i5b7kXwRSPfJtFu1JWZ7BtlZu
eRg9XXJEbcuriorIU2xkjYjQi2hJFjXeFvFmhjeNUWu9HhO3/LQoe8tdSKqC
ys+f+tE5aZVoBSU0T87U+sr2emq4Ur7k9eQrhydiaqiF3LqSX4QFfacMk684
yaT7l2GkUr7iJJOoqKMrUlGPritxZ9RyT9aIUFHn133e3IVQUQvVUlHPhor6
1r6r/k9G9X1A/47+dDrZ/9+lb9++vbr8+PHDe7X7w077rafHU+JNTo1GF/Wu
U52hhtCjqGEZJVGdoZsp5ZmZoRe2kc3Fd0tnKGKvJQ9UKr8pRh15dY0MZTOO
e/pTa43OSUmFpn5Pbzzv7agveTNCJRnZ70FCX4OU5ZWn9KfiELrpLZ3aIZn0
RYmGN+NRPsIpd7y19pa7qIhQZ15coicVmamMLjpb1SLmLUgmzlOtzau6RRAm
bYxFTJoh9Vy+U4aNKonqDN1MKc/MDL2wjXydWIaRylElz5LKVExSS2Scigqm
HHl1jQxlM457+lNrjc5JSYWmUlF7jqQ2RmqHZNIXJRrejEf5CKfc8dbaW+6i
IkKdeXGJnlRkpjK66GxVi5i3IJk4T7U2r+oWQZi0MRYxaYbUZnyPLvH/lte2
FP/69esnAAAAAAAAAAAAwM74B4thROM=
"], {{0, 0}, {1800, 25}}, {0, 255},
ColorFunction->RGBColor],
ImageSize->{1800, 25},
PlotRange->{{0, 1800}, {0, 25}}]], "Section",
CellFrame->{{0, 0}, {0, 0}},
ShowCellBracket->False],

Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"u", "=",
RowBox[{"If", "[",
RowBox[{"li", ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "n"}], "/", "2"}], ",", "i"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"n", "/", "2"}], ",", "i"}], "}"}]}], "}"}], "]"}],
",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{
RowBox[{"-", "n"}], "/", "2"}], ",",
RowBox[{"n", "/", "2"}]}], "}"}]}], "]"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Point", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "n"}], "/", "2"}], "+", "j"}], ",", "i"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], ",",

RowBox[{"{",
RowBox[{"i", ",",
RowBox[{
RowBox[{"-", "n"}], "/", "2"}], ",",
RowBox[{"n", "/", "2"}]}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"If", "[",
RowBox[{"col", ",", "Red", ",", "Black"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Rotate", "[",
RowBox[{"u", ",",
RowBox[{"a", " ", "Degree"}]}], "]"}], ",", "\[IndentingNewLine]",

RowBox[{"If", "[",
RowBox[{"col", ",", "Green", ",", "Black"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Rotate", "[",
RowBox[{"u", ",",
RowBox[{"b", " ", "Degree"}]}], "]"}], ",", "\[IndentingNewLine]",

RowBox[{"If", "[",
RowBox[{"col", ",", "Blue", ",", "Black"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Rotate", "[",
RowBox[{"u", ",",
RowBox[{"c", " ", "Degree"}]}], "]"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{
RowBox[{"n", "/", "2"}], " ",
RowBox[{"If", "[",
RowBox[{"cent", ",", "1", ",",
RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]}]}], ",",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"{",
RowBox[{"500", ",", "283"}], "}"}]}]}], "]"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "0", ",", "\"\<angle 1\>\""}], "}"}], ",", "0", ",",
"360", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"b", ",", "4", ",", "\"\<angle 2\>\""}], "}"}], ",", "0", ",",
"360", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"c", ",", "8", ",", "\"\<angle 3\>\""}], "}"}], ",", "0", ",",
"360", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
"\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"li", ",", "False", ",", "\"\<show lines\>\""}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"col", ",", "False", ",", "\"\<use color\>\""}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"n", ",", "40", ",", "\"\<resolution\>\""}], "}"}], ",", "10",
",", "150", ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"cent", ",", "True", ",", "\"\<show center region only\>\""}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.35833259063588*^9, 3.35833264276722*^9},
3.35833269772702*^9, {3.3583327793932*^9, 3.35833280194282*^9}, {
3.3583328981889*^9, 3.35833293885009*^9}, {3.35833301307787*^9,
3.35833305842713*^9}, 3.35833311409015*^9, {3.35833342376843*^9,
3.35833352212413*^9}, {3.358333569333*^9, 3.35833369014456*^9}, {
3.35833374080697*^9, 3.3583338510235*^9}, {3.35833393933111*^9,
3.35833411719649*^9}, {3.35834331478125*^9, 3.358343314875*^9}, {
3.35834336532813*^9, 3.358343427375*^9}, {3.36330299790625*^9,
3.36330303167188*^9}, {3.370821350722168*^9, 3.37082135128074*^9}, {
3.3822139176678057`*^9, 3.382213950692573*^9}, {3.38221398908683*^9,
3.3822141103058767`*^9}, {3.382214164117198*^9, 3.382214211985653*^9}, {
3.3822144395425453`*^9, 3.382214468565031*^9}, {3.382215588728613*^9,
3.3822157017412643`*^9}, {3.382215739834176*^9, 3.38221582691534*^9}, {
3.3822158754550447`*^9, 3.382215887454706*^9}},
CellID->750648026]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ =
4, $CellContext`c$$ = 8, $CellContext`cent$$ = True, $CellContext`col$$ =
False, $CellContext`li$$ = False, $CellContext`n$$ = 40, Typeset`show$$ =
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`a$$], 0, "angle 1"}, 0, 360}, {{
Hold[$CellContext`b$$], 4, "angle 2"}, 0, 360}, {{
Hold[$CellContext`c$$], 8, "angle 3"}, 0, 360}, {{
Hold[$CellContext`li$$], False, "show lines"}, {True, False}}, {{
Hold[$CellContext`col$$], False, "use color"}, {True, False}}, {{
Hold[$CellContext`n$$], 40, "resolution"}, 10, 150, 1}, {{
Hold[$CellContext`cent$$], True, "show center region only"}, {
True, False}}}, Typeset`size$$ = {500., {139., 144.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`a$562745$$ = 0, $CellContext`b$562746$$ =
0, $CellContext`c$562747$$ = 0, $CellContext`li$562748$$ =
False, $CellContext`col$562749$$ = False, $CellContext`n$562750$$ =
0, $CellContext`cent$562751$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ =
4, $CellContext`c$$ = 8, $CellContext`cent$$ =
True, $CellContext`col$$ = False, $CellContext`li$$ =
False, $CellContext`n$$ = 40}, "ControllerVariables" :> {
Hold[$CellContext`a$$, $CellContext`a$562745$$, 0],
Hold[$CellContext`b$$, $CellContext`b$562746$$, 0],
Hold[$CellContext`c$$, $CellContext`c$562747$$, 0],
Hold[$CellContext`li$$, $CellContext`li$562748$$, False],
Hold[$CellContext`col$$, $CellContext`col$562749$$, False],
Hold[$CellContext`n$$, $CellContext`n$562750$$, 0],
Hold[$CellContext`cent$$, $CellContext`cent$562751$$, False]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
With[{$CellContext`u$ = If[$CellContext`li$$,
Table[

Line[{{(-$CellContext`n$$)/2, $CellContext`i}, {$CellContext`n$$/
2, $CellContext`i}}], {$CellContext`i, (-$CellContext`n$$)/
2, $CellContext`n$$/2}],
Table[
Point[

Table[{(-$CellContext`n$$)/
2 + $CellContext`j, $CellContext`i}, {$CellContext`j,
0, $CellContext`n$$}]], {$CellContext`i, (-$CellContext`n$$)/
2, $CellContext`n$$/2}]]},
Graphics[{
If[$CellContext`col$$, Red, Black],
Rotate[$CellContext`u$, $CellContext`a$$ Degree],
If[$CellContext`col$$, Green, Black],
Rotate[$CellContext`u$, $CellContext`b$$ Degree],
If[$CellContext`col$$, Blue, Black],
Rotate[$CellContext`u$, $CellContext`c$$ Degree]},
PlotRange -> ($CellContext`n$$/2) If[$CellContext`cent$$, 1,
Sqrt[2]], ImageSize -> {500, 283}]],
"Specifications" :> {{{$CellContext`a$$, 0, "angle 1"}, 0, 360,
Appearance -> "Labeled"}, {{$CellContext`b$$, 4, "angle 2"}, 0, 360,
Appearance -> "Labeled"}, {{$CellContext`c$$, 8, "angle 3"}, 0, 360,
Appearance -> "Labeled"},
Delimiter, {{$CellContext`li$$, False, "show lines"}, {
True, False}}, {{$CellContext`col$$, False, "use color"}, {
True, False}}, {{$CellContext`n$$, 40, "resolution"}, 10, 150, 1,
Appearance ->
"Labeled"}, {{$CellContext`cent$$, True,
"show center region only"}, {True, False}}},
"Options" :> {ControllerLinking -> True},
"DefaultOptions" :> {ControllerLinking -> True}],
ImageSizeCache->{545., {257., 262.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellID->155582401],

Cell[CellGroupData[{

Cell["CAPTION", "Section",
CellFrame->{{0, 0}, {1, 0}},
CellFrameColor->RGBColor[0.87, 0.87, 0.87],
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.597406, 0, 0.0527047]],

Cell["\<\
Moir\[EAcute] patterns are formed by the superposition of grids of points at \
different angles. Our visual system does not immediately perceive the grids, \
but instead mainly picks up features formed from local arrangements of dots.\
\>", "Text"]
}, Close]]
}, Open ]],

Cell[CellGroupData[{

Cell["THIS NOTEBOOK IS THE SOURCE CODE FROM", "Text",
CellFrame->{{0, 0}, {0, 0}},
CellMargins->{{48, 10}, {4, 28}},
CellGroupingRules->{"SectionGrouping", 25},
CellFrameMargins->{{48, 48}, {6, 5}},
CellFrameColor->RGBColor[0.87, 0.87, 0.87],
FontFamily->"Helvetica",
FontSize->10,
FontWeight->"Bold",
FontColor->RGBColor[0.597406, 0, 0.0527047]],

Cell[TextData[{
"\"",
ButtonBox["Moir\[EAcute] Patterns",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/MoirePatterns/"], None},
ButtonNote->"http://demonstrations.wolfram.com/MoirePatterns/"],
"\"",
" from ",
ButtonBox["the Wolfram Demonstrations Project",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/"], None},
ButtonNote->"http://demonstrations.wolfram.com/"],
"\[ParagraphSeparator]\[NonBreakingSpace]",
ButtonBox["http://demonstrations.wolfram.com/MoirePatterns/",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/MoirePatterns/"], None},
ButtonNote->"http://demonstrations.wolfram.com/MoirePatterns/"]
}], "Text",
CellMargins->{{48, Inherited}, {0, Inherited}},
FontFamily->"Verdana",
FontSize->10,
FontColor->GrayLevel[0.5]],

Cell[TextData[{
"Contributed by: ",
ButtonBox["Stephen Wolfram",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/author.html?author=Stephen+\
Wolfram"], None},
ButtonNote->
"http://demonstrations.wolfram.com/author.html?author=Stephen+Wolfram"]
}], "Text",
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{66, 48}, {2, 4}},
FontFamily->"Verdana",
FontSize->10,
FontColor->GrayLevel[0.6],
CellID->397995001],

Cell[CellGroupData[{

Cell[TextData[{
"A full-function Wolfram ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" system (Version 6 or higher) is required to edit this notebook.\n",
StyleBox[ButtonBox["GET WOLFRAM MATHEMATICA \[RightGuillemet]",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://www.wolfram.com/products/mathematica/"], None},
ButtonNote->"http://www.wolfram.com/products/mathematica/"],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[1, 0.42, 0]]
}], "Text",
CellFrame->True,
CellMargins->{{48, 68}, {8, 28}},
CellFrameMargins->12,
CellFrameColor->RGBColor[0.87, 0.87, 0.87],
CellChangeTimes->{3.3750111182355957`*^9},
ParagraphSpacing->{1., 1.},
FontFamily->"Verdana",
FontSize->10,
FontColor->GrayLevel[0.411765],
Background->RGBColor[1, 1, 1]],

Cell[TextData[{
"\[Copyright] ",
StyleBox[ButtonBox["Wolfram Demonstrations Project & Contributors",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/"], None},
ButtonNote->"http://demonstrations.wolfram.com/"],
FontColor->GrayLevel[0.6]],
"\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
StyleBox[ButtonBox["Terms of Use",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/termsofuse.html"], None},
ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"],
FontColor->GrayLevel[0.6]],
"\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
StyleBox[ButtonBox["Make a new version of this Demonstration \
\[RightGuillemet]",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/participate/upload.jsp?id=\
MoirePatterns"], None},
ButtonNote->None],
FontColor->GrayLevel[0.6]]
}], "Text",
CellFrame->{{0, 0}, {0, 0.5}},
CellMargins->{{48, 10}, {20, 50}},
CellFrameMargins->{{6, 0}, {6, 6}},
CellFrameColor->GrayLevel[0.6],
FontFamily->"Verdana",
FontSize->9,
FontColor->GrayLevel[0.6]]
}, Open ]]
}, Open ]]
},
Editable->True,
Saveable->True,
ScreenStyleEnvironment->"Working",
CellInsertionPointCell->None,
WindowSize->{745, 650},
WindowMargins->{{Inherited, Inherited}, {Inherited, 0}},
WindowElements->{
"StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar",
"MenuBar"},
WindowTitle->"Moir\[EAcute] Patterns - Source",
DockedCells->{},
CellContext->Notebook,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[619, 23, 142, 3, 70, "Section"],
Cell[764, 28, 3700, 64, 70, "Section"],
Cell[4467, 94, 5449, 141, 70, "Input",
CellID->750648026]
}, Open ]],
Cell[CellGroupData[{
Cell[9953, 240, 4444, 84, 70, "Output",
CellID->155582401],
Cell[CellGroupData[{
Cell[14422, 328, 209, 6, 70, "Section"],
Cell[14634, 336, 258, 4, 70, "Text"]
}, Close]]
}, Open ]],
Cell[CellGroupData[{
Cell[14940, 346, 355, 9, 70, "Text",
CellGroupingRules->{"SectionGrouping", 25}],
Cell[15298, 357, 864, 24, 70, "Text"],
Cell[16165, 383, 459, 15, 70, "Text",
CellID->397995001],
Cell[CellGroupData[{
Cell[16649, 402, 815, 24, 70, "Text"],
Cell[17467, 428, 1185, 33, 70, "Text"]
}, Open ]]
}, Open ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature 5Tz#S1mgFlO3NC0VWH1T43zv *)
[/code]

URL: ,

Subject (listing for 'Saveable')
Author Date Posted
Saveable hmj6jmh 04/22/11 09:30am
Re: Saveable S. Saralamba 05/24/11 09:53am
Re: Saveable jf 05/24/11 11:02am
Next Comment >Help | Reply To Topic