WBL4014Formatting.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 8
#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 kBPMLeft (kGridRight - 45)
#define kBPMRight kGridRight
#define kBPMBottom (kRateSliderBottom + 3)
#define kBPMTop (kRateSliderBottom - 9)

#define kRateSliderLeft kGridLeft
#define kRateSliderRight kBPMLeft-kDocMargin
#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 + kKeyHeight)

#define kKnobLFOTop kTimerTop
#define kKnobLFOHeight 30
#define kKnobLFOCount 4

#define kKnobLFOLowest (kKnobLFOTop+kKnobLFOCount*(kKnobLFOHeight+kDocMargin)-kDocMargin)

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

#define kVolumeSliderLeft (kRowFadeRight + kDocMargin)
#define kVolumeSliderRight (kVolumeSliderLeft + kCellSize)
#define kVolumeSliderTop kGridTop
#define kVolumeSliderBottom kGridBottom

#define kKnobLFOLeft kToolPaletteLeft
#define kKnobLFORight kVolumeSliderRight

#define kGridLeft (kVolumeSliderRight+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*7+1)*kKeyWidth + 1)
#define kKDLeft ((kGridLeft + kGridRight - kKDWidth)/2)
#define kKDRight (kKDLeft + kKDWidth)

#if 0

#else

#define kBottomAreaDivider (kKnobLFOLowest + kDocMargin)

#define kPatternOverviewCellsize 4      /* interior size */
#define kPatternOverviewHGap 9
#define kPatternOverviewVGap 18

#define kPatternOverviewWidth (10*(kPatternOverviewCellsize+1)+1)
#define kPatternOverviewHeight (10*(kPatternOverviewCellsize+1)+1)
#define kPatternOverviewTop(y) (kBottomAreaDivider + kDocMargin + kPatternOverviewVGap \
      + ((y)/5)*(kPatternOverviewVGap+kPatternOverviewHeight+20))
#define kPatternOverviewBottom(y) (kPatternOverviewTop(y) + kPatternOverviewHeight)

#define kPatternOverviewLeft(x) (kDocMargin \
      + ((x) % 5)*(kPatternOverviewHGap+kPatternOverviewHeight))
#define kPatternOverviewRight(x) (kPatternOverviewLeft(x) + kPatternOverviewWidth)

#endif

#define kMSAreaLeft (kPatternOverviewRight(kArpGridCount-1) + kDocMargin)
#define kMSAreaRight (kWindowWidth - kDocMargin)
#define kMSAreaTop (kBottomAreaDivider + kDocMargin)
#define kMSAreaBottom kPatternOverviewBottom(kArpGridCount-1)

#define kMSAreaTimerBottom kMSAreaBottom
#define kMSAreaTimerTop (kMSAreaBottom-kTimerHeight)
#define kMSAreaTimerLeft kMSAreaLeft
#define kMSAreaTimerRight kMSAreaRight

#define kMSGap 1

#define kMSRibbonHeight 11
#define kMSRibbonTop(x) (kMSAreaTop + (x)*(kMSRibbonHeight + kMSGap))
#define kMSRibbonBottom(x) (kMSRibbonTop(x) + kMSRibbonHeight)
#define kMSRibbonLeft kMSAreaLeft
#define kMSRibbonRight kMSAreaRight

#define kWindowWidth (kGridRight + kDocMargin)
#define kWindowHeight (kPatternOverviewBottom(kArpGridCount-1) + kDocMargin)

PM.5/3/95 - 12:10.AM