# resize Version. 1.02 (Sep. 23, 1998)
# Written by Hisao Kawaura
#
### description: current frame全体を指定された倍率で、拡大/縮小
#                テキストサイズや、線の太さなども同一の倍率で変化。
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。


if (edittext(1.0, "input size"))
{
  $graph->frame[$_CUR]->x2 = $_RET * ($graph->frame[$_CUR]->x2  - $graph->frame[$_CUR]->x1) + $graph->frame[$_CUR]->x1;
  $graph->frame[$_CUR]->y2 = $_RET * ($graph->frame[$_CUR]->y2  - $graph->frame[$_CUR]->y1) + $graph->frame[$_CUR]->y1;
  $graph->frame[$_CUR]->framelinewidth *= $_RET;

  for($i = 0; $i < $graph->frame[$_CUR]->length('axis'); $i++)
  {
    $graph->frame[$_CUR]->axis[$i]->x *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->y *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->length *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->baselinewidth *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->tickwidth *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->ticklength *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->majorticklinewidth *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->minorticklinewidth *= $_RET;
    $graph->frame[$_CUR]->axis[$i]->fontsize *= $_RET;
  }
  $graph->frame[$_CUR]->arrangeaxes();

  for($i = 0; $i < $graph->frame[$_CUR]->length('data'); $i++)
  {
    $graph->frame[$_CUR]->data[$i]->linewidth *= $_RET;
    $graph->frame[$_CUR]->data[$i]->markeredgewidth *= $_RET;
    $graph->frame[$_CUR]->data[$i]->markersize *= $_RET;
  }

  for ($i = 0; $i < $graph->frame[$_CUR]->length('parts'); $i++)
  {
    $graph->frame[$_CUR]->parts[$i]->fontsize *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->linewidth *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->x1 *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->y1 *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->x2 *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->y2 *= $_RET;
    $graph->frame[$_CUR]->parts[$i]->arrowlength *= $_RET;

    for ($j = 0; $j < $graph->frame[$_CUR]->parts[$i]->length('nodes'); $j++)
    {
      $graph->frame[$_CUR]->parts[$i]->node_x[$j] *= $_RET;
      $graph->frame[$_CUR]->parts[$i]->node_y[$j] *= $_RET;
    }
  }
}

exit(0);