home *** CD-ROM | disk | FTP | other *** search
Mathematica notebook | 1991-10-30 | 3.2 KB | 104 lines |
- (*^
-
- ::[
- fontset = title, "Helv", 24, L0, center, nohscroll, bold;
- fontset = subtitle, "Helv", 18, L0, center, nohscroll, bold;
- fontset = subsubtitle, "Helv", 14, L0, center, nohscroll, bold;
- fontset = section, "Helv", 14, L0, bold, grayBox;
- fontset = subsection, "Helv", 12, L0, bold, blackBox;
- fontset = subsubsection, "Helv", 10, L0, bold, whiteBox;
- fontset = text, "Helv", 12, L0;
- fontset = smalltext, "Helv", 10, L0;
- fontset = input, "Courier", 12, L0, nowordwrap;
- fontset = output, "Courier", 12, L0, nowordwrap;
- fontset = message, "Courier", 10, L0, nowordwrap, R65280;
- fontset = print, "Courier", 10, L0, nowordwrap;
- fontset = info, "Courier", 10, L0, nowordwrap;
- fontset = postscript, "Courier", 8, L0, nowordwrap;
- fontset = name, "Helv", 10, L0, nohscroll, italic, B65280;
- fontset = header, "Helv", 18, L0, nohscroll, bold;
- fontset = footer, "Helv", 18, L0, center, nohscroll, bold;
- fontset = help, "Helv", 10, L0, nohscroll;
- fontset = clipboard, "Helv", 12, L0, nohscroll;
- fontset = completions, "Helv", 12, L0, nowordwrap, nohscroll;
- fontset = network, "Courier", 10, L0, nowordwrap, nohscroll;
- fontset = graphlabel, "Courier", 10, L0, nowordwrap, nohscroll;
- fontset = special1, "Helv", 12, L0, nowordwrap, nohscroll;
- fontset = special2, "Helv", 12, L0, center, nowordwrap, nohscroll;
- fontset = special3, "Helv", 12, L0, right, nowordwrap, nohscroll;
- fontset = special4, "Helv", 12, L0, nowordwrap, nohscroll;
- fontset = special5, "Helv", 12, L0, nowordwrap, nohscroll;
- fontset = Left Header, "Helv", 12, L0, nowordwrap, nohscroll;
- fontset = Left Footer, "Helv", 12, L0, nowordwrap, nohscroll;]
- :[font = title; ]
- This is a prototypical title cell.
- :[font = subtitle; ]
- This is a prototypical subtitle cell.
- :[font = subsubtitle; ]
- This is a prototypical subsubtitle cell.
- :[font = section; ]
- This is a prototypical section cell.
- :[font = subsection; ]
- This is a prototypical subsection cell.
- :[font = subsubsection; ]
- This is a prototypical subsubsection cell.
- :[font = text; ]
- This is a prototypical text cell.
- :[font = smalltext; ]
- This is a prototypical smalltext cell.
- :[font = input; ]
- This is a prototypical input cell.
- :[font = output; ]
- This is a prototypical output cell.
- :[font = message; ]
- This is a prototypical message cell.
- :[font = postscript; inactive; output; BITMAP; PostScript; pictureLeft = 100; pictureTop = 0; pictureWidth = 300; pictureHeight = 300; ]
- %!
- %%Creator: Mathematica
- %%AspectRatio: 1
- MathPictureStart
- /Courier findfont 10 scalefont setfont
- % Scaling calculations
- 0.0238095 0.952381 0.0238095 0.952381 [
- [ 0 0 0 0 ]
- [ 1 1 0 0 ]
- ] MathScale
- % Start of Graphics
- 1 setlinecap
- 1 setlinejoin
- newpath
- %%Object: Graphics
- [ ] 0 setdash
- 0 setgray
- gsave
- grestore
- 0 0 moveto
- 1 0 lineto
- 1 1 lineto
- 0 1 lineto
- closepath
- clip
- newpath
- gsave
- gsave
- .5 setgray
- 0.02381 0.02381 moveto
- 0.02381 0.97619 lineto
- 0.97619 0.97619 lineto
- 0.97619 0.02381 lineto
- fill
- grestore
- gsave
- 1.0 setgray
- 0.11905 0.11905 moveto
- 0.11905 0.88095 lineto
- 0.88095 0.88095 lineto
- 0.88095 0.11905 lineto
- fill
- grestore
- [(Default Graphics Size)] 0.5 0.5 0 0 Mshowa
- grestore
- % End of Graphics
- MathPictureEnd
- ^*)
-