# Pen

The Pen structure contains functions and structures to create pens.

    structure Pen :
      sig
        type HPEN
        datatype
          PenStyle =
              PS_ALTERNATE
            | PS_COSMETIC
            | PS_DASH
            | PS_DASHDOT
            | PS_DASHDOTDOT
            | PS_DOT
            | PS_ENDCAP_FLAT
            | PS_ENDCAP_ROUND
            | PS_ENDCAP_SQUARE
            | PS_GEOMETRIC
            | PS_INSIDEFRAME
            | PS_JOIN_BEVEL
            | PS_JOIN_MITER
            | PS_JOIN_ROUND
            | PS_NULL
            | PS_SOLID
            | PS_USERSTYLE

        type COLORREF = Color.COLORREF
        type LOGBRUSH = Brush.LOGBRUSH
        type LOGPEN = PenStyle * int option * COLORREF

        val CreatePen : PenStyle list * int * COLORREF -> HPEN
        val CreatePenIndirect : LOGPEN -> HPEN
        val ExtCreatePen : PenStyle list * int * LOGBRUSH * (int * int) list -> HPEN
      end