Вывод текста боком и вверх ногами, в графическом режиме... Опции

[RathaR]

Проблема возникла там где не ждали....
Необходимо в графическом режиме вывести текст верх ногами, и боком, не сверху вниз, а именно боком... процедуры такой я в модуле Graph не нашол(может плохо искал?), но надобность существует, без этого никак не обойтись, ...
Выводить нужно лишь цыфры и знак $.
Подскажите как можна решить подобную проблему?

хотя насчет вверх ногами наверно можна и без этого....
Но боком всёрамно нужно...

Сообщение отредактировано: RathaR - 13.08.2009 15:40

[volvo]

а розбирать в том модуле одну процедуру, самому переписывать, - черт ногу сломит.

Ну во-первых, изобретение велосипеда здесь не надо... Мало ли чего нет в модуле Graph... Добавляешь функционал. Я бы включил прямо модуль f_grtext целиком, если бы столкнулся с такой проблемой. Все равно без написания своих модулей при программировании Монополии (да еще с прицелом на обучение) ты не обойдешься. Какая разница, подключать 2 модуля или 3?

Если хочется все-таки изобрести велосипед - вот тебе набросок. Обрати внимание: в программе есть массив, куда можно выделить память и сохранить образы перевернутых символов (через GetMem + GetImage). А потом, при необходимости вывести "перевернутую" строку, надо будет посимвольно делать PutImage, каждый раз высчитывая позицию очередного символа...

uses graph;
type
  angle = (_90, _180, _270);

var
  gd, gm, err: integer;
  s: string;

  images: array[1 .. 11, angle] of pointer;
  centerx, centery, width, height: integer;
  i, X, Y, dx, dy: integer;

begin
  initgraph(gd, gm, '');
  err := graphresult;
  if err <> grok then begin
    writeln('error: ' + grapherrormsg(err));
    readln; halt(100);
  end;

  s := '0123456789$';

  centerx := getmaxx div 2; centery := getmaxy div 2;
  width := textwidth('W') + 4; height := textheight('W') + 4;

  settextjustify(centertext, centertext);
  for i := 1 to length(s) do begin
    cleardevice;
    outtextxy(getmaxx div 2, getmaxy div 2, s[i]);

    { 1: 90 degrees clockwise }
    dy := 0;
    for x := centerx - (width div 2) to centerx + (width div 2) do begin
      dx := 0;
      for y := centery + (height div 2) downto centery - (height div 2) do
      begin
        putpixel(25 + dx, 25 + dy, getpixel(x, y)); inc(dx);
      end;
      inc(dy);
    end;

    { 2: 180 degrees }
    dx := 0;
    for x := centerx + (width div 2) downto centerx - (width div 2) do begin
      dy := 0;
      for y := centery + (height div 2) downto centery - (height div 2) do
      begin
        putpixel(50 + dx, 25 + dy, getpixel(x, y)); inc(dy);
      end;
      inc(dx);
    end;

    { 3: 270 degrees clockwise }
    dy := 0;
    for x := centerx + (width div 2) downto centerx - (width div 2) do begin
      dx := 0;
      for y := centery - (height div 2) to centery + (height div 2) do
      begin
        putpixel(75 + dx, 25 + dy, getpixel(x, y)); inc(dx);
      end;
      inc(dy);
    end;

    readln;
  end;

  closegraph;
end.

А теперь скажи, оно тебе надо? Ты опять зацикливаешься на мелочах. У Фаронова уже есть решение, что тебе мешает его использовать? Когда перейдешь на Дельфи, то VCL тоже будешь переписывать сам, чтоб чужими наработками не пользоваться? Глупо. Так ты свою Монополию будешь годами писать. Ну, в принципе, дело твое... Хочешь - линиями рисуй, хочешь вообще поточечно...