Diskusní fórum k návrhovému systému Formica

Kód: Vybrat vše

PROCEDURE OrthogonalLines;   far;
begin
  MarkElems ([Seg0Id, Seg90Id], EmptyQualifier);
end;

PROCEDURE HorizontalLines;   far;
begin
  MarkElems ([Seg0Id], EmptyQualifier);
end;

PROCEDURE VerticalLines;   far;
begin
  MarkElems ([Seg90Id], EmptyQualifier);
end;

PROCEDURE DiagonalLines;   far;
begin
  MarkElems ([Seg45Id, Seg135Id], EmptyQualifier);
end;

(...)

      New (ExecutablePtr_T, Init ('>Orthogonal',      H_SelOrthogonal, OrthogonalLines,
      New (ExecutablePtr_T, Init ('>Horizontal',      H_NOHELP, HorizontalLines,
      New (ExecutablePtr_T, Init ('>Vertical',        H_NOHELP, VerticalLines,
      New (ExecutablePtr_T, Init ('>Diagonal',        H_SelDiagonal, DiagonalLines,