******************************************************************************* * triple buffering & rotzoom example ******************************************************************************* * INFO loads a 512x512x8 ILBM (and another ILBM of the same size as * mask, if required) and then rotzooms it in onto a triple * buffered FullRes screen * NOTE - optionally you can pass as CLI argument the name of another * 512x512x8 ILBM to load (yours must have the same size and * must respect all the restrictions of TCS_LdILBM(), otherwise * the program won't execute or the graphics will look bad - * not dangerous, anyway!) * - LMB to exit anytime ******************************************************************************* machine 68020 include INCLUDES:libraries/tcs.i include INCLUDES:libraries/tcs_lib.i include /incl/macros.i ******************************************************************************* * custom display & other definitions ******************************************************************************* DSPLWD = 192 ;our TCS display width and DSPLHT = 192 ;height (LORES pixels) SCRWD = 192 ;TCS screen width and SCRHT = 192 ;height (FullRes pixels) DSPLX0 = $c1*4 ;display start DSPLY0 = $49 ;position (SHRES pixels) DSPLX1 = DSPLX0+DSPLWD*4 ;display end DSPLY1 = DSPLY0+DSPLHT ;position (SHRES pixels) DSPLBRTNS = 256 ;max brightness GFXCTXT = 0 ;graphic context CWBTM = 0 ;clipping CWTOP = 0 ;window CWRT = 0 ;borders CWLF = 0 ;coordinates VDOMODE = TCS_VMf_FullRes | TCS_VMf_TriBuf ;display video mode ARGSNO = 3 ;command line arguments No. ROTSPD = 1 ;rotation speed SCLSTP = 1 ;scale step ACCDLY = 5 ;acceleration delay BRSHWDLOG = 9 ;brush width = 512 BRSHWD = 1<