Why my HTMLSave only save up to 51 chars wide?
- To: mathgroup at smc.vnet.net
- Subject: [mg19359] Why my HTMLSave only save up to 51 chars wide?
- From: tao lin <tlin at calvin.math.vt.edu>
- Date: Fri, 20 Aug 1999 23:09:37 -0400
- Organization: Virginia Tech
- Sender: owner-wri-mathgroup at wolfram.com
Hi, mathgroup:
I am very puzzled by the behaviors of the HTMLSave[ ] and Display[...,
..., "GIF"] on our Mathematica 3.0. They both generate .gif files on my
working directory. When I using FontSize->12, no mater how big my
windows are, HTMLSave[ ] saved up to 51 character wide, cut off about 4
char and wrap the rest to the next line. And Display[..., ..., "GIF"]
save only up to 47 chars wide but automatically wrap the rest to the
next line. Since I am trying to save the symbolic expressions I found
that some are been saved in several lines (if I am lucky) and some are
been cut to half (like only half of a matrix are left). If my cell had
the cell frame on then the right hand side vertical line and about 1/2
inch horizontal line on the lower right corner are also in the .gif
file. I can not find a option to adjust the gif file width. Is there any
remedy for this. These happened on the NT and Mac. Did I do something
wrong? I pasted the code in the end of this message.
Thanks in advance.
X. Jing
****************************************************************
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"Sin", "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}], "+",
RowBox[{
SuperscriptBox[
SubscriptBox["\[Integral]", "0"], "\[Infinity]"],
RowBox[{
RowBox[{"Cos", "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}], "+",
RowBox[{
SuperscriptBox[
SubscriptBox["\[Integral]", "0"], "\[Infinity]"],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[", "x", "]"}], "+", " ",
RowBox[{"Sin", "[", "x", "]"}]}], ")"}],
RowBox[{"\[DifferentialD]", "x"}], "\n", "\n", "\t\t",
SuperscriptBox["x", "5"]}]}], "+",
RowBox[{"5", " ",
SuperscriptBox["x", "4"], " ", "y"}], "+",
RowBox[{"10", " ",
SuperscriptBox["x", "3"], " ",
SuperscriptBox["y", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["x", "2"], " ",
SuperscriptBox["y", "3"]}], "+",
RowBox[{"5", " ", "x", " ",
SuperscriptBox["y", "4"]}], "+",
SuperscriptBox["y", "5"]}], "\n"}],
"123456789112345678921234567893123456789412345678951234567896"}],
"Input",
CellFrame->True,
Evaluatable->False,
CellFrameLabels->{{"User Input here : ", None}, {None, None}},
CellTags->"Input"]
Display["output.gif",(NotebookFind[InputNotebook[], "Input", All,
CellTags];
SelectionMove[SelectedNotebook[], All, Cell];
NotebookRead[SelectedNotebook[]]), "GIF"];
NotebookFind[InputNotebook[],
"Input",All,CellTags];
Expr = NotebookRead[InputNotebook[]];
InvisibleNbook=NotebookCreate[Visible->False,
WindowSize->{Automatic, Automatic},
Evaluatable->False];
NotebookWrite[InvisibleNbook,Expr, All];
HTMLSave["output.html", InvisibleNbook];
NotebookClose[InvisibleNbook];