If Höhe = 0 Then
    If Karte Then
        oPDF.rect X, y + 1, Breite, Höhe
    Else
        oPDF.rect X * 0.24253731, y * 0.24253731 + 1, Breite * 0.24253731, 0
    End If
Else
    If Karte Then
        oPDF.rect X, y, Breite, Höhe
    Else
        oPDF.rect X * 0.24253731, y * 0.24253731, Breite * 0.24253731, Höhe * _
          0.24253731
    End If
End If
 
If Stroke > 0 Then
  oPDF.setgray_stroke Stroke
End If
If Fill > 0 Then
  oPDF.setgray_fill Fill
End If
 
If Fill > 0 Then
  oPDF.closepath_fill_stroke
  oPDF.setgray_stroke 0
  oPDF.setgray_fill 0
ElseIf Stroke > 0 Then
  oPDF.closepath_stroke
  oPDF.setgray_stroke 0
Else
  oPDF.closepath
End If
 
End Sub