WBL4014Formating.h

/*--------------------------
   Limits and Konstants
--------------------------*/

#define kAppleSysexCmdDeveloper 0x7F00      /* F0 11 7F xx ... F7 is available for non-Apple developers, where xx is unique to developer, and 00 and 7f are reserved */
#define kAppleSysexCmdWBL 0x7f23         /* F0 11 7F 23   F7 is available for WBL */

#define kArpGridCount 10      /* number of subgrids to pick from */

#define kMaxSequenceLength 64
#define kMaxSequenceKeys 12

#define kSlop 5


#define kDocMargin 10
#define kDocGap 4
#define kCellSize 6         /* interior size */

#define kToolSize (3*kCellSize + 2)      /* interior size */
#define kToolRows 4
#define kToolColumns 2
#define kToolPICTid 200               /* res id of first PICT */
#define kToolPaletteWidth (kToolColumns*(kToolSize+1) + 1)
#define kToolPaletteHeight (kToolRows*(kToolSize+1) + 1)
#define kToolPaletteLeft kDocMargin
#define kToolPaletteRight (kToolPaletteWidth+kToolPaletteLeft)
#define kToolPaletteTop kGridTop
#define kToolPaletteBottom (kToolPaletteHeight+kToolPaletteTop)


#define kGridHeight (kMaxSequenceKeys * (kCellSize+1) + 1)      /* counting borders */
#define kGridWidth (kMaxSequenceLength * (kCellSize+1) + 1)

#ifdef WBL
   #define kWBLHeight 80
   #define kGridEndTop (kWBLHeight+kDocMargin)
#else
   #define kGridEndTop kDocMargin
#endif



#define kGridEndBottom (kGridEndTop + kCellSize + 3)

#define kGridTop (kGridEndBottom+kDocGap)
#define kGridBottom (kGridTop + kGridHeight)

#define kTimerTop (kGridBottom + kDocGap)
#define kTimerBottom (kTimerTop + kTimerHeight)

#define kRateSliderTop (kTimerBottom+kDocMargin)
#define kRateSliderBottom (kRateSliderTop + kCellSize)

#define kInstrumentStatTop (kRateSliderBottom+kDocMargin)
#define kInstrumentStatBottom (kInstrumentStatTop+kInstrumentStatHeight)

#define kCBAreaTop (kInstrumentStatBottom+kDocMargin)
#define kCBAreaBottom (kCBAreaTop \
      + kCBRows*(kCheckBoxSize+kDocGap)+kDocGap)

#define kKDTop (kCBAreaBottom+kDocMargin)
#define kKDBottom (kKDTop + kKeyboardHeight)

#define kKnobLFOTop kRateSliderTop
#define kKnobLFOHeight 30




#define kRowFadeLeft (kToolPaletteRight+kDocMargin)
#define kRowFadeWidth kGridLetterWidth
#define kRowFadeRight (kRowFadeLeft+kRowFadeWidth)
#define kRowFadeTop kGridTop
#define kRowFadeBottom kGridBottom

#define kKnobLFOLeft kToolPaletteLeft
#define kKnobLFORight kRowFadeRight

#define kGridLeft (kRowFadeRight+kDocMargin)
#define kGridRight (kGridLeft + kGridWidth)

#define kTimerHeight (kCellSize-1)


#define kCheckBoxSize 14


#define kCBColumns 3
#define kCBRows ((kCheckBoxCount + kCBColumns - 1)/kCBColumns)

#define kCBAreaLeft kGridLeft
#define kCBAreaRight kGridRight
#define kCBAreaWidth (kCBAreaRight - kCBAreaLeft)



#define kCBColumnWidth (kGridWidth/kCBColumns)
#define kCBLeft(x) (kCBAreaLeft + (((x)/kCBRows)*kCBColumnWidth) + kDocGap)
#define kCBRight(x) (kCBLeft(x) + kCheckBoxSize)
#define kCBTop(x) (kCBAreaTop + kDocGap + ((x)%kCBRows) * (kCheckBoxSize + kDocGap))
#define kCBBottom(x) (kCBTop(x) + kCheckBoxSize)



#define kTextAllowance 13

#define kSelectCellHeight (kCellSize + 1)

#define kGridLetterHeight (kSelectCellHeight+2)
#define kGridLetterWidth (kArpGridCount * (kCellSize+1) + 1)      /* counting borders */
#define kGridLetterLeft kGridLeft
#define kGridLetterTop kInstrumentStatTop
#define kGridLetterRight (kGridLetterLeft + kGridLetterWidth)
#define kGridLetterBottom (kGridLetterTop + kGridLetterHeight)

#define kGridNumberHeight (kSelectCellHeight*2+3)
#define kGridNumberLeft kGridLetterLeft
#define kGridNumberRight kGridLetterRight
#define kGridNumberBottom kInstrumentStatBottom
#define kGridNumberTop (kGridNumberBottom - kGridNumberHeight)


#define kInstrumentStatHeight (2*kTextAllowance+kDocGap)

#define kInstrumentStatLeft (kGridLetterRight + kDocGap)
#define kInstrumentStatWidth (kGridWidth/2)
#define kInstrumentStatRight (kInstrumentStatLeft + kInstrumentStatWidth)

#define kInstrumentButtonWidth 130
#define kInstrumentButtonHeight kInstrumentStatHeight

#define kInstrumentButtonLeft ((kInstrumentStatRight + kGridRight - kInstrumentButtonWidth)/2)
#define kInstrumentButtonRight (kInstrumentButtonLeft + kInstrumentButtonWidth)
//#define kInstrumentButtonTop (kInstrumentStatBottom + kDocMargin)
#define kInstrumentButtonTop kInstrumentStatTop
#define kInstrumentButtonBottom (kInstrumentButtonTop + kInstrumentButtonHeight)


#define kKDOctaves 6
#define kKDLowNote 24
#define kKDWidth (kKDOctaves*kKeyboardOctaveWidth + 1)
#define kKDLeft ((kGridLeft + kGridRight - kKDWidth)/2)
#define kKDRight (kKDLeft + kKDWidth)

#define kPatternOverviewCellsize 3      /* interior size */
#define kPatternOverviewWidth (10*(kPatternOverviewCellsize+1)+1)
#define kPatternOverviewHeight (10*(kPatternOverviewCellsize+1)+1)
#define kPatternOverviewTop kKDBottom + 30
#define kPatternOverviewBottom (kPatternOverviewTop + kPatternOverviewHeight)
#define kPatternOverviewGap 12
#define kPatternOverviewLeft(x) \
      (((kWindowWidth - (kArpGridCount-1)*(kPatternOverviewWidth+kPatternOverviewGap) - kPatternOverviewWidth)/2) \
      + x * (kPatternOverviewWidth+kPatternOverviewGap))
#define kPatternOverviewRight(x) (kPatternOverviewLeft(x) + kPatternOverviewWidth)



#define kWindowWidth (kGridRight + kDocMargin)
#define kWindowHeight (kPatternOverviewBottom + kDocMargin)

PM.2/13/95 - 2:42.PM