Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

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];




  • Prev by Date: Fontproblems
  • Next by Date: NDSolve Question
  • Previous by thread: Fontproblems
  • Next by thread: NDSolve Question