71      where 0 is completely transparent and 16rFFFF is completely opaque"

    71      where 0 is completely transparent and 16rFFFF is completely opaque"

    72 

    72 

    73     ^ alpha * 16rFFFF // 255

    73     ^ alpha * 16rFFFF // 255

    74 !

    74 !

    75 

    75 

    77 setAlphaByte:aByteValuedInteger

    76 setAlphaByte:aByteValuedInteger

    78     "set the alpha value (0..255),

    77     "set the alpha value (0..255),

    79      where 0 is completely transparent and 255 is completely opaque"

    78      where 0 is completely transparent and 255 is completely opaque"

    80 

    79 

    81     alpha := aByteValuedInteger

    80     alpha := aByteValuedInteger