Tim Borland
Library to control serial LCDs from 4D systems based on their Goldelox processor. Ported from Adruino library but not fully tested.
This library facilitates serial communication with LCDs from 4D Systems based on their Goldelox processor. It was ported form an Arduino library published by 4D systems.
Documentation on the API can be found at: http://www.4dsystems.com.au/product/1/4/4D_Intelligent_Display_Modules/uLCD_144_G2/
Revision 0:6987c004e123, committed 2013-10-05
- Comitter:
- Sailing_Nut
- Date:
- Sat Oct 05 02:40:39 2013 +0000
- Commit message:
- Initial version of 4D Systems Goldelox LCD library
Changed in this revision
diff -r 000000000000 -r 6987c004e123 Goldelox_Const4D.h --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Goldelox_Const4D.h Sat Oct 05 02:40:39 2013 +0000 @@ -0,0 +1,654 @@ +// undef windows definitions that are also 4DGL definitions +#ifdef TRANSPARENT + #undef TRANSPARENT +#endif +#ifdef OPAQUE + #undef OPAQUE +#endif +#ifdef BAUD_110 + #undef BAUD_110 +#endif +#ifdef BAUD_300 + #undef BAUD_300 +#endif +#ifdef BAUD_600 + #undef BAUD_600 +#endif +#ifdef BAUD_1200 + #undef BAUD_1200 +#endif +#ifdef BAUD_2400 + #undef BAUD_2400 +#endif +#ifdef BAUD_4800 + #undef BAUD_4800 +#endif +#ifdef BAUD_9600 + #undef BAUD_9600 +#endif +#ifdef BAUD_14400 + #undef BAUD_14400 +#endif +#ifdef BAUD_19200 + #undef BAUD_19200 +#endif +#ifdef BAUD_38400 + #undef BAUD_38400 +#endif +#ifdef BAUD_57600 + #undef BAUD_57600 +#endif +#ifdef BAUD_115200 + #undef BAUD_115200 +#endif + +#ifdef TEXT + #undef TEXT +#endif + +/* + //---------------------------------- + // 4DGL - GOLDELOX-GFX2 PLATFORM + //---------------------------------- + + +*/ +/* + System Primitives for 4DGL GOLDELOX GFX2 Platform +*/ + + +//==============================================// +// initialization table additional commands // +//==============================================// +#define INIT_TABLE_END 0xFF // end of initialization table marker +#define INIT_TABLE_DELAY 0xFE // insert delay value +#define INIT_TABLE_16BIT_INDEX_REG_MODE 0xFD // 16 bit display index register +#define INIT_TABLE_8BIT_INDEX_REG_MODE 0xFC // 8 bit display index register +#define INIT_TABLE_16BIT_DUMMY_READ 0xFB // 16 bit display dummy read +#define INIT_TABLE_PORTRAIT 0xFA // initial screen mode requirement +#define INIT_TABLE_LANDSCAPE 0xF9 +#define INIT_TABLE_PORTRAIT_R 0xF8 +#define INIT_TABLE_LANDSCAPE_R 0xF7 + +//==============================================// +// putch, putstr, putnum and print redirection // +// constants // +//==============================================// +#define APPEND 0x0000 +#define COM0 0xFF04 +#define TEXT 0xFF08 +#define MDA 0xFF10 + +//==============================================// +// general number formatting constants // +// for 'print' and 'putnum' // +//==============================================// + // string processing constants +#define STR 0x0080 // display as string +#define CHR 0x0081 // display as single char + + + + // binary, no leading zeroes +#define BIN4d 0x0002 // binary, 16 digits, no leading zeroes +#define BIN1 0x0102 // binary, 1 digit, no leading zeroes +#define BIN2 0x0202 // binary, 2 digits, no leading zeroes +#define BIN3 0x0302 // binary, 3 digits, no leading zeroes +#define BIN4 0x0402 // binary, 4 digits, no leading zeroes +#define BIN5 0x0502 // binary, 5 digits, no leading zeroes +#define BIN6 0x0602 // binary, 6 digits, no leading zeroes +#define BIN7 0x0702 // binary, 7 digits, no leading zeroes +#define BIN8 0x0802 // binary, 8 digits, no leading zeroes +#define BIN9 0x0902 // binary, 9 digits, no leading zeroes +#define BIN10 0x0A02 // binary, 10 digits, no leading zeroes +#define BIN11 0x0B02 // binary, 11 digits, no leading zeroes +#define BIN12 0x0C02 // binary, 12 digits, no leading zeroes +#define BIN13 0x0D02 // binary, 13 digits, no leading zeroes +#define BIN14 0x0E02 // binary, 14 digits, no leading zeroes +#define BIN15 0x0F02 // binary, 15 digits, no leading zeroes +#define BIN16 0x0002 // binary, 16 digits, no leading zeroes + + // binary, with leading zeroes +#define BINZ 0x1002 // binary, 16 digits, leading zeroes +#define BIN1Z 0x1102 // binary, 1 digit, leading zeroes +#define BIN2Z 0x1202 // binary, 2 digits, leading zeroes +#define BIN3Z 0x1302 // binary, 3 digits, leading zeroes +#define BIN4Z 0x1402 // binary, 4 digits, leading zeroes +#define BIN5Z 0x1502 // binary, 5 digits, leading zeroes +#define BIN6Z 0x1602 // binary, 6 digits, leading zeroes +#define BIN7Z 0x1702 // binary, 7 digits, leading zeroes +#define BIN8Z 0x1802 // binary, 8 digits, leading zeroes +#define BIN9Z 0x1902 // binary, 9 digits, leading zeroes +#define BIN10Z 0x1A02 // binary, 10 digits, leading zeroes +#define BIN11Z 0x1B02 // binary, 11 digits, leading zeroes +#define BIN12Z 0x1C02 // binary, 12 digits, leading zeroes +#define BIN13Z 0x1D02 // binary, 13 digits, leading zeroes +#define BIN14Z 0x1E02 // binary, 14 digits, leading zeroes +#define BIN15Z 0x1F02 // binary, 15 digits, leading zeroes +#define BIN16Z 0x1002 // binary, 16 digits, leading zeroes + + // binary, with leading blanked +#define BINZB 0x2002 // binary, 16 digits, leading blanks +#define BIN1ZB 0x2102 // binary, 1 digit, leading blanks +#define BIN2ZB 0x2202 // binary, 2 digits, leading blanks +#define BIN3ZB 0x2302 // binary, 3 digits, leading blanks +#define BIN4ZB 0x2402 // binary, 4 digits, leading blanks +#define BIN5ZB 0x2502 // binary, 5 digits, leading blanks +#define BIN6ZB 0x2602 // binary, 6 digits, leading blanks +#define BIN7ZB 0x2702 // binary, 7 digits, leading blanks +#define BIN8ZB 0x2802 // binary, 8 digits, leading blanks +#define BIN9ZB 0x2902 // binary, 9 digits, leading blanks +#define BIN10ZB 0x2A02 // binary, 10 digits, leading blanks +#define BIN11ZB 0x2B02 // binary, 11 digits, leading blanks +#define BIN12ZB 0x2C02 // binary, 12 digits, leading blanks +#define BIN13ZB 0x2D02 // binary, 13 digits, leading blanks +#define BIN14ZB 0x2E02 // binary, 14 digits, leading blanks +#define BIN15ZB 0x2F02 // binary, 15 digits, leading blanks +#define BIN16ZB 0x2002 // binary, 16 digits, leading blanks + + // signed decimal, no leading zeroes +#define DEC4d 0x050A // signed decimal, 5 digits, no leading zeroes +#define DEC1 0x010A // signed decimal, 1 digit, no leading zeroes +#define DEC2 0x020A // signed decimal, 2 digits, no leading zeroes +#define DEC3 0x030A // signed decimal, 3 digits, no leading zeroes +#define DEC4 0x040A // signed decimal, 4 digits, no leading zeroes +#define DEC5 0x050A // signed decimal, 5 digits, no leading zeroes + + // signed decimal, with leading zeroes +#define DECZ 0x150A // signed decimal, 5 digits, leading zeroes +#define DEC1Z 0x110A // signed decimal, 1 digit, leading zeroes +#define DEC2Z 0x120A // signed decimal, 2 digits, leading zeroes +#define DEC3Z 0x130A // signed decimal, 3 digits, leading zeroes +#define DEC4Z 0x140A // signed decimal, 4 digits, leading zeroes +#define DEC5Z 0x150A // signed decimal, 5 digits, leading zeroes + + // signed decimal, leading zeroes blanked +#define DECZB 0x250A // signed decimal, 5 digits, leading blanks +#define DEC1ZB 0x210A // signed decimal, 1 digit, leading blanks +#define DEC2ZB 0x220A // signed decimal, 2 digits, leading blanks +#define DEC3ZB 0x230A // signed decimal, 3 digits, leading blanks +#define DEC4ZB 0x240A // signed decimal, 4 digits, leading blanks +#define DEC5ZB 0x250A // signed decimal, 5 digits, leading blanks + + // unsigned decimal, no leading zeroes +#define UDEC 0x450A // unsigned decimal, 5 digits, no leading zeroes +#define UDEC1 0x410A // unsigned decimal, 1 digit, no leading zeroes +#define UDEC2 0x420A // unsigned decimal, 2 digits, no leading zeroes +#define UDEC3 0x430A // unsigned decimal, 3 digits, no leading zeroes +#define UDEC4 0x440A // unsigned decimal, 4 digits, no leading zeroes +#define UDEC5 0x450A // unsigned decimal, 5 digits, no leading zeroes + + // unsigned decimal, with leading zero's +#define UDECZ 0x550A // unsigned decimal, 5 digits, leading zeroes +#define UDEC1Z 0x510A // unsigned decimal, 1 digit, leading zeroes +#define UDEC2Z 0x520A // unsigned decimal, 2 digits, leading zeroes +#define UDEC3Z 0x530A // unsigned decimal, 3 digits, leading zeroes +#define UDEC4Z 0x540A // unsigned decimal, 4 digits, leading zeroes +#define UDEC5Z 0x550A // unsigned decimal, 5 digits, leading zeroes + + // unsigned decimal, leading zeroes blanked +#define UDECZB 0x650A // unsigned decimal, 5 digits, leading blanks +#define UDEC1ZB 0x610A // unsigned decimal, 1 digit, leading blanks +#define UDEC2ZB 0x620A // unsigned decimal, 2 digits, leading blanks +#define UDEC3ZB 0x630A // unsigned decimal, 3 digits, leading blanks +#define UDEC4ZB 0x640A // unsigned decimal, 4 digits, leading blanks +#define UDEC5ZB 0x650A // unsigned decimal, 5 digits, leading blanks + + // hex, with leading zero's +#define HEX4d 0x1410 // hex, 4 digits, leading zeroes +#define HEX1 0x1110 // hex, 1 digit, leading zeroes +#define HEX2 0x1210 // hex, 2 digits, leading zeroes +#define HEX3 0x1310 // hex, 3 digits, leading zeroes +#define HEX4 0x1410 // hex, 4 digits, leading zeroes + + // hex, no leading zero's +#define HEXZ 0x0410 // hex, 4 digits, no leading zeroes +#define HEX1Z 0x0110 // hex, 1 digit, no leading zeroes +#define HEX2Z 0x0210 // hex, 2 digits, no leading zeroes +#define HEX3Z 0x0310 // hex, 3 digits, no leading zeroes +#define HEX4Z 0x0410 // hex, 4 digits, no leading zeroes + + // hex, leading zero's blanked +#define HEXZB 0x2410 // hex, 4 digits, leading blanks +#define HEX1ZB 0x2110 // hex, 1 digit, leading blanks +#define HEX2ZB 0x2210 // hex, 2 digits, leading blanks +#define HEX3ZB 0x2310 // hex, 3 digits, leading blanks +#define HEX4ZB 0x2410 // hex, 4 digits, leading blanks + +// baud divisor rates +#define MIDI 95 +#define BAUD_110 27271 +#define BAUD_300 9999 +#define BAUD_600 4999 +#define BAUD_1200 2499 +#define BAUD_2400 1249 +#define BAUD_4800 624 +#define BAUD_9600 312 +#define BAUD_14400 207 +#define BAUD_19200 155 +#define BAUD_31250 95 +#define BAUD_38400 77 +#define BAUD_56000 53 +#define BAUD_57600 51 +#define BAUD_115200 25 +#define BAUD_128000 22 +#define BAUD_256000 11 +#define BAUD_300000 10 +#define BAUD_375000 8 +#define BAUD_500000 6 +#define BAUD_600000 4 + + +//==============================================// +// generic constants // +//==============================================// +#define ENABLE 1 +#define DISABLE 0 +#define ON 1 +#define OFF 0 +#define TRUE 1 +#define FALSE 0 + +//==============================================// +// joystick() function return constants // +//==============================================// +#define RELEASED 0 +#define UP 1 +#define LEFT 2 +#define DOWN 3 +#define RIGHT 4 +#define FIRE 5 + +//==============================================// +// spi_Init(...) mode arguments // +//==============================================// +#define SPI_SLOW 2 // 750khz +#define SPI_MED 1 // 3mhz +#define SPI_FAST 0 // 12mhz +#define RXMODE_0 0 // receive sample pos +#define RXMODE_1 1 // receive sample pos +#define CKMODE_0 0 // transmit sample pos +#define CKMODE_1 1 // transmit sample pos +#define CKMODE_2 2 // transmit sample pos +#define CKMODE_3 3 // transmit sample pos + +//==============================================// +//Pin related constants // +//==============================================// +#define IO1 0 +#define IO2 1 +#define LO 0 +#define HI 1 +#define OUTPUT4d 0 +#define INPUT4d 1 +#define ANALOGUE_8 2 +#define ANALOGUE_10 3 +#define ONEWIRE 4 +#define SOUND 5 + +//==============================================// +//gfx_Set() related constants // +//==============================================// +#define PEN_SIZE 0 // not necessary to use (legacy mode) +#define BACKGROUND_COLOUR 1 // screen background colour +#define OBJECT_COLOUR 2 // line / circle / rectangle generic colour +#define CLIPPING 3 // clipping ON / OFF +#define TRANSPARENT_COLOUR 4 // (only on displays with specific hware feature) +#define TRANSPARENCY 5 // 0 = OFF, 1 = ON (only on displays with specific hware feature) +#define FRAME_DELAY 6 // legacy mode, see pokeB(IMAGE_DELAY, n); +#define SCREEN_MODE 7 // LANDSCAPE, LANDSCAPE_R, PORTRAIT, PORTRAIT_R +#define OUTLINE_COLOUR 8 // if not BLACK (0) , used for outline around circles and rectanglse +#define CONTRAST 9 // set contrast ratuio in uOLED modules +#define LINE_PATTERN 10 // used for patterned lines, 16bit value (0 = no pattern) +#define COLOUR_MODE 11 // select 8 or 16 bit colour mode + + +#define SOLID 0 // PEN_SIZE argument (gfx_Set legacy mode) +#define OUTLINE 1 // PEN_SIZE argument (gfx_Set legacy mode) + +#define LANDSCAPE 0 // SCREEN_MODE (north) +#define LANDSCAPE_R 1 // SCREEN_MODE (south) +#define PORTRAIT 2 // SCREEN_MODE (west) +#define PORTRAIT_R 3 // SCREEN_MODE (east) + +#define COLOUR8 1 // COLOUR_MODE 8 bit colour mode +#define COLOUR16 0 // COLOUR_MODE 16 bit colour mode + +//==============================================// +//txt_Set() related constants // +//==============================================// +#define TEXT_COLOUR 0 // text foreground colr +#define TEXT_HIGHLIGHT 1 // text background colr +#define FONT_ID 2 // default 0, else points to data statement font +#define TEXT_WIDTH 3 // text width multiplier +#define TEXT_HEIGHT 4 // text height multiplier +#define TEXT_XGAP 5 // horizontal text gap (default 1) +#define TEXT_YGAP 6 // vertical text gap (default 1) +#define TEXT_PRINTDELAY 7 // for 'teletype' like effect when pronting +#define TEXT_OPACITY 8 // text mode flag, TRANSPARENT or OPAQUE +#define TEXT_BOLD 9 // embolden text (auto reset) - legacy +#define TEXT_ITALIC 10 // italicize text (auto reset) +#define TEXT_INVERSE 11 // invert text (auto reset) +#define TEXT_UNDERLINED 12 // underline text (auto reset) +#define TEXT_ATTRIBUTES 13 // controls BOLD/ITALIC/INVERSE/UNDERLINE simultaneously + +//==============================================// +//txt_Set() related arguments // +//==============================================// +#define SYSTEM 0 // internal system font +#define MEDIA 7 // font is at uSD_add + + +#define TRANSPARENT 0 // TEXT_OPACITY transparent text +#define OPAQUE 1 // TEXT_OPACITY opaque text + +#define BOLD 16 // TEXT_ATTRIBUTES bold text (auto reset) +#define ITALIC 32 // TEXT_ATTRIBUTES italic text (auto reset) +#define INVERSE 64 // TEXT_ATTRIBUTES inverse text (auto reset) +#define UNDERLINED 128 // TEXT_ATTRIBUTES underlined text (auto reset) + + +//==============================================// +// Memory MAP // +// system BYTE variables accesible with // +// peekB and pokeB // +//==============================================// +#define VX1 128 // display hardware x1 pos +#define VY1 129 // display hardware y1 pos +#define VX2 130 // display hardware x2 pos +#define VY2 131 // display hardware y2 pos +#define SYS_X_MAX 132 // display hardware X res-1 +#define SYS_Y_MAX 133 // display hardware Y res-1 +#define WRITE_GRAM_REG 134 // device register address for write operation +#define READ_GRAM_REG 135 // device register address for write operation +#define IMAGE_WIDTH 136 // width of currently loaded image +#define IMAGE_HEIGHT 137 // height of currently loaded image +#define IMAGE_DELAY 138 // 0 if image, else inter frame delay for movie +#define IMAGE_MODE 139 // bit 4 determines colr mode, other bits reserved +#define CLIP_LEFT_POS 140 // left clipping point (set with gfx_ClipWindow(...) +#define CLIP_TOP_POS 141 // top clipping point (set with gfx_ClipWindow(...) +#define CLIP_RIGHT_POS 142 // right clipping point (set with gfx_ClipWindow(...) +#define CLIP_BOTTOM_POS 143 // bottom clipping point (set with gfx_ClipWindow(...) +#define CLIP_LEFT 144 // current clip value (reads as full size if clipping turned off) +#define CLIP_TOP 145 // current clip value (reads as full size if clipping turned off) +#define CLIP_RIGHT 146 // current clip value (reads as full size if clipping turned off) +#define CLIP_BOTTOM 147 // current clip value (reads full size if clipping turned off) +#define FONT_TYPE 148 // font type, 0 = system font, else pointer to user or media font +#define FONT_MAX 149 // number of chars in current font +#define FONT_OFFSET 150 // starting offset (normally 0x20) +#define FONT_WIDTH 151 // current font width +#define FONT_HEIGHT 152 // current font height +#define TEXT_XMAG 153 // text width magnification +#define TEXT_YMAG 154 // text height magnification +#define TEXT_MARGIN 155 // left column for carriage return +#define TEXT_DELAY 156 // print delay +#define TEXT_X_GAP 157 // text horizontal gap size +#define TEXT_Y_GAP 158 // text vertical gap size +#define GFX_XMAX 159 // current display width-1 determined by portrait / landscape swapping +#define GFX_YMAX 160 // current display width-1 determined by portrait / landscape swapping +#define GFX_SCREENMODE 161 // holds current screen mode + // + + +//==============================================// +// system WORD variables accesible with peekW // +// and pokeW or pointer access // +//==============================================// +#define VM_OVERFLOW 83 // 16bit overflow of 32bit results (see OVF() funtion) +#define VM_COLOUR 84 // general working var for colour +#define VM_RETVAL 85 // last value returned from any function +#define GFX_BACK_COLOUR 86 // screen background colour +#define GFX_OBJECT_COLOUR 87 // graphics object colour +#define GFX_TEXT_COLOUR 88 // text forground colour +#define GFX_TEXT_BGCOLOUR 89 // text background colour +#define GFX_OUTLINE_COLOUR 90 // screen background colour +#define GFX_LINE_PATTERN 91 // line draw 16bit linear pattern +#define IMG_PIXEL_COUNT 92 // pixel count of current object (may be altered by clipping) +#define IMG_FRAME_COUNT 93 // count of frames in currently loaded video +#define MEDIA_HEAD 94 // media sector head position +#define SYS_OSTREAM 95 // system output redirection +#define GFX_LEFT 96 // virtual left point for current image +#define GFX_TOP 97 // virtual top point for current image +#define GFX_RIGHT 98 // virtual right point for current image +#define GFX_BOTTOM 99 // virtual bottom point for current image +#define GFX_X1 100 // clipped left point for current image +#define GFX_Y1 101 // clipped top point for current image +#define GFX_X2 102 // clipped right point for current image +#define GFX_Y2 103 // clipped bottom point for current image +#define GFX_X_ORG 104 // current Y origin +#define GFX_Y_ORG 105 // current Y origin +#define RANDOM_LO 106 // random number generator LO word +#define RANDOM_HI 107 // random number generator LO word +#define MEDIA_ADDR_LO 108 // uSD/FLASH absolute byte address LO +#define MEDIA_ADDR_HI 109 // uSD/FLASH absolute byte address HI +#define SECTOR_ADDR_LO 110 // uSD/FLASH sector address LO +#define SECTOR_ADDR_HI 111 // uSD/FLASH sector address HI +#define SYSTEM_TIMER_LO 112 // 1msec 32 bit free running timer LO word +#define SYSTEM_TIMER_HI 113 // 1msec 32 bit free running timer HI word +#define TIMER04d 114 // user timer0 +#define TIMER14d 115 // user timer1 +#define TIMER24d 116 // user timer2 +#define TIMER34d 117 // user timer3 (10msec resolution) +#define INCVAL 118 // incrementer size +#define TEMP_MEDIA_ADDRLO 119 // temp stroage while printing font from media storage +#define TEMP_MEDIA_ADDRHI 120 // temp stroage while printing font from media storage +#define GFX_TRANSPARENTCOLOUR 121 // image transparency colour +#define GFX_STRINGMETRIX 122 // low byte = string width, hi byte = string height +#define GFX_TEMPSTORE1 123 // low byte = last char printed, hi byte = frame timer over-ride + // reserved 124 // internal use + // reserved 125 // internal use +#define SYS_FLAGS1 126 // system control flags word 1 +#define SYS_FLAGS2 127 // system control flags word 2 + +//==============================================// +// bit constants for SYS_FLAGS1 // +//==============================================// +#define _STREAMLOCK 0x0001 // Used internally +#define _PENSIZE 0x0002 // object, 0=solid,1=outline +#define _OPACITY 0x0004 // text, 0=transparent,1=opaque +#define _OUTLINED 0x0008 // box/circle outline 0=off,1=on +#define _BOLD 0x0010 // text, 0=normal,1=bold (auto reset) +#define _ITALIC 0x0020 // Text, 0=normal,1=italic (auto reset) +#define _INVERSE 0x0040 // Text, 0=normal,1=inverse (auto reset) +#define _UNDERLINED 0x0080 // Text, 0=normal,1=underlined (auto reset) +#define _CLIPPING 0x0100 // Used internally, 0-clipping off, 1-clipping on +#define _STRMODE 0x0200 // Used internally +#define _SERMODE 0x0400 // Used internally +#define _TXTMODE 0x0800 // Used internally +#define _MEDIAMODE 0x1000 // Used internally +#define _PATTERNED 0x2000 // Used internally +#define _COLOUR8 0x4000 // Display mode, 0=16bit, 1=8bit +#define _MEDIAFONT 0x8000 // 0=internal font, 1=media font + +//==============================================// +// bit constants for SYS_FLAGS2 // +//==============================================// +#define _MEDIA_INSTALLED 0x0001 // SD of FLASH device is installed +#define _MEDIA_TYPE 0x0002 // 0=SD, 1=FLASH media device detected +#define _MEDIA_READ 0x0004 // 1=MEDIA read in progress +#define _MEDIA_WRITE 0x0008 // 1=MEDIA write in progress +#define _OW_PIN 0x0010 // 0=IO1, 1=IO2 (Dallas OW Pin) +#define _PTR_TYPE 0x0020 // Used internally +#define _TEMP1 0x0040 // Used internally +#define _TEMP2 0x0080 // Used internally +#define _RUNMODE 0x0100 // 1=running pcode from media +#define _SIGNED 0x0200 // 0=number printed '-' prepend +#define _RUNFLAG 0x0400 // 1=EVE processor is running SYSTEM +#define _SINGLESTEP 0x0800 // 1=set breakpoint for debugger +#define _COMMINT 0x1000 // 1=buffered comms active +#define _DUMMY16 0x2000 // 1=display needs 16bit dummy +#define _DISP16 0x4000 // 1=display is 16bit interface +#define _PROPFONT 0x8000 // 1=current font is proportional + + +//==============================================// +// EVE User Resources // +//==============================================// +#define USR_SP 128 // EVE user defined stack pointer +#define USRVARS 129 // EVE user variables VARS[255] +#define USRSTACK 384 // EVE machine stack STACK[128] + +//------------------------------------------------------------------------------ +//------------------------------------------------------------------------------ +//------------------------------------------------------------------------------ +//------------------------------------------------------------------------------ +//------------------------------------------------------------------------------ + +/* + 16 bit RGB (565) Colour Chart + Original work by 4D Forum Member: skadoo +*/ + + + +#define ALICEBLUE 0xF7DF +#define ANTIQUEWHITE 0xFF5A +#define AQUA 0x07FF +#define AQUAMARINE 0x7FFA +#define AZURE 0xF7FF +#define BEIGE 0xF7BB +#define BISQUE 0xFF38 +#define BLACK 0x0000 +#define BLANCHEDALMOND 0xFF59 +#define BLUE 0x001F +#define BLUEVIOLET 0x895C +#define BROWN 0xA145 +#define BURLYWOOD 0xDDD0 +#define CADETBLUE 0x5CF4 +#define CHARTREUSE 0x7FE0 +#define CHOCOLATE 0xD343 +#define CORAL 0xFBEA +#define CORNFLOWERBLUE 0x64BD +#define CORNSILK 0xFFDB +#define CRIMSON 0xD8A7 +#define CYAN 0x07FF +#define DARKBLUE 0x0011 +#define DARKCYAN 0x0451 +#define DARKGOLDENROD 0xBC21 +#define DARKGRAY 0xAD55 +#define DARKGREEN 0x0320 +#define DARKKHAKI 0xBDAD +#define DARKMAGENTA 0x8811 +#define DARKOLIVEGREEN 0x5345 +#define DARKORANGE 0xFC60 +#define DARKORCHID 0x9999 +#define DARKRED 0x8800 +#define DARKSALMON 0xECAF +#define DARKSEAGREEN 0x8DF1 +#define DARKSLATEBLUE 0x49F1 +#define DARKSLATEGRAY 0x2A69 +#define DARKTURQUOISE 0x067A +#define DARKVIOLET 0x901A +#define DEEPPINK 0xF8B2 +#define DEEPSKYBLUE 0x05FF +#define DIMGRAY 0x6B4D +#define DODGERBLUE 0x1C9F +#define FIREBRICK 0xB104 +#define FLORALWHITE 0xFFDE +#define FORESTGREEN 0x2444 +#define FUCHSIA 0xF81F +#define GAINSBORO 0xDEFB +#define GHOSTWHITE 0xFFDF +#define GOLD 0xFEA0 +#define GOLDENROD 0xDD24 +#define GRAY 0x8410 +#define GREEN 0x0400 +#define GREENYELLOW 0xAFE5 +#define HONEYDEW 0xF7FE +#define HOTPINK 0xFB56 +#define INDIANRED 0xCAEB +#define INDIGO 0x4810 +#define IVORY 0xFFFE +#define KHAKI 0xF731 +#define LAVENDER 0xE73F +#define LAVENDERBLUSH 0xFF9E +#define LAWNGREEN 0x7FE0 +#define LEMONCHIFFON 0xFFD9 +#define LIGHTBLUE 0xAEDC +#define LIGHTCORAL 0xF410 +#define LIGHTCYAN 0xE7FF +#define LIGHTGOLD 0xFFDA +#define LIGHTGREEN 0x9772 +#define LIGHTGREY 0xD69A +#define LIGHTPINK 0xFDB8 +#define LIGHTSALMON 0xFD0F +#define LIGHTSEAGREEN 0x2595 +#define LIGHTSKYBLUE 0x867F +#define LIGHTSLATEGRAY 0x7453 +#define LIGHTSTEELBLUE 0xB63B +#define LIGHTYELLOW 0xFFFC +#define LIME 0x07E0 +#define LIMEGREEN 0x3666 +#define LINEN 0xFF9C +#define MAGENTA 0xF81F +#define MAROON 0x8000 +#define MEDIUMAQUAMARINE 0x6675 +#define MEDIUMBLUE 0x0019 +#define MEDIUMORCHID 0xBABA +#define MEDIUMPURPLE 0x939B +#define MEDIUMSEAGREEN 0x3D8E +#define MEDIUMSLATEBLUE 0x7B5D +#define MEDIUMSPRINGGREEN 0x07D3 +#define MEDIUMTURQUOISE 0x4E99 +#define MEDIUMVIOLETRED 0xC0B0 +#define MIDNIGHTBLUE 0x18CE +#define MINTCREAM 0xF7FF +#define MISTYROSE 0xFF3C +#define MOCCASIN 0xFF36 +#define NAVAJOWHITE 0xFEF5 +#define NAVY 0x0010 +#define OLDLACE 0xFFBC +#define OLIVE 0x8400 +#define OLIVEDRAB 0x6C64 +#define ORANGE 0xFD20 +#define ORANGERED 0xFA20 +#define ORCHID 0xDB9A +#define PALEGOLDENROD 0xEF55 +#define PALEGREEN 0x9FD3 +#define PALETURQUOISE 0xAF7D +#define PALEVIOLETRED 0xDB92 +#define PAPAYAWHIP 0xFF7A +#define PEACHPUFF 0xFED7 +#define PERU 0xCC27 +#define PINK 0xFE19 +#define PLUM 0xDD1B +#define POWDERBLUE 0xB71C +#define PURPLE 0x8010 +#define RED 0xF800 +#define ROSYBROWN 0xBC71 +#define ROYALBLUE 0x435C +#define SADDLEBROWN 0x8A22 +#define SALMON 0xFC0E +#define SANDYBROWN 0xF52C +#define SEAGREEN 0x2C4A +#define SEASHELL 0xFFBD +#define SIENNA 0xA285 +#define SILVER 0xC618 +#define SKYBLUE 0x867D +#define SLATEBLUE 0x6AD9 +#define SLATEGRAY 0x7412 +#define SNOW 0xFFDF +#define SPRINGGREEN 0x07EF +#define STEELBLUE 0x4416 +#define TAN 0xD5B1 +#define TEAL 0x0410 +#define THISTLE 0xDDFB +#define TOMATO 0xFB08 +#define TURQUOISE 0x471A +#define VIOLET 0xEC1D +#define WHEAT 0xF6F6 +#define WHITE 0xFFFF +#define WHITESMOKE 0xF7BE +#define YELLOW 0xFFE0 +#define YELLOWGREEN 0x9E66 + + + + + + + + + +
diff -r 000000000000 -r 6987c004e123 Goldelox_Const4DSerial.h --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Goldelox_Const4DSerial.h Sat Oct 05 02:40:39 2013 +0000 @@ -0,0 +1,71 @@ +#define F_charheight 1 +#define F_charwidth 2 +#define F_gfx_BGcolour -146 +#define F_gfx_ChangeColour -66 +#define F_gfx_Circle -51 +#define F_gfx_CircleFilled -52 +#define F_gfx_Clipping -148 +#define F_gfx_ClipWindow -65 +#define F_gfx_Cls -41 +#define F_gfx_Contrast -154 +#define F_gfx_FrameDelay -151 +#define F_gfx_GetPixel -54 +#define F_gfx_Line -46 +#define F_gfx_LinePattern -155 +#define F_gfx_LineTo -44 +#define F_gfx_MoveTo -42 +#define F_gfx_Orbit 3 +#define F_gfx_OutlineColour -153 +#define F_gfx_Polygon 4 +#define F_gfx_Polyline 5 +#define F_gfx_PutPixel -53 +#define F_gfx_Rectangle -49 +#define F_gfx_RectangleFilled -50 +#define F_gfx_ScreenMode -152 +#define F_gfx_Set -40 +#define F_gfx_SetClipRegion -68 +#define F_gfx_Transparency -150 +#define F_gfx_TransparentColour -149 +#define F_gfx_Triangle -55 +#define F_media_Flush -78 +#define F_media_Image -77 +#define F_media_Init -79 +#define F_media_ReadByte -73 +#define F_media_ReadWord -74 +#define F_media_SetAdd -71 +#define F_media_SetSector -72 +#define F_media_Video -69 +#define F_media_VideoFrame -70 +#define F_media_WriteByte -75 +#define F_media_WriteWord -76 +#define F_putCH -2 +#define F_putstr 6 +#define F_txt_Attributes -142 +#define F_txt_BGcolour -130 +#define F_txt_Bold -138 +#define F_txt_FGcolour -129 +#define F_txt_FontID -131 +#define F_txt_Height -133 +#define F_txt_Inverse -140 +#define F_txt_Italic -139 +#define F_txt_MoveCursor -28 +#define F_txt_Opacity -137 +#define F_txt_Set -29 +#define F_txt_Underline -141 +#define F_txt_Width -132 +#define F_txt_Xgap -134 +#define F_txt_Ygap -135 +#define F_BeeP -38 +#define F_sys_GetModel 7 +#define F_sys_GetVersion 8 +#define F_sys_GetPmmC 9 +#define F_blitComtoDisplay 10 +#define F_setbaudWait 11 +#define F_peekW -11 +#define F_pokeW -13 +#define F_peekB -10 +#define F_pokeB -12 +#define F_joystick -39 +#define F_SSTimeout 12 +#define F_SSSpeed 13 +#define F_SSMode 14
diff -r 000000000000 -r 6987c004e123 Goldelox_Serial_4DLib.cpp
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Goldelox_Serial_4DLib.cpp Sat Oct 05 02:40:39 2013 +0000
@@ -0,0 +1,990 @@
+/*
+ Goldelox_Serial_4DLib.cpp - Library for 4D Systems Serial Environment.
+ */
+
+#include "mbed.h"
+#include "Goldelox_Serial_4DLib.h"
+
+
+Goldelox_Serial_4DLib::Goldelox_Serial_4DLib(Serial * virtualPort) {
+ _virtualPort = virtualPort;
+ TimeLimit4D = 2000; // Give a default value to the timeout
+ while(_virtualPort->readable())
+ {
+ _virtualPort->getc() ;
+ }
+
+}
+
+//*********************************************************************************************//
+//**********************************Intrinsic 4D Routines**************************************//
+//*********************************************************************************************//
+
+void Goldelox_Serial_4DLib::WriteChars(char * charsout)
+{
+ _virtualPort->printf(charsout) ;
+ _virtualPort->putc(0);
+}
+
+void Goldelox_Serial_4DLib::WriteBytes(char * Source, int Size)
+{
+ unsigned char wk ;
+ int i ;
+ for (i = 0; i < Size; i++)
+ {
+ wk = *Source++ ;
+ _virtualPort->putc(wk) ;
+ }
+}
+
+void Goldelox_Serial_4DLib::WriteWords(short * Source, short Size)
+{
+ short wk ;
+ short i ;
+ for (i = 0; i < Size; i++)
+ {
+ wk = *Source++ ;
+ _virtualPort->putc(wk >> 8) ;
+ _virtualPort->putc(wk) ;
+ }
+}
+
+void Goldelox_Serial_4DLib::getbytes(char * data, int size)
+{
+ int readc ;
+ readc = 0 ;
+ Timer t;
+ t.start();
+ while ((readc != size) && (t.read_ms() < TimeLimit4D))
+ {
+ if(_virtualPort->readable())
+ {
+ data[readc++] = _virtualPort->getc() ;
+ }
+ }
+ if (readc != size)
+ {
+ Error4D = Err4D_Timeout ;
+ if (Callback4D != NULL)
+ Callback4D(Error4D, Error4D_Inv) ;
+ }
+}
+
+void Goldelox_Serial_4DLib::GetAck(void)
+{
+ int read ;
+ unsigned char readx = ' ' ;
+ Error4D = Err4D_OK ;
+ Timer t;
+ t.start();
+ read = 0 ;
+ int ms = 0;
+ while ((read != 1) && (t.read_ms() < TimeLimit4D))
+ {
+ ms = t.read_ms();
+ if(_virtualPort->readable() != 0)
+ {
+ readx = _virtualPort->getc() ;
+ read = 1 ;
+ }
+ }
+ if (read == 0)
+ {
+ Error4D = Err4D_Timeout ;
+ if (Callback4D != NULL)
+ Callback4D(ms, 'T') ;
+ }
+ else if (readx != 6)
+ {
+ Error4D = Err4D_NAK ;
+ Error4D_Inv = readx ;
+ if (Callback4D != NULL)
+ Callback4D(Error4D, Error4D_Inv) ;
+ }
+}
+
+short Goldelox_Serial_4DLib::GetWord(void)
+{
+ unsigned char readx[2] ;
+ int readc ;
+
+ if (Error4D != Err4D_OK)
+ return 0 ;
+ Timer t;
+ t.start();
+ readc = 0 ;
+ while ((readc != 2) && (t.read_ms() < TimeLimit4D))
+ {
+ if(_virtualPort->readable())
+ {
+ readx[readc++] = _virtualPort->getc() ;
+ }
+ }
+
+ if (readc != 2)
+ {
+ Error4D = Err4D_Timeout ;
+ if (Callback4D != NULL)
+ Callback4D(Error4D, Error4D_Inv) ;
+ return 0 ;
+ }
+ else
+ return readx[0] << 8 | readx[1] ;
+}
+
+void Goldelox_Serial_4DLib::getString(char * outStr, int strLen)
+{
+ int readc ;
+
+ if (Error4D != Err4D_OK)
+ {
+ outStr[0] = 0 ;
+ return ;
+ }
+ Timer t;
+ t.start();
+ readc = 0 ;
+ while ((readc != strLen) && (t.read_ms() < TimeLimit4D))
+ {
+ if(_virtualPort->readable())
+ {
+ outStr[readc++] = _virtualPort->getc() ;
+ }
+ }
+
+ if (readc != strLen)
+ {
+ Error4D = Err4D_Timeout ;
+ if (Callback4D != NULL)
+ Callback4D(Error4D, Error4D_Inv) ;
+ }
+ outStr[readc] = 0 ;
+}
+
+short Goldelox_Serial_4DLib::GetAckResp(void)
+{
+ GetAck() ;
+ return GetWord() ;
+}
+
+short Goldelox_Serial_4DLib::GetAckRes2Words(short * word1, short * word2)
+{
+ int Result ;
+ GetAck() ;
+ Result = GetWord() ;
+ *word1 = GetWord() ;
+ *word2 = GetWord() ;
+ return Result ;
+}
+
+void Goldelox_Serial_4DLib::GetAck2Words(short * word1, short * word2)
+{
+ GetAck() ;
+ *word1 = GetWord() ;
+ *word2 = GetWord() ;
+}
+
+short Goldelox_Serial_4DLib::GetAckResStr(char * OutStr)
+{
+ int Result ;
+ GetAck() ;
+ Result = GetWord() ;
+ getString(OutStr, Result) ;
+ return Result ;
+}
+/*
+short Goldelox_Serial_4DLib::GetAckResData(t4DByteArray OutData, short size)
+{
+ int Result ;
+ GetAck() ;
+ Result = GetWord() ;
+ getbytes(OutData, size) ;
+ return Result ;
+}
+*/
+void Goldelox_Serial_4DLib::SetThisBaudrate(int Newrate)
+{
+ int br = 0;
+ while(_virtualPort->readable())
+ {
+ _virtualPort->getc() ;
+ }
+ switch(Newrate)
+ {
+ case BAUD_110 : br = 110 ;
+ break ;
+ case BAUD_300 : br = 300 ;
+ break ;
+ case BAUD_600 : br = 600 ;
+ break ;
+ case BAUD_1200 : br = 1200 ;
+ break ;
+ case BAUD_2400 : br = 2400 ;
+ break ;
+ case BAUD_4800 : br = 4800 ;
+ break ;
+ case BAUD_9600 : br = 9600 ;
+ break ;
+ case BAUD_14400 : br = 14400 ;
+ break ;
+ case BAUD_19200 : br = 19200 ;
+ break ;
+ /* case BAUD_31250 : br = 31250 ;
+ break ;*/
+ case BAUD_38400 : br = 38400 ;
+ break ;
+ case BAUD_56000 : br = 56000 ;
+ break ;
+ case BAUD_57600 : br = 57600 ;
+ break ;
+ case BAUD_115200 : br = 115200 ;
+ break ;
+/* case BAUD_128000 : br = 133928 ; // actual rate is not 128000 ;
+ break ;
+ case BAUD_256000 : br = 281250 ; // actual rate is not 256000 ;
+ break ;
+ case BAUD_300000 : br = 312500 ; // actual rate is not 300000 ;
+ break ;
+ case BAUD_375000 : br = 401785 ; // actual rate is not 375000 ;
+ break ;
+ case BAUD_500000 : br = 562500 ; // actual rate is not 500000 ;
+ break ;
+ case BAUD_600000 : br = 703125 ; // actual rate is not 600000 ;
+ break ;*/
+ }
+ _virtualPort->baud(br) ;
+ wait_ms(50); // Display sleeps for 100
+ while(_virtualPort->readable())
+ {
+ _virtualPort->getc() ;
+ }
+}
+
+//*********************************************************************************************//
+//**********************************Compound 4D Routines***************************************//
+//*********************************************************************************************//
+
+short Goldelox_Serial_4DLib::charheight(char TestChar)
+{
+ _virtualPort->putc((char)(F_charheight >> 8)) ;
+ _virtualPort->putc((char)(F_charheight)) ;
+ _virtualPort->putc((char)(TestChar)) ;
+ return GetAckResp() ;
+}
+
+short Goldelox_Serial_4DLib::charwidth(char TestChar)
+{
+ _virtualPort->putc((char)(F_charwidth >> 8)) ;
+ _virtualPort->putc((char)(F_charwidth)) ;
+ _virtualPort->putc((char)(TestChar)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_BGcolour(short Color)
+{
+ _virtualPort->putc((char)(F_gfx_BGcolour >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_BGcolour)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_ChangeColour(short OldColor, short NewColor)
+{
+ _virtualPort->putc((char)(F_gfx_ChangeColour >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_ChangeColour)) ;
+ _virtualPort->putc((char)(OldColor >> 8)) ;
+ _virtualPort->putc((char)(OldColor)) ;
+ _virtualPort->putc((char)(NewColor >> 8)) ;
+ _virtualPort->putc((char)(NewColor)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Circle(short X, short Y, short Radius, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Circle >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Circle)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ _virtualPort->putc((char)(Radius >> 8)) ;
+ _virtualPort->putc((char)(Radius)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_CircleFilled(short X, short Y, short Radius, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_CircleFilled >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_CircleFilled)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ _virtualPort->putc((char)(Radius >> 8)) ;
+ _virtualPort->putc((char)(Radius)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Clipping(short OnOff)
+{
+ _virtualPort->putc((char)(F_gfx_Clipping >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Clipping)) ;
+ _virtualPort->putc((char)(OnOff >> 8)) ;
+ _virtualPort->putc((char)(OnOff)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_ClipWindow(short X1, short Y1, short X2, short Y2)
+{
+ _virtualPort->putc((char)(F_gfx_ClipWindow >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_ClipWindow)) ;
+ _virtualPort->putc((char)(X1 >> 8)) ;
+ _virtualPort->putc((char)(X1)) ;
+ _virtualPort->putc((char)(Y1 >> 8)) ;
+ _virtualPort->putc((char)(Y1)) ;
+ _virtualPort->putc((char)(X2 >> 8)) ;
+ _virtualPort->putc((char)(X2)) ;
+ _virtualPort->putc((char)(Y2 >> 8)) ;
+ _virtualPort->putc((char)(Y2)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Cls()
+{
+ _virtualPort->putc((char)(F_gfx_Cls >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Cls)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Contrast(short Contrast)
+{
+ _virtualPort->putc((char)(F_gfx_Contrast >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Contrast)) ;
+ _virtualPort->putc((char)(Contrast >> 8)) ;
+ _virtualPort->putc((char)(Contrast)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_FrameDelay(short Msec)
+{
+ _virtualPort->putc((char)(F_gfx_FrameDelay >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_FrameDelay)) ;
+ _virtualPort->putc((char)(Msec >> 8)) ;
+ _virtualPort->putc((char)(Msec)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::gfx_GetPixel(short X, short Y)
+{
+ _virtualPort->putc((char)(F_gfx_GetPixel >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_GetPixel )) ;
+ _virtualPort->putc((char)(X >> 8 )) ;
+ _virtualPort->putc((char)(X )) ;
+ _virtualPort->putc((char)(Y >> 8 )) ;
+ _virtualPort->putc((char)(Y )) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Line(short X1, short Y1, short X2, short Y2, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Line >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Line )) ;
+ _virtualPort->putc((char)(X1 >> 8 )) ;
+ _virtualPort->putc((char)(X1 )) ;
+ _virtualPort->putc((char)(Y1 >> 8 )) ;
+ _virtualPort->putc((char)(Y1 )) ;
+ _virtualPort->putc((char)(X2 >> 8 )) ;
+ _virtualPort->putc((char)(X2 )) ;
+ _virtualPort->putc((char)(Y2 >> 8 )) ;
+ _virtualPort->putc((char)(Y2 )) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_LinePattern(short Pattern)
+{
+ _virtualPort->putc((char)(F_gfx_LinePattern >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_LinePattern )) ;
+ _virtualPort->putc((char)(Pattern >> 8 )) ;
+ _virtualPort->putc((char)(Pattern )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_LineTo(short X, short Y)
+{
+ _virtualPort->putc((char)(F_gfx_LineTo >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_LineTo )) ;
+ _virtualPort->putc((char)(X >> 8 )) ;
+ _virtualPort->putc((char)(X )) ;
+ _virtualPort->putc((char)(Y >> 8 )) ;
+ _virtualPort->putc((char)(Y )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_MoveTo(short X, short Y)
+{
+ _virtualPort->putc((char)(F_gfx_MoveTo >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_MoveTo )) ;
+ _virtualPort->putc((char)(X >> 8 )) ;
+ _virtualPort->putc((char)(X )) ;
+ _virtualPort->putc((char)(Y >> 8 )) ;
+ _virtualPort->putc((char)(Y )) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::gfx_Orbit(short Angle, short Distance, short * Xdest, short * Ydest)
+{
+ _virtualPort->putc((char)(F_gfx_Orbit >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Orbit )) ;
+ _virtualPort->putc((char)(Angle >> 8 )) ;
+ _virtualPort->putc((char)(Angle )) ;
+ _virtualPort->putc((char)(Distance >> 8 )) ;
+ _virtualPort->putc((char)(Distance )) ;
+ GetAck2Words(Xdest,Ydest) ;
+ return 0 ;
+}
+
+void Goldelox_Serial_4DLib::gfx_OutlineColour(short Color)
+{
+ _virtualPort->putc((char)(F_gfx_OutlineColour >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_OutlineColour )) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Polygon(short n, t4DWordArray Xvalues, t4DWordArray Yvalues, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Polygon >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Polygon )) ;
+ _virtualPort->putc((char)(n >> 8 )) ;
+ _virtualPort->putc((char)(n )) ;
+ WriteWords(Xvalues, (int)n) ;
+ WriteWords(Yvalues, (int)n) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Polyline(short n, t4DWordArray Xvalues, t4DWordArray Yvalues, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Polyline >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Polyline )) ;
+ _virtualPort->putc((char)(n >> 8 )) ;
+ _virtualPort->putc((char)(n )) ;
+ WriteWords(Xvalues, n) ;
+ WriteWords(Yvalues, n) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_PutPixel(short X, short Y, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_PutPixel >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_PutPixel )) ;
+ _virtualPort->putc((char)(X >> 8 )) ;
+ _virtualPort->putc((char)(X )) ;
+ _virtualPort->putc((char)(Y >> 8 )) ;
+ _virtualPort->putc((char)(Y )) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Rectangle(short X1, short Y1, short X2, short Y2, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Rectangle >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Rectangle )) ;
+ _virtualPort->putc((char)(X1 >> 8 )) ;
+ _virtualPort->putc((char)(X1 )) ;
+ _virtualPort->putc((char)(Y1 >> 8 )) ;
+ _virtualPort->putc((char)(Y1 )) ;
+ _virtualPort->putc((char)(X2 >> 8 )) ;
+ _virtualPort->putc((char)(X2 )) ;
+ _virtualPort->putc((char)(Y2 >> 8 )) ;
+ _virtualPort->putc((char)(Y2 )) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_RectangleFilled(short X1, short Y1, short X2, short Y2, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_RectangleFilled >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_RectangleFilled )) ;
+ _virtualPort->putc((char)(X1 >> 8 )) ;
+ _virtualPort->putc((char)(X1 )) ;
+ _virtualPort->putc((char)(Y1 >> 8 )) ;
+ _virtualPort->putc((char)(Y1 )) ;
+ _virtualPort->putc((char)(X2 >> 8 )) ;
+ _virtualPort->putc((char)(X2 )) ;
+ _virtualPort->putc((char)(Y2 >> 8 )) ;
+ _virtualPort->putc((char)(Y2 )) ;
+ _virtualPort->putc((char)(Color >> 8 )) ;
+ _virtualPort->putc((char)(Color )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_ScreenMode(short ScreenMode)
+{
+ _virtualPort->putc((char)(F_gfx_ScreenMode >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_ScreenMode )) ;
+ _virtualPort->putc((char)(ScreenMode >> 8 )) ;
+ _virtualPort->putc((char)(ScreenMode )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Set(short Func, short Value)
+{
+ _virtualPort->putc((char)(F_gfx_Set >> 8 )) ;
+ _virtualPort->putc((char)(F_gfx_Set )) ;
+ _virtualPort->putc((char)(Func >> 8 )) ;
+ _virtualPort->putc((char)(Func )) ;
+ _virtualPort->putc((char)(Value >> 8 )) ;
+ _virtualPort->putc((char)(Value )) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_SetClipRegion()
+{
+ _virtualPort->putc((char)(F_gfx_SetClipRegion >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_SetClipRegion)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Transparency(short OnOff)
+{
+ _virtualPort->putc((char)(F_gfx_Transparency >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Transparency)) ;
+ _virtualPort->putc((char)(OnOff >> 8)) ;
+ _virtualPort->putc((char)(OnOff)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_TransparentColour(short Color)
+{
+ _virtualPort->putc((char)(F_gfx_TransparentColour >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_TransparentColour)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::gfx_Triangle(short X1, short Y1, short X2, short Y2, short X3, short Y3, short Color)
+{
+ _virtualPort->putc((char)(F_gfx_Triangle >> 8)) ;
+ _virtualPort->putc((char)(F_gfx_Triangle)) ;
+ _virtualPort->putc((char)(X1 >> 8)) ;
+ _virtualPort->putc((char)(X1)) ;
+ _virtualPort->putc((char)(Y1 >> 8)) ;
+ _virtualPort->putc((char)(Y1)) ;
+ _virtualPort->putc((char)(X2 >> 8)) ;
+ _virtualPort->putc((char)(X2)) ;
+ _virtualPort->putc((char)(Y2 >> 8)) ;
+ _virtualPort->putc((char)(Y2)) ;
+ _virtualPort->putc((char)(X3 >> 8)) ;
+ _virtualPort->putc((char)(X3)) ;
+ _virtualPort->putc((char)(Y3 >> 8)) ;
+ _virtualPort->putc((char)(Y3)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::media_Flush()
+{
+ _virtualPort->putc((char)(F_media_Flush >> 8)) ;
+ _virtualPort->putc((char)(F_media_Flush)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::media_Image(short X, short Y)
+{
+ _virtualPort->putc((char)(F_media_Image >> 8)) ;
+ _virtualPort->putc((char)(F_media_Image)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::media_Init()
+{
+ _virtualPort->putc((char)(F_media_Init >> 8)) ;
+ _virtualPort->putc((char)(F_media_Init)) ;
+ return GetAckResp() ;
+}
+
+short Goldelox_Serial_4DLib::media_ReadByte()
+{
+ _virtualPort->putc((char)(F_media_ReadByte >> 8)) ;
+ _virtualPort->putc((char)(F_media_ReadByte)) ;
+ return GetAckResp() ;
+}
+
+short Goldelox_Serial_4DLib::media_ReadWord()
+{
+ _virtualPort->putc((char)(F_media_ReadWord >> 8)) ;
+ _virtualPort->putc((char)(F_media_ReadWord)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::media_SetAdd(short HiWord, short LoWord)
+{
+ _virtualPort->putc((char)(F_media_SetAdd >> 8)) ;
+ _virtualPort->putc((char)(F_media_SetAdd)) ;
+ _virtualPort->putc((char)(HiWord >> 8)) ;
+ _virtualPort->putc((char)(HiWord)) ;
+ _virtualPort->putc((char)(LoWord >> 8)) ;
+ _virtualPort->putc((char)(LoWord)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::media_SetSector(short HiWord, short LoWord)
+{
+ _virtualPort->putc((char)(F_media_SetSector >> 8)) ;
+ _virtualPort->putc((char)(F_media_SetSector)) ;
+ _virtualPort->putc((char)(HiWord >> 8)) ;
+ _virtualPort->putc((char)(HiWord)) ;
+ _virtualPort->putc((char)(LoWord >> 8)) ;
+ _virtualPort->putc((char)(LoWord)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::media_Video(short X, short Y)
+{
+ _virtualPort->putc((char)(F_media_Video >> 8)) ;
+ _virtualPort->putc((char)(F_media_Video)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::media_VideoFrame(short X, short Y, short Framenumber)
+{
+ _virtualPort->putc((char)(F_media_VideoFrame >> 8)) ;
+ _virtualPort->putc((char)(F_media_VideoFrame)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ _virtualPort->putc((char)(Framenumber >> 8)) ;
+ _virtualPort->putc((char)(Framenumber)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::media_WriteByte(short Byte)
+{
+ _virtualPort->putc((char)(F_media_WriteByte >> 8)) ;
+ _virtualPort->putc((char)(F_media_WriteByte)) ;
+ _virtualPort->putc((char)(Byte >> 8)) ;
+ _virtualPort->putc((char)(Byte)) ;
+ return GetAckResp() ;
+}
+
+short Goldelox_Serial_4DLib::media_WriteWord(short Word)
+{
+ _virtualPort->putc((char)(F_media_WriteWord >> 8)) ;
+ _virtualPort->putc((char)(F_media_WriteWord)) ;
+ _virtualPort->putc((char)(Word >> 8)) ;
+ _virtualPort->putc((char)(Word)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::putCH(short WordChar)
+{
+ _virtualPort->putc((char)(F_putCH >> 8)) ;
+ _virtualPort->putc((char)(F_putCH)) ;
+ _virtualPort->putc((char)(WordChar >> 8)) ;
+ _virtualPort->putc((char)(WordChar)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::putstr(char * InString)
+{
+ _virtualPort->putc((char)(F_putstr >> 8)) ;
+ _virtualPort->putc((char)(F_putstr)) ;
+ WriteChars(InString) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Attributes(short Attribs)
+{
+ _virtualPort->putc((char)(F_txt_Attributes >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Attributes)) ;
+ _virtualPort->putc((char)(Attribs >> 8)) ;
+ _virtualPort->putc((char)(Attribs)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_BGcolour(short Color)
+{
+ _virtualPort->putc((char)(F_txt_BGcolour >> 8)) ;
+ _virtualPort->putc((char)(F_txt_BGcolour)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Bold(short Bold)
+{
+ _virtualPort->putc((char)(F_txt_Bold >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Bold)) ;
+ _virtualPort->putc((char)(Bold >> 8)) ;
+ _virtualPort->putc((char)(Bold)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_FGcolour(short Color)
+{
+ _virtualPort->putc((char)(F_txt_FGcolour >> 8)) ;
+ _virtualPort->putc((char)(F_txt_FGcolour)) ;
+ _virtualPort->putc((char)(Color >> 8)) ;
+ _virtualPort->putc((char)(Color)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_FontID(short FontNumber)
+{
+ _virtualPort->putc((char)(F_txt_FontID >> 8)) ;
+ _virtualPort->putc((char)(F_txt_FontID)) ;
+ _virtualPort->putc((char)(FontNumber >> 8)) ;
+ _virtualPort->putc((char)(FontNumber)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Height(short Multiplier)
+{
+ _virtualPort->putc((char)(F_txt_Height >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Height)) ;
+ _virtualPort->putc((char)(Multiplier >> 8)) ;
+ _virtualPort->putc((char)(Multiplier)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Inverse(short Inverse)
+{
+ _virtualPort->putc((char)(F_txt_Inverse >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Inverse)) ;
+ _virtualPort->putc((char)(Inverse >> 8)) ;
+ _virtualPort->putc((char)(Inverse)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Italic(short Italic)
+{
+ _virtualPort->putc((char)(F_txt_Italic >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Italic)) ;
+ _virtualPort->putc((char)(Italic >> 8)) ;
+ _virtualPort->putc((char)(Italic)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_MoveCursor(short Line, short Column)
+{
+ _virtualPort->putc((char)(F_txt_MoveCursor >> 8)) ;
+ _virtualPort->putc((char)(F_txt_MoveCursor)) ;
+ _virtualPort->putc((char)(Line >> 8)) ;
+ _virtualPort->putc((char)(Line)) ;
+ _virtualPort->putc((char)(Column >> 8)) ;
+ _virtualPort->putc((char)(Column)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Opacity(short TransparentOpaque)
+{
+ _virtualPort->putc((char)(F_txt_Opacity >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Opacity)) ;
+ _virtualPort->putc((char)(TransparentOpaque >> 8)) ;
+ _virtualPort->putc((char)(TransparentOpaque)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Set(short Func, short Value)
+{
+ _virtualPort->putc((char)(F_txt_Set >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Set)) ;
+ _virtualPort->putc((char)(Func >> 8)) ;
+ _virtualPort->putc((char)(Func)) ;
+ _virtualPort->putc((char)(Value >> 8)) ;
+ _virtualPort->putc((char)(Value)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Underline(short Underline)
+{
+ _virtualPort->putc((char)(F_txt_Underline >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Underline)) ;
+ _virtualPort->putc((char)(Underline >> 8)) ;
+ _virtualPort->putc((char)(Underline)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Width(short Multiplier)
+{
+ _virtualPort->putc((char)(F_txt_Width >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Width)) ;
+ _virtualPort->putc((char)(Multiplier >> 8)) ;
+ _virtualPort->putc((char)(Multiplier)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Xgap(short Pixels)
+{
+ _virtualPort->putc((char)(F_txt_Xgap >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Xgap)) ;
+ _virtualPort->putc((char)(Pixels >> 8)) ;
+ _virtualPort->putc((char)(Pixels)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::txt_Ygap(short Pixels)
+{
+ _virtualPort->putc((char)(F_txt_Ygap >> 8)) ;
+ _virtualPort->putc((char)(F_txt_Ygap)) ;
+ _virtualPort->putc((char)(Pixels >> 8)) ;
+ _virtualPort->putc((char)(Pixels)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::BeeP(short Note, short Duration)
+{
+ _virtualPort->putc((char)(F_BeeP >> 8)) ;
+ _virtualPort->putc((char)(F_BeeP)) ;
+ _virtualPort->putc((char)(Note >> 8)) ;
+ _virtualPort->putc((char)(Note)) ;
+ _virtualPort->putc((char)(Duration >> 8)) ;
+ _virtualPort->putc((char)(Duration)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::sys_GetModel(char * ModelStr)
+{
+ _virtualPort->putc((char)(F_sys_GetModel >> 8)) ;
+ _virtualPort->putc((char)(F_sys_GetModel)) ;
+ return GetAckResStr(ModelStr) ;
+}
+
+short Goldelox_Serial_4DLib::sys_GetVersion()
+{
+ _virtualPort->putc((char)(F_sys_GetVersion >> 8)) ;
+ _virtualPort->putc((char)(F_sys_GetVersion)) ;
+ return GetAckResp() ;
+}
+
+short Goldelox_Serial_4DLib::sys_GetPmmC()
+{
+ _virtualPort->putc((char)(F_sys_GetPmmC >> 8)) ;
+ _virtualPort->putc((char)(F_sys_GetPmmC)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::blitComtoDisplay(short X, short Y, short Width, short Height, t4DByteArray Pixels)
+{
+ _virtualPort->putc((char)(F_blitComtoDisplay >> 8)) ;
+ _virtualPort->putc((char)(F_blitComtoDisplay)) ;
+ _virtualPort->putc((char)(X >> 8)) ;
+ _virtualPort->putc((char)(X)) ;
+ _virtualPort->putc((char)(Y >> 8)) ;
+ _virtualPort->putc((char)(Y)) ;
+ _virtualPort->putc((char)(Width >> 8)) ;
+ _virtualPort->putc((char)(Width)) ;
+ _virtualPort->putc((char)(Height >> 8)) ;
+ _virtualPort->putc((char)(Height)) ;
+ WriteBytes(Pixels, Width*Height*2) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::setbaudWait(short Newrate)
+{
+ _virtualPort->putc((char)(F_setbaudWait >> 8)) ;
+ _virtualPort->putc((char)(F_setbaudWait)) ;
+ _virtualPort->putc((char)(Newrate >> 8)) ;
+ _virtualPort->putc((char)(Newrate)) ;
+ SetThisBaudrate(Newrate) ; // change this systems baud rate to match new display rate, ACK is 100ms away
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::peekW(short Address)
+{
+ _virtualPort->putc((char)(F_peekW >> 8)) ;
+ _virtualPort->putc((char)(F_peekW)) ;
+ _virtualPort->putc((char)(Address >> 8)) ;
+ _virtualPort->putc((char)(Address)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::pokeW(short Address, short WordValue)
+{
+ _virtualPort->putc((char)(F_pokeW >> 8)) ;
+ _virtualPort->putc((char)(F_pokeW)) ;
+ _virtualPort->putc((char)(Address >> 8)) ;
+ _virtualPort->putc((char)(Address)) ;
+ _virtualPort->putc((char)(WordValue >> 8)) ;
+ _virtualPort->putc((char)(WordValue)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::peekB(short Address)
+{
+ _virtualPort->putc((char)(F_peekB >> 8)) ;
+ _virtualPort->putc((char)(F_peekB)) ;
+ _virtualPort->putc((char)(Address >> 8)) ;
+ _virtualPort->putc((char)(Address)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::pokeB(short Address, short ByteValue)
+{
+ _virtualPort->putc((char)(F_pokeB >> 8)) ;
+ _virtualPort->putc((char)(F_pokeB)) ;
+ _virtualPort->putc((char)(Address >> 8)) ;
+ _virtualPort->putc((char)(Address)) ;
+ _virtualPort->putc((char)(ByteValue >> 8)) ;
+ _virtualPort->putc((char)(ByteValue)) ;
+ GetAck() ;
+}
+
+short Goldelox_Serial_4DLib::joystick()
+{
+ _virtualPort->putc((char)(F_joystick >> 8)) ;
+ _virtualPort->putc((char)(F_joystick)) ;
+ return GetAckResp() ;
+}
+
+void Goldelox_Serial_4DLib::SSTimeout(short Seconds)
+{
+ _virtualPort->putc((char)(F_SSTimeout >> 8)) ;
+ _virtualPort->putc((char)(F_SSTimeout)) ;
+ _virtualPort->putc((char)(Seconds >> 8)) ;
+ _virtualPort->putc((char)(Seconds)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::SSSpeed(short Speed)
+{
+ _virtualPort->putc((char)(F_SSSpeed >> 8)) ;
+ _virtualPort->putc((char)(F_SSSpeed)) ;
+ _virtualPort->putc((char)(Speed >> 8)) ;
+ _virtualPort->putc((char)(Speed)) ;
+ GetAck() ;
+}
+
+void Goldelox_Serial_4DLib::SSMode(short Parm)
+{
+ _virtualPort->putc((char)(F_SSMode >> 8)) ;
+ _virtualPort->putc((char)(F_SSMode)) ;
+ _virtualPort->putc((char)(Parm >> 8)) ;
+ _virtualPort->putc((char)(Parm)) ;
+ GetAck() ;
+}
diff -r 000000000000 -r 6987c004e123 Goldelox_Serial_4DLib.h
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Goldelox_Serial_4DLib.h Sat Oct 05 02:40:39 2013 +0000
@@ -0,0 +1,129 @@
+/*
+ 4DSerial - Library for 4D Systems Serial Environment.
+ Released into the public domain.
+*/
+
+#ifndef Goldelox_Serial_4DLib_h
+#define Goldelox_Serial_4DLib_h
+
+#include "mbed.h"
+
+#define Err4D_OK 0
+#define Err4D_Timeout 1
+#define Err4D_NAK 2 // other than ACK received
+
+#include "Goldelox_Types4D.h" // Defines for 4dgl constants, generated by conversion of 4DGL constants to target language
+#include "Goldelox_Const4DSerial.h" // Defines for 4dgl constants, generated by conversion of 4DGL constants to target language
+#include "Goldelox_Const4D.h" // Defines for 4dgl constants, generated by conversion of 4DGL constants to target language
+
+typedef void (*Tcallback4D)(int, unsigned char);
+
+class Goldelox_Serial_4DLib
+{
+ public:
+ Goldelox_Serial_4DLib(Serial * virtualPort);
+ Tcallback4D Callback4D ;
+
+ //Compound 4D Routines
+ void blitComtoDisplay(short X, short Y, short Width, short Height, t4DByteArray Pixels) ;
+ void gfx_BGcolour(short Color) ;
+ void gfx_ChangeColour(short OldColor, short NewColor) ;
+ void gfx_Circle(short X, short Y, short Radius, short Color) ;
+ void gfx_CircleFilled(short X, short Y, short Radius, short Color) ;
+ void gfx_Clipping(short OnOff) ;
+ void gfx_ClipWindow(short X1, short Y1, short X2, short Y2) ;
+ void gfx_Cls(void) ;
+ void gfx_Contrast(short Contrast) ;
+ void gfx_FrameDelay(short Msec) ;
+ void gfx_Line(short X1, short Y1, short X2, short Y2, short Color) ;
+ void gfx_LinePattern(short Pattern) ;
+ void gfx_LineTo(short X, short Y) ;
+ void gfx_MoveTo(short X, short Y) ;
+ void gfx_OutlineColour(short Color) ;
+ void gfx_Polygon(short n, t4DWordArray Xvalues, t4DWordArray Yvalues, short Color) ;
+ void gfx_Polyline(short n, t4DWordArray Xvalues, t4DWordArray Yvalues, short Color) ;
+ void gfx_PutPixel(short X, short Y, short Color) ;
+ void gfx_Rectangle(short X1, short Y1, short X2, short Y2, short Color) ;
+ void gfx_RectangleFilled(short X1, short Y1, short X2, short Y2, short Color) ;
+ void gfx_ScreenMode(short ScreenMode) ;
+ void gfx_Set(short Func, short Value) ;
+ void gfx_Transparency(short OnOff) ;
+ void gfx_TransparentColour(short Color) ;
+ void gfx_Triangle(short X1, short Y1, short X2, short Y2, short X3, short Y3, short Color) ;
+ void media_Image(short X, short Y) ;
+ void media_SetAdd(short Hiword, short Loword) ;
+ void media_SetSector(short Hiword, short Loword) ;
+ void media_Video(short X, short Y) ;
+ void media_VideoFrame(short X, short Y, short Framenumber) ;
+ void pokeB(short Address, short ByteValue) ;
+ void pokeW(short Address, short wordValue) ;
+ void putCH(short wordChar) ;
+ void setbaudWait(short Newrate) ;
+ void SSMode(short Parm) ;
+ void SSSpeed(short Speed) ;
+ void SSTimeout(short Seconds) ;
+ void txt_Attributes(short Attribs) ;
+ void txt_BGcolour(short Color) ;
+ void txt_Bold(short Bold) ;
+ void txt_FGcolour(short Color) ;
+ void txt_FontID(short FontNumber) ;
+ void txt_Height(short Multiplier) ;
+ void txt_Inverse(short Inverse) ;
+ void txt_Italic(short Italic) ;
+ void txt_MoveCursor(short Line, short Column) ;
+ void txt_Opacity(short TransparentOpaque) ;
+ void txt_Set(short Func, short Value) ;
+ void txt_Underline(short Underline) ;
+ void txt_Width(short Multiplier) ;
+ void txt_Xgap(short Pixels) ;
+ void txt_Ygap(short Pixels) ;
+ void BeeP(short Note, short Duration) ;
+ short charheight(char TestChar) ;
+ short charwidth(char TestChar) ;
+ short gfx_GetPixel(short X, short Y) ;
+ short gfx_Orbit(short Angle, short Distance, short * Xdest, short * Ydest) ;
+ void gfx_SetClipRegion(void) ;
+ short joystick(void) ;
+ short media_Flush(void) ;
+ short media_Init(void) ;
+ short media_ReadByte(void) ;
+ short media_ReadWord(void) ;
+ short media_WriteByte(short Byte) ;
+ short media_WriteWord(short Word) ;
+ short peekB(short Address) ;
+ short peekW(short Address) ;
+ void putstr(char * InString) ;
+ short sys_GetModel(char * ModelStr) ;
+ short sys_GetPmmC(void) ;
+ short sys_GetVersion(void) ;
+
+ void GetAck(void);
+
+ //4D Global Variables Used
+ int Error4D; // Error indicator, used and set by Intrinsic routines
+ unsigned char Error4D_Inv; // Error byte returned from com port, onl set if error = Err_Invalid
+ // int Error_Abort4D; // if true routines will abort when detecting an error
+ unsigned long TimeLimit4D; // time limit in ms for total serial command duration, 2000 (2 seconds) should be adequate for most commands
+ // assuming a reasonable baud rate AND low latency AND 0 for the Serial Delay Parameter
+ // temporary increase might be required for very long (bitmap write, large image file opens)
+ // or indeterminate (eg file_exec, file_run, file_callFunction) commands
+
+ private:
+ Serial * _virtualPort;
+
+ //Intrinsic 4D Routines
+ void WriteChars(char * charsout);
+ void WriteBytes(char * Source, int Size);
+ void WriteWords(short * Source, short Size);
+ void getbytes(char * data, int size);
+ short GetWord(void);
+ void getString(char * outStr, int strLen);
+ short GetAckResp(void);
+ short GetAckRes2Words(short * word1, short * word2);
+ void GetAck2Words(short * word1, short * word2);
+ short GetAckResStr(char * OutStr);
+ // short GetAckResData(t4DByteArray OutData, short size);
+ void SetThisBaudrate(int Newrate);
+};
+
+#endif
diff -r 000000000000 -r 6987c004e123 Goldelox_Types4D.h --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Goldelox_Types4D.h Sat Oct 05 02:40:39 2013 +0000 @@ -0,0 +1,3 @@ +#define t4DWordArray short * +#define t4DByteArray char * +//#define t4DSector unsigned char *