[futurebasic] Re: color depth

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 1998 : Group Archive : Group : All Groups

From: Charlie Dickman <charlied@...>
Date: Tue, 31 Mar 1998 19:11:47 -0500
>I'm looking for a way to change color depth from within my application, but
>find little on the subject in the manuals.  Some help, please?
>
>-Warren

LOCAL FN setDepth(gDevice&, depth%)
  `     clr.w   -(sp)
  `     move.l  ^gDevice&,-(sp)
  `     move.w  ^depth%,-(sp)
  `     clr.l   -(sp)
  `     dc.w    $203C,$000A,$0013,$AAA2
  `     move.w  (sp)+,d0
  `     ext.l   d0
END FN

LONG IF SYSTEM(_aplFlag)                          'this won't work
interactively
  LONG IF SYSTEM(_macPlus) = _false               'plus has no gDevices
    gDevice& = FN GETMAINDEVICE
    LONG IF gDevice&
      OSErr = FN setDepth(gDevice&,8)
    END IF
  END IF
END IF



Charlie Dickman
charlied@...