TGLEngine.Bar

public procedure TGLEngine.Bar(

  x1: single;

  y1: single;

  x2: single;

  y2: single;

  x3: single;

  y3: single;

  x4: single;

  y4: single

); overload;

procedure TGLEngine.Bar(

  x1: single;

  y1: single;

  x2: single;

  y2: single

); overload;

procedure TGLEngine.Bar(

  x: single;

  y: single;

  w: single;

  h: single;

  angle: single

); overload;