Автор Идем саша, идем задал вопрос в разделе Другие языки и технологии
как сделать штриховку в паскаль abc, желательно текстом программы и получил лучший ответ
Ответ от Bartosch[гуру]
procedure SetBrushStyle(bs: BrushStyleType);
Устанавливает стиль текущей кисти.
procedure SetBrushHatch(bh: HatchStyle);
Устанавливает штриховку текущей кисти.
Прочитать!! !
Help (F!) -- Раздел: Стандартные модули -> Модуль GraphABC -> GraphABC Стили кисти
Help (F!) -- Раздел: Стандартные модули -> Модуль GraphABC -> GraphABC Стили штриховки кисти.
Например вот так.. .
SetBrushStyle(bsHatch);
SetBrushHatch(bhDashedDownwardDiagonal);
pie(130 + i, 420, 120, 0, 180); //корпус
pie(30 + i, 405, 50, 0, 180); //заднаяя арка
pie(230 + i, 405, 50, 0, 180); //передняя арка
Два стиля одновременно использовать нельзя. Можно их чередовать: когда нужно изменить стиль нужно прописать SetBrushStyle(тот, который нужно); Снова изменить - снова прописать SetBrushStyle(тот, который нужен сейчас); Вот и все.
как в паскале ABC нарисовать круг?
uses graphabc;
var a,b,c,i,count:integer;
begin
floodfill(1, 1, clblue);
подробнее...