FreeCalypso > hg > fc-selenite
view src/cs/drivers/drv_app/r2d/r2d.c @ 158:8fe0cde2fd79
doc/Compiling: update for SE J100 target and fc-host-tools-r10
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 17 Mar 2019 07:20:28 +0000 |
parents | b6a5e36de839 |
children |
line wrap: on
line source
/** @file r2d.c @author Christophe Favergeon @version 0.5 Function Riviera 2D system implementation (higher software layer) */ /* Date Modification ------------------------ 06/12/2001 Create 10/18/2001 Version 0.5 for first integration with Riviera database ************************************************************************** History Apr-06-2005 MMI-SPR-29655 - xreddymn Added function r2d_flush_region to allow flushing of portions of framebuffer to the display */ #include "rv/general.h" #include "rvf/rvf_api.h" #include "r2d/r2d_config.h" #include "r2d/r2d.h" #include "r2d/r2d_i.h" #include "r2d/r2d_independance_layer.h" #include "r2d/r2d_convertion_table.h" #include "r2d/r2d_env.h" #include "rvm/rvm_use_id_list.h" #include <string.h> #include "r2d_cos.c" #ifdef _WINDOWS #pragma warning(disable:4761) // integral size mismatch in argument; conversion supplied #endif /*************************************** IMPORTANT INFORMATION ***************************************/ /* Clipping is done on original coordinates. Then those coordinates are modified to take into account a possible mirror symetry of the LCD. Then the scanning algorithm is applied on those transformed and clipped coordinates. It assumes a vertical scanning (column per column). If it is not the case. The high level coordinates (x,y) are swapped after clipping and mirroring. The scanning is done on the swapped coordinates so that coulmns are mapped to lines. Subroutine's comment use following rule: H -> High level user coordinates L -> LCD coordinates (mirroring or not and local_to_global applied) S -> Scanning coordinates (vertical or horizontal) */ /*************************************** CONSTANTS ***************************************/ // Used for char drawing algorithm with unicode typedef enum K_R2D_CHAR_DRAWING_MODE { R2D_COMBINING_CHAR=1 } T_R2D_CHAR_DRAWING_MODE; // Used for internal drawing function typedef enum K_R2D_TEXT_DRAWING_SETTINGS { R2D_TEXT_DRAW=1 } T_R2D_TEXT_DRAWING_SETTINGS; /*************************************** REFRESH TASK RELATED GLOBALS ***************************************/ extern INT16 r2d_update_ul_x,r2d_update_ul_y,r2d_update_br_x,r2d_update_br_y; /*************************************** STATIC INTERNAL FUNCTIONS AND GLOBALS ***************************************/ #define IND_r2d_write_lcd_line r2d_write_lcd_line #define IND_r2d_write_lcd_pixel r2d_write_lcd_pixel #define IND_r2d_blit_lcd_to_lcd r2d_blit_lcd_to_lcd #define IND_r2d_blit_lcd_to_color r2d_blit_lcd_to_color #define IND_r2d_blit_color_to_lcd r2d_blit_color_to_lcd #define IND_r2d_blit_color_to_color r2d_blit_color_to_color #define IND_r2d_get_color_pixel_value r2d_get_color_pixel_value static T_R2D_GC_PTR r2d_new_font_buffer_context(T_RVF_MB_ID bank, T_R2D_FRAMEBUFFER_KIND kind, UINT16 max_width, UINT16 ascent); static T_R2D_FONT_CACHE_FRAMEBUFFER* r2d_new_font_framebuffer(T_RVF_MB_ID bank, T_R2D_FRAMEBUFFER_KIND the_kind,UINT16 width, UINT16 height); static T_R2D_SHAPE_PTR r2d_s_level(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR self); static void r2d_mirror_rectangle(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR rectangle); static void r2d_mirror_clip_rectangle(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR rectangle); static void r2d_diagonal_mirror(T_R2D_SHAPE_PTR rectangle); static void r2d_update_region(T_R2D_GC *gc,INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y); void r2d_translate_shape(T_R2D_SHAPE_PTR self,INT16 dx,INT16 dy); // Used for pen_size != 1. It computes the bounding rect and calls // fillrectangle static void r2d_s_fill_point(T_R2D_GC_PTR gc,INT16 x,INT16 y,INT16 pen_size); static void r2d_df_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,BOOLEAN background); static void r2d_s_fill_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,BOOLEAN background); #define R2D_SQUARE_P(x) (x*x) #define R2D_SWAP(x,y) tmp=x; x=y; y=tmp #define SQRT2 0x16A09 #define PI 0x3243F //////////////////////////////////////// // // Utility functions // // L COORDINATES void r2d_update_region(T_R2D_GC* gc,INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y) { INT16 tmp; rvf_lock_mutex(r2d_g_global_mutex); if (ul_x>br_x) { tmp=ul_x; ul_x=br_x; br_x=tmp; } if (ul_y>br_y) { tmp=ul_y; ul_y=br_y; br_y=tmp; } if (gc) { if (ul_x<((T_R2D_RECT*)(gc->p_clipping_shape))->ul_x-gc->org_x) ul_x=((T_R2D_RECT*)(gc->p_clipping_shape))->ul_x-gc->org_x; if (ul_y<((T_R2D_RECT*)(gc->p_clipping_shape))->ul_y-gc->org_y) ul_y=((T_R2D_RECT*)(gc->p_clipping_shape))->ul_y-gc->org_y; if (br_x>=((T_R2D_RECT*)(gc->p_clipping_shape))->br_x-1-gc->org_x) br_x=((T_R2D_RECT*)(gc->p_clipping_shape))->br_x-1-gc->org_x; if (br_y>=((T_R2D_RECT*)(gc->p_clipping_shape))->br_y-1-gc->org_y) br_y=((T_R2D_RECT*)(gc->p_clipping_shape))->br_y-1-gc->org_y; } if (ul_x < r2d_update_ul_x) r2d_update_ul_x=ul_x; if (ul_y < r2d_update_ul_y) r2d_update_ul_y=ul_y; if (br_x > r2d_update_br_x) r2d_update_br_x=br_x; if (br_y > r2d_update_br_y) r2d_update_br_y=br_y; if (r2d_update_ul_x<0) r2d_update_ul_x=0; if (r2d_update_ul_y<0) r2d_update_ul_y=0; if (r2d_update_br_x>=R2D_WIDTH) r2d_update_br_x=R2D_WIDTH-1; if (r2d_update_br_y>=R2D_HEIGHT) r2d_update_br_y=R2D_HEIGHT-1; rvf_unlock_mutex(r2d_g_global_mutex); } void r2d_check_and_send_event(T_R2D_GC_PTR gc) { // If routine has drawn into the LCD framebuffer // then refresh may be required // If LCD framebuffer ONLY if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==0) { if ((r2d_g_event_was_sent==FALSE) && (r2d_g_refresh_disabled==0)) { //rvf_send_trace("R2D SEND EVENT",strlen("R2D SEND EVENT"), NULL_PARAM, //RV_TRACE_LEVEL_DEBUG_HIGH, TRACE_XXX ); r2d_g_event_was_sent=TRUE; rvf_send_event( (UINT8)(r2d_addr_id & 0xFF), EVENT_MASK(RVF_APPL_EVT_0) ); } } } // WILL HAVE TO BE IMPROVED INT32 r2d_fixed_division(INT32 a,INT32 b) { INT16 k; UINT32 q,nb; INT16 right_shift=0; INT16 sign=0; // Convert to positive values if ((b<0) && (a<0)) { b=-b; a=-a; } if ((b<0) && (a>=0)) { b=-b; sign=1; } if ((a<0) && (b>=0)) { a=-a; sign=1; } // Normalize b between in [0.5,1[ nb=b; if (nb>=0x10000) { //printf("%08X/%08X\n",a,nb); while(((nb>>16)&0x0FFFF)!=0) { nb>>=1; right_shift++; //printf("%08X\n",nb); } } else if (nb<0x8000) { while((nb&0x8000)==0) { nb<<=1; right_shift--; //printf("%08X\n",nb); } } //printf("right_shift=%d\n",right_shift); if (nb==0x8000) { //printf("nb=0x8000, return %08X\n",((a>>right_shift)<<1)); if (sign) return (-((a>>right_shift)<<1)); else return (((a>>right_shift)<<1)); } // Newton method used to compute 1/nb with // q=q(2-nb * q) // Which first choice for q and which accuracies for intermediate // computations ? // nb being in ]0.5,1[ one must has q in ]0.5, 3[ // And one must check that the function is contracting // Derivative is nul for q*nb = 1. Below, sign of // derivatuve (relatively to q) is positive if a<1 and // the derivative is between 2 and 0 // <1 is got for q>1/(2 nb) and q must be < 1/nb // One can take q=1 as starting value. It solves // for the bounds except for nb=1 or nb=0.5 // if q in ]1/2nb, 1/nb[ one can check that qnew // will at most reach 3/2nb at next iteration and then will // fall back into the intervall // So, one needs to represents values up to 3 for q // and 2 bits are required for integer part // So, q is 2.16, nb is 0.16 // q*nb is 2.32 which cannot be represented and one needs // to shift value by 1 bit // nb will be 0.15 and q 2.15 sor nb*q is 2.30 // It must be multiplied by a format 2.16 // so both intermediate result must be shifted to // 2.15 (1 for q and 15 for np*q) q=(1<<16); //printf("-- q=%08X\n",q); for(k=0;k<5;k++) { q=((q>>1) * ((2 << 15) - (((nb>>1) * (q>>1)) >> 15))) >> 14; //printf("-- q=%08X\n",q); } // a is known to be an integer and q is know to be less than 1 // so a 64 bits product is not required //printf("a=%08X, q=%08X\n",a,q); q>>=right_shift; q=((a>>16)*q) ; //printf("right_shift=%d, q=%08X\n",right_shift,q); if (sign) return(-((INT32)q)); else return(q); } //////////////////////////////////////// // // Texture // T_R2D_FREE_TEXTURE_PTR r2d_new_free_texture(T_RVF_MB_ID bank,INT16 size,T_R2D_ARGB_COLOR *pattern) { T_R2D_FREE_TEXTURE *t; R2D_MALLOC(bank,T_R2D_FREE_TEXTURE,sizeof(T_R2D_FREE_TEXTURE),t); if (t) { t->refcount=1; t->size=size; t->pattern=pattern; } return(t); } T_R2D_FREE_TEXTURE_PTR r2d_new_const_free_texture(T_RVF_MB_ID bank,INT16 size,T_R2D_ARGB_COLOR *pattern) { T_R2D_FREE_TEXTURE *t; R2D_MALLOC(bank,T_R2D_FREE_TEXTURE,sizeof(T_R2D_FREE_TEXTURE),t); if (t) { t->refcount=-1; t->size=size; t->pattern=pattern; } return(t); } void r2d_release_free_texture(T_R2D_FREE_TEXTURE_PTR texture) { if (texture) { // Remove the array of words if needed // (refcount must be 1 else the array should not be deleted) if (R2D_REFCOUNT(texture)==1) { if (((T_R2D_FREE_TEXTURE*)texture)->pattern) R2D_FREE(((T_R2D_FREE_TEXTURE*)texture)->pattern); } } // Autorelease r2d_release(texture); } T_R2D_ANCHORED_TEXTURE_PTR r2d_new_anchored_texture(T_RVF_MB_ID bank,T_R2D_GC_PTR gc,T_R2D_FREE_TEXTURE_PTR texture) { INT16 length; T_R2D_FREE_TEXTURE *ft; T_R2D_ANCHORED_TEXTURE *at; INT16 i,j,x,y,ni,nj,pos; UINT32 *p; T_R2D_ARGB_COLOR b; // If a new texture is installed, // one must recompute p_background if (texture==NULL) goto erroranchored; ft=(T_R2D_FREE_TEXTURE *)texture; length=1<<(ft->size); R2D_MALLOC(bank,T_R2D_ANCHORED_TEXTURE,sizeof(T_R2D_ANCHORED_TEXTURE),at); if (at==NULL) goto erroranchored; at->refcount=1; at->size=ft->size; R2D_MALLOC(bank,UINT32,sizeof(UINT32)*length*length,at->pattern); if (at->pattern==NULL) { R2D_FREE(at); goto erroranchored; } p=at->pattern; b=r2d_get_background_color(gc); if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==R2D_FULL_KIND) { x=0; y=0; for(i=0;i<length;i++) // Horizontal for(j=0;j<length;j++) // Vertical { r2d_convert_background_color_color(gc,ft->pattern[i*length+j]); #if (R2D_REFRESH == R2D_VERTICAL) #ifdef R2D_MIRRORED_X ni=(length-1)-i; #else ni=i; #endif #ifdef R2D_MIRRORED_Y nj=(length-1)-j; #else nj=j; #endif p[ni*length+nj]=((T_R2D_GC*)gc)->background_pixel_value; #else #ifdef R2D_MIRRORED_X nj=(length-1)-j; #else nj=j; #endif #ifdef R2D_MIRRORED_Y ni=(length-1)-i; #else ni=i; #endif p[nj*length+ni]=((T_R2D_GC*)gc)->background_pixel_value; #endif } } else { for(i=0;i<length;i++) for(j=0;j<length;j++) { r2d_convert_background_color(gc,ft->pattern[i*length+j]); #if (R2D_REFRESH == R2D_VERTICAL) #ifdef R2D_MIRRORED_X ni=(length-1)-i; #else ni=i; #endif #ifdef R2D_MIRRORED_Y nj=(length-1)-j; #else nj=j; #endif pos=ni*length+nj; #else #ifdef R2D_MIRRORED_X nj=(length-1)-j; #else nj=j; #endif #ifdef R2D_MIRRORED_Y ni=(length-1)-i; #else ni=i; #endif pos=nj*length+ni; #endif #if (R2D_DITHERING == R2D_OFF) p[pos]=((T_R2D_GC*)gc)->background_pixel_value; #else p[pos]=r2d_get_dithering_matrix_entry(((T_R2D_GC*)gc)->p_background_dithered_cache,x,y); #endif #if (R2D_REFRESH == R2D_VERTICAL) y++; if (y==length) { y=0; x++; } #else x++; if (x==length) { x=0; y++; } #endif } } // Force change r2d_set_background_color(gc,b^1); r2d_set_background_color(gc,b); return((T_R2D_ANCHORED_TEXTURE_PTR)at); erroranchored: return(NULL); } void r2d_release_anchored_texture(T_R2D_ANCHORED_TEXTURE_PTR texture) { if (texture) { // Remove the array of words if needed // (refcount must be 1 else the array should not be deleted) if (R2D_REFCOUNT(texture)==1) { if (((T_R2D_ANCHORED_TEXTURE*)texture)->pattern) R2D_FREE(((T_R2D_ANCHORED_TEXTURE*)texture)->pattern); } } // Autorelease r2d_release(texture); } //////////////////////////////////////// // // Framebuffer // UINT32 r2d_get_framebuffer_size(T_R2D_FRAMEBUFFER_KIND the_kind,UINT16 width, UINT16 height) { UINT32 t; UINT32 length; t=0; t+=sizeof(T_R2D_FRAMEBUFFER); switch(the_kind) { case R2D_LCD_KIND: #if (R2D_REFRESH==R2D_VERTICAL) // Column is contiguous in memory length=width*R2D_ALIGNED_MWLENGTH(height); t+=((length+1)<<R2D_LONGSIZE_FACTOR); #else length=height*R2D_ALIGNED_MWLENGTH(width); t+=((length+1)<<R2D_LONGSIZE_FACTOR); #endif break; default: length=width*height; t+=((length+1)<<R2D_LONGSIZE_FACTOR); break; } t+=sizeof(T_RVF_MUTEX); return(t); } UINT32 r2d_get_gc_size(void) { UINT32 t; t=0; t+=sizeof(T_R2D_GC); t+=sizeof(T_R2D_RECT); // clipping t+=sizeof(T_R2D_RECT); // s_clipping t+=sizeof(UINT32)*4; // foreground dithering cache t+=sizeof(UINT32)*4; // backround dithering cache return(t); } T_R2D_FRAMEBUFFER_PTR r2d_new_framebuffer(T_RVF_MB_ID bank,T_R2D_FRAMEBUFFER_KIND the_kind,UINT16 width, UINT16 height) { UINT32 length; T_R2D_FRAMEBUFFER *p; // UINT32 *elem; T_RVF_RET err; R2D_MALLOC(bank,T_R2D_FRAMEBUFFER,sizeof(T_R2D_FRAMEBUFFER),p); if (p) { switch(the_kind) { case R2D_LCD_KIND: #if (R2D_REFRESH==R2D_VERTICAL) // Column is contiguous in memory length=width*R2D_ALIGNED_MWLENGTH(height); R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_LCD_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } #else // Line is contiguous in memory length=height*R2D_ALIGNED_MWLENGTH(width); R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_LCD_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } #endif break; default: length=width*height; R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_FULL_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } break; } } else p=NULL; return(p); } static T_R2D_FONT_CACHE_FRAMEBUFFER* r2d_new_font_framebuffer(T_RVF_MB_ID bank,T_R2D_FRAMEBUFFER_KIND the_kind,UINT16 width, UINT16 height) { UINT32 length; T_R2D_FONT_CACHE_FRAMEBUFFER *p; // UINT32 *elem; T_RVF_RET err; R2D_MALLOC(bank,T_R2D_FONT_CACHE_FRAMEBUFFER,sizeof(T_R2D_FONT_CACHE_FRAMEBUFFER),p); if (p) { switch(the_kind) { case R2D_LCD_KIND: #if (R2D_REFRESH==R2D_VERTICAL) // Column is contiguous in memory length=width*R2D_ALIGNED_MWLENGTH(height); R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_LCD_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } #else // Line is contiguous in memory length=height*R2D_ALIGNED_MWLENGTH(width); R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_LCD_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } #endif break; default: length=width*height; R2D_MALLOC(bank,UINT32,((length+1)<<R2D_LONGSIZE_FACTOR),p->p_memory_words); if (!(p->p_memory_words)) { R2D_FREE(p); p=NULL; return(p); } p->refcount=1; p->kind=R2D_FULL_KIND; p->p_frame_buffer_end=p->p_memory_words+length; p->width=width; p->height=height; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),p->mutex); if (p->mutex!=NULL) { err=rvf_initialize_mutex(p->mutex); if (err!=RVF_OK) { R2D_FREE(p->mutex); R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } } else { R2D_FREE(p->p_memory_words); R2D_FREE(p); p=NULL; return(p); } break; } } else p=NULL; return(p); } // Release a framebuffer void r2d_release_framebuffer(T_R2D_FRAMEBUFFER_PTR p) { if (p) { // Remove the array of words if needed // (refcount must be 1 else the array should not be deleted) if (R2D_REFCOUNT(p)==1) { R2D_FREE(((T_R2D_FRAMEBUFFER*)p)->p_memory_words); rvf_delete_mutex(((T_R2D_FRAMEBUFFER*)p)->mutex); R2D_FREE(((T_R2D_FRAMEBUFFER*)p)->mutex); } } // Autorelease r2d_release(p); } //////////////////////////////////////// // // Graphic context // static T_R2D_GC_PTR r2d_new_font_buffer_context(T_RVF_MB_ID bank, T_R2D_FRAMEBUFFER_KIND kind, UINT16 max_width, UINT16 ascent) { T_R2D_FRAMEBUFFER_PTR cache_buffer; T_R2D_GC_PTR result; //printf("width=%d,height=%d\n",the_width,((T_R2D_FRAMEBUFFER*)font_frame_buffer)->height); cache_buffer=r2d_new_font_framebuffer(bank,kind, max_width,ascent); if (cache_buffer!=NULL) { result=r2d_new_context(bank,cache_buffer); r2d_release_framebuffer(cache_buffer); return(result); } else return(NULL); } T_R2D_GC_PTR r2d_new_context(T_RVF_MB_ID bank,T_R2D_FRAMEBUFFER_PTR the_frame_buffer) { T_R2D_GC *gc; // Allocate a new gc structure R2D_MALLOC(bank,T_R2D_GC,sizeof(T_R2D_GC),gc); if (gc) { // gc is pointing to the LCD framebuffer gc->p_frame_buffer=(T_R2D_FRAMEBUFFER*)the_frame_buffer; r2d_retain(the_frame_buffer); // Default initialization for a gc gc->background_texture=NULL; gc->foreground_color=r2d_get_standard_argb_color(R2D_BLACK); gc->background_color=r2d_get_standard_argb_color(R2D_WHITE); #if (R2D_REFRESH == R2D_VERTICAL) gc->p_s_clipping_shape=r2d_new_rectangle(bank,0,0,((T_R2D_FRAMEBUFFER*)the_frame_buffer)->width, ((T_R2D_FRAMEBUFFER*)the_frame_buffer)->height); #else gc->p_s_clipping_shape=r2d_new_rectangle(bank,0,0,((T_R2D_FRAMEBUFFER*)the_frame_buffer)->height,((T_R2D_FRAMEBUFFER*)the_frame_buffer)->width); #endif if (gc->p_s_clipping_shape==NULL) { r2d_release_framebuffer(the_frame_buffer); R2D_FREE(gc); gc=NULL; return(NULL); } gc->p_clipping_shape=r2d_new_rectangle(bank,0,0,((T_R2D_FRAMEBUFFER*)the_frame_buffer)->width, ((T_R2D_FRAMEBUFFER*)the_frame_buffer)->height); gc->drawing_mode=R2D_COPY_MODE; gc->drawing_op=r2d_get_drawing_op(gc,R2D_COPY_MODE); gc->org_x=gc->org_y=0; gc->s_org_x=gc->s_org_y=0; gc->pen_size=1; gc->dash=0; gc->text_face=R2D_SYSTEM; gc->text_style=R2D_PLAIN; gc->internal_text_style=R2D_PLAIN; gc->text_size=R2D_SMALL; gc->script_mode=R2D_LEFT_TO_RIGHT; gc->font_frame_buffer=r2d_g_default_font_framebuffer; gc->font_metrics=r2d_g_default_font_metrics; gc->font_table=r2d_g_default_font_table; if (gc->p_clipping_shape) { r2d_retain(r2d_g_default_font_framebuffer); // refcount set to 1 for creation gc->refcount=1; R2D_MALLOC(bank,UINT32,sizeof(UINT32)*4,gc->p_foreground_dithered_cache); if (gc->p_foreground_dithered_cache) { R2D_MALLOC(bank,UINT32,sizeof(UINT32)*4,gc->p_background_dithered_cache); if (gc->p_background_dithered_cache) { if (((T_R2D_FRAMEBUFFER*)the_frame_buffer)->kind==R2D_FULL_KIND) { r2d_convert_foreground_color_color(gc,gc->foreground_color); r2d_convert_background_color_color(gc,gc->background_color); } else { r2d_convert_foreground_color(gc,gc->foreground_color); r2d_convert_background_color(gc,gc->background_color); } } else // cannot create backround dithered matrix { r2d_release_shape(gc->p_clipping_shape); r2d_release_shape(gc->p_s_clipping_shape); r2d_release_framebuffer(gc->p_frame_buffer); r2d_release_framebuffer(r2d_g_default_font_framebuffer); R2D_FREE(((T_R2D_GC *)gc)->p_foreground_dithered_cache); R2D_FREE(gc); gc=NULL; } } else // Cannot create foreground dithered matrix { r2d_release_shape(gc->p_clipping_shape); r2d_release_shape(gc->p_s_clipping_shape); r2d_release_framebuffer(gc->p_frame_buffer); r2d_release_framebuffer(r2d_g_default_font_framebuffer); R2D_FREE(gc); gc=NULL; } } else // Cannot create clipping shape { R2D_FREE(gc); gc=NULL; } } else gc=NULL; return(gc); } T_R2D_GC_PTR r2d_new_lcd_context(T_RVF_MB_ID bank) { // T_R2D_GC *gc; T_R2D_GC_PTR result; result=r2d_new_context(bank,r2d_g_framebuffer); r2d_release_framebuffer(r2d_g_framebuffer); return (result); } void r2d_release_context(T_R2D_GC_PTR gc) { if (gc) { if (R2D_REFCOUNT(gc)==1) { // framebuffer release since it is no more used r2d_release_framebuffer(((T_R2D_GC *)gc)->font_frame_buffer); r2d_release_shape(((T_R2D_GC *)gc)->p_clipping_shape); r2d_release_shape(((T_R2D_GC *)gc)->p_s_clipping_shape); r2d_release_framebuffer(((T_R2D_GC *)gc)->p_frame_buffer); R2D_FREE((((T_R2D_GC *)gc)->p_foreground_dithered_cache)); R2D_FREE((((T_R2D_GC *)gc)->p_background_dithered_cache)); } } // Autodelete of the gc if required r2d_release(gc); } T_R2D_GC_PTR r2d_new_picture_context(T_RVF_MB_ID bank,const UINT32 *the_picture,T_R2D_FRAMEBUFFER_KIND kind) { UINT32 h,v,length; UINT32 *p; T_R2D_FRAMEBUFFER *buf; T_R2D_GC_PTR result; T_RVF_RET err; p=((UINT32*)the_picture)+3; h=the_picture[0]; v=the_picture[1]; length=the_picture[2]; rvf_get_buf(bank, sizeof(T_R2D_FRAMEBUFFER), (T_RVF_BUFFER**)&buf); if (buf != NULL) { buf->p_memory_words=p; buf->refcount=-1; // Emulate infinite refcount buf->kind=kind; buf->p_frame_buffer_end=p+length; buf->width=h; buf->height=v; R2D_MALLOC(bank,T_RVF_MUTEX,sizeof(T_RVF_MUTEX),buf->mutex); if (buf->mutex!=NULL) { err=rvf_initialize_mutex(buf->mutex); if (err!=RVF_OK) { R2D_FREE(buf->mutex); R2D_FREE(buf); buf=NULL; return(buf); } } else { R2D_FREE(buf); buf=NULL; return(buf); } result=r2d_new_context(bank,(T_R2D_FRAMEBUFFER_PTR)buf); r2d_release_framebuffer(buf); return(result); } else return(NULL); } void r2d_release_picture_context(T_R2D_GC_PTR gc) { T_R2D_FRAMEBUFFER *fb_p; if (gc) { if (R2D_REFCOUNT(gc) == 1) { r2d_release_context(gc); fb_p = (T_R2D_FRAMEBUFFER *) ((T_R2D_GC *) gc)->p_frame_buffer; rvf_delete_mutex(fb_p->mutex); R2D_FREE(fb_p->mutex); R2D_FREE(fb_p); } r2d_release(gc); } } UINT16 r2d_get_width(T_R2D_GC_PTR gc) { return(((T_R2D_FRAMEBUFFER*)((T_R2D_GC *)gc)->p_frame_buffer)->width); } UINT16 r2d_get_height(T_R2D_GC_PTR gc) { return(((T_R2D_FRAMEBUFFER*)((T_R2D_GC *)gc)->p_frame_buffer)->height); } void r2d_erase(T_R2D_GC_PTR gc) { // UINT32 *p; INT16 x,y; T_R2D_ARGB_COLOR col; r2d_get_context_origin(gc,&x,&y); col=r2d_get_background_color(gc); r2d_set_background_color(gc,r2d_get_standard_argb_color(R2D_WHITE)); r2d_fill_rectangle(gc,x-1,y-1,x+r2d_get_width(gc),y+r2d_get_height(gc)); r2d_set_background_color(gc,col); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,x,y,x+r2d_get_width(gc)-1,y+r2d_get_height(gc)-1); r2d_check_and_send_event(gc); } void r2d_erase_with_background(T_R2D_GC_PTR gc, INT16 a,INT16 b, INT16 c,INT16 d) { r2d_fill_rectangle(gc,a-1,b-1,c+1,d+1); } T_R2D_DRAWING_MODE r2d_get_drawing_mode(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->drawing_mode); } T_R2D_ERROR r2d_set_drawing_mode(T_R2D_GC_PTR gc,T_R2D_DRAWING_MODE the_mode) { if (the_mode!=((T_R2D_GC *)gc)->drawing_mode) { // All modes must be supported in ASM mode if (r2d_get_drawing_op(gc,the_mode)!=NULL) { ((T_R2D_GC *)gc)->drawing_mode=the_mode; ((T_R2D_GC *)gc)->drawing_op=r2d_get_drawing_op(gc,the_mode); return(R2D_OK); } else return(R2D_UNKNOWN_OP); } else return(R2D_OK); } UINT16 r2d_get_pen_size(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->pen_size); } void r2d_set_pen_size(T_R2D_GC_PTR gc,UINT16 the_size) { ((T_R2D_GC *)gc)->pen_size=the_size; } // H COORDINATES void r2d_set_context_origin(T_R2D_GC_PTR gc,INT16 x,INT16 y) { INT16 dx,dy; T_R2D_RECTANGLE *ra,*rb; dx=x-((T_R2D_GC *)gc)->org_x; dy=y-((T_R2D_GC *)gc)->org_y; ((T_R2D_GC *)gc)->org_x=x; ((T_R2D_GC *)gc)->org_y=y; r2d_translate_shape(((T_R2D_GC *)gc)->p_clipping_shape,dx,dy); ra=r2d_new_rectangle(r2d_mb_id,0,0,0,0); rb=r2d_s_level(gc,ra); if (rb) { ((T_R2D_GC *)gc)->s_org_x=rb->ul_x; ((T_R2D_GC *)gc)->s_org_y=rb->ul_y; } r2d_release_shape(ra); r2d_release_shape(rb); // No translation of p_s_clipping_shape which is in S coordinates. // Only H coordinates are impacted by the context origin } // H COORDINATES void r2d_get_context_origin(T_R2D_GC_PTR gc,INT16 *x,INT16 *y) { *x=((T_R2D_GC *)gc)->org_x; *y=((T_R2D_GC *)gc)->org_y; } // H COORDINATES void r2d_local_to_global(T_R2D_GC_PTR gc,INT16 *x,INT16 *y) { *x-=((T_R2D_GC *)gc)->org_x; *y-=((T_R2D_GC *)gc)->org_y; } // H coordinates void r2d_get_pen_pos(T_R2D_GC_PTR gc,INT16 *x,INT16 *y) { *x=((T_R2D_GC *)gc)->pen_x; *y=((T_R2D_GC *)gc)->pen_y; } BOOLEAN r2d_dash_enabled(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->dash); } void r2d_set_dash_state(T_R2D_GC_PTR gc,BOOLEAN enabled) { ((T_R2D_GC *)gc)->dash=enabled; } static void r2d_change_font(T_R2D_GC_PTR gc,T_R2D_FONT_DESCRIPTION *desc) { r2d_retain(desc->framebuffer); r2d_release_framebuffer(((T_R2D_GC *)gc)->font_frame_buffer); ((T_R2D_GC *)gc)->font_frame_buffer=desc->framebuffer; ((T_R2D_GC *)gc)->font_metrics=desc->metrics; ((T_R2D_GC *)gc)->font_table=desc->table; } static T_R2D_FONT_DESCRIPTION *r2d_get_desc(T_R2D_GC_PTR gc) { INT16 f; INT16 s; INT16 t; T_R2D_FONT_DESCRIPTION *p; INT16 temp; p=r2d_g_font_configuration; f=r2d_get_text_face(gc)-1; s=r2d_get_text_size(gc)-1; t=r2d_get_text_style(gc) & (R2D_BOLD | R2D_ITALIC); t=t-(t>>1); temp=(f<<2) + (f<<3) + (s<<2) + t; p=r2d_g_font_configuration+(temp); return(p); } void r2d_set_text_face(T_R2D_GC_PTR gc,T_R2D_TEXT_FACE the_face) { ((T_R2D_GC *)gc)->text_face=the_face; r2d_change_font(gc,r2d_get_desc(gc)); } T_R2D_TEXT_FACE r2d_get_text_face(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->text_face); } void r2d_set_text_style(T_R2D_GC_PTR gc,T_R2D_TEXT_STYLE the_style) { T_R2D_FONT_DESCRIPTION *desc; ((T_R2D_GC *)gc)->text_style=the_style; // Clear italic bit; the_style=the_style & (~R2D_ITALIC); // Clear bold bit if desc for Bold is not NULL desc=r2d_get_desc(gc); if (!desc->compute_bold) the_style=the_style & (~R2D_BOLD); ((T_R2D_GC *)gc)->internal_text_style=the_style; r2d_change_font(gc,r2d_get_desc(gc)); } T_R2D_TEXT_STYLE r2d_get_text_style(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->text_style); } void r2d_set_text_size(T_R2D_GC_PTR gc,T_R2D_TEXT_SIZE the_size) { ((T_R2D_GC *)gc)->text_size=the_size; r2d_change_font(gc,r2d_get_desc(gc)); } T_R2D_TEXT_SIZE r2d_get_text_size(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->text_size); } T_R2D_ERROR r2d_context_lock(T_R2D_GC_PTR gc) { T_RVF_RET err; err=RVF_OK; err=rvf_lock_mutex(((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->mutex); if (err!=RVF_OK) return(R2D_LOCK_ERROR); else return(R2D_OK); } T_R2D_ERROR r2d_context_unlock(T_R2D_GC_PTR gc) { T_RVF_RET err; err=RVF_OK; err=rvf_unlock_mutex(((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->mutex); if (err!=RVF_OK) return(R2D_UNLOCK_ERROR); else return(R2D_OK); } // Return the a pointer to the memory area containing // pixels for the graphic context gc // UINT32* r2d_get_pixmap(T_R2D_GC_PTR gc) { T_R2D_GC *src; T_R2D_FRAMEBUFFER *src_f; UINT32 *ps; src=(T_R2D_GC*)gc; src_f=(T_R2D_FRAMEBUFFER*)(src->p_frame_buffer); ps=src_f->p_memory_words; return(ps); } // Force the flushing of LCD framebuffer to display its // content void r2d_flush(void) { r2d_update_region(NULL,0, 0, R2D_WIDTH-1, R2D_HEIGHT-1); r2d_check_and_send_event(r2d_g_lcd_gc); } // xreddymn Apr-06-2005 MMI-SPR-29655 // Force the flushing of a portion of LCD framebuffer to display its // content void r2d_flush_region(INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y) { r2d_update_region(NULL, ul_x, ul_y, br_x, br_y); r2d_check_and_send_event(r2d_g_lcd_gc); } void r2d_disable_refresh(void) { rvf_lock_mutex(r2d_g_global_mutex); r2d_g_refresh_disabled++; //rvf_send_trace("R2D : disable refresh\n",sizeof("R2D : disable refresh\n"), NULL_PARAM, // RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); rvf_unlock_mutex(r2d_g_global_mutex); } void r2d_enable_refresh(void) { //rvf_send_trace("R2D : enable refresh\n",sizeof("R2D : enable refresh\n"), NULL_PARAM, // RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); rvf_lock_mutex(r2d_g_global_mutex); r2d_g_refresh_disabled--; if (r2d_g_refresh_disabled==0) { //rvf_send_trace("R2D : flush\n",sizeof("R2D : flush\n"), NULL_PARAM, //RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); //rvf_send_trace("Enable refresh and flush",sizeof("Enable refresh and flush")-1, NULL_PARAM, // RV_TRACE_LEVEL_DEBUG_HIGH, R2D_USE_ID ); // The flush will not raise a context commutation to R2D since R2D may // be sleeping waiting for the current refresh perio. // So, the event will not be processed at once. While R2D is sleeping, // another task may call r2d_disable_refresh and thus // when R2D is awaken, it will not process the event which is waiting. // So, finally, the display will not be refreshed. // To avoid this problem which occurs for a quick succession of // r2d_disable_refresh // r2d_enable_refresh // one should try to call them with a rate which is lower than the refresh rate rvf_unlock_mutex(r2d_g_global_mutex); //r2d_flush(); r2d_check_and_send_event(r2d_g_lcd_gc); } else rvf_unlock_mutex(r2d_g_global_mutex); } //////////////////////////////////////// // // Colors // // Return ARGB foreground color for the gc T_R2D_ARGB_COLOR r2d_get_foreground_color(T_R2D_GC_PTR gc) { return (((T_R2D_GC*)gc)->foreground_color); } // Set ARGB foreground color for the gc // (Alpha channel not yet supported) void r2d_set_foreground_color_with_argb(T_R2D_GC_PTR gc,UINT16 alpha,UINT16 red,UINT16 green,UINT16 blue) { UINT32 color; color=r2d_new_argb_color(alpha,red,green,blue); if (color !=((T_R2D_GC*)gc)->foreground_color) { ((T_R2D_GC*)gc)->foreground_color=color; if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==R2D_FULL_KIND) r2d_convert_foreground_color_color(gc,color); else r2d_convert_foreground_color(gc,color); } } // Set ARGB foreground color for the gc // (Alpha channel not yet supported) void r2d_set_foreground_color(T_R2D_GC_PTR gc,T_R2D_ARGB_COLOR color) { if (color !=((T_R2D_GC*)gc)->foreground_color) { ((T_R2D_GC*)gc)->foreground_color=color; if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==R2D_FULL_KIND) r2d_convert_foreground_color_color(gc,color); else r2d_convert_foreground_color(gc,color); } } // Return ARGB foreground color for the gc T_R2D_ARGB_COLOR r2d_get_background_color(T_R2D_GC_PTR gc) { return (((T_R2D_GC*)gc)->background_color); } // Set ARGB foreground color for the gc // (Alpha channel not yet supported) void r2d_set_background_color_with_argb(T_R2D_GC_PTR gc,UINT16 alpha,UINT16 red,UINT16 green,UINT16 blue) { UINT32 color; color=r2d_new_argb_color(alpha,red,green,blue); if (color !=((T_R2D_GC*)gc)->background_color) { ((T_R2D_GC*)gc)->background_color=color; if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==R2D_FULL_KIND) r2d_convert_background_color_color(gc,color); else r2d_convert_background_color(gc,color); } } // Set ARGB foreground color for the gc // (Alpha channel not yet supported) void r2d_set_background_color(T_R2D_GC_PTR gc,T_R2D_ARGB_COLOR color) { if (color !=((T_R2D_GC*)gc)->background_color) { ((T_R2D_GC*)gc)->background_color=color; if (((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind==R2D_FULL_KIND) r2d_convert_background_color_color(gc,color); else r2d_convert_background_color(gc,color); } } void r2d_set_background_texture(T_R2D_GC_PTR gc,T_R2D_ANCHORED_TEXTURE_PTR texture) { // INT16 length; // T_R2D_ANCHORED_TEXTURE *t; // If a texture is already in place try to release it if (((T_R2D_GC*)gc)->background_texture!=NULL) { r2d_release_anchored_texture(((T_R2D_GC*)gc)->background_texture); ((T_R2D_GC*)gc)->background_texture=NULL; } ((T_R2D_GC*)gc)->background_texture=texture; if (texture!=NULL) { r2d_retain(texture); } } T_R2D_ANCHORED_TEXTURE_PTR r2d_get_background_texture(T_R2D_GC_PTR gc) { return ((T_R2D_GC*)gc)->background_texture; } T_R2D_ARGB_COLOR r2d_new_argb_color(UINT16 alpha,UINT16 red,UINT16 green,UINT16 blue) { T_R2D_ARGB_COLOR col; col=0; col=col|(alpha&0xFF); col=col<<8; col=col|(red&0xFF); col=col<<8; col=col|(green&0xFF); col=col<<8; col=col|(blue&0xFF); return(col); } T_R2D_ARGB_COLOR r2d_get_argb_color_at_point(T_R2D_GC_PTR gc,INT16 x,INT16 y) { UINT32 result; if (r2d_point_in_shape(((T_R2D_GC*)gc)->p_clipping_shape,x,y)) { r2d_local_to_global(gc,&x,&y); #ifdef R2D_MIRRORED_X x=r2d_get_width(gc)-1-x; #endif #ifdef R2D_MIRRORED_Y y=r2d_get_height(gc)-1-y; #endif #if (R2D_REFRESH == R2D_VERTICAL) result=IND_r2d_get_color_pixel_value(gc,x,y); #else result=IND_r2d_get_color_pixel_value(gc,y,x); #endif return(result); } else return(0); } T_R2D_ARGB_COLOR r2d_get_standard_argb_color(T_R2D_COLOR_REF ref) { switch(ref) { case R2D_RED: return(r2d_new_argb_color(0,255,0,0)); break; case R2D_BLUE:return(r2d_new_argb_color(0,0,0,255)); break; case R2D_GREEN:return(r2d_new_argb_color(0,0,255,0)); break; case R2D_WHITE:return(r2d_new_argb_color(0,255,255,255)); break; case R2D_BLACK:return(r2d_new_argb_color(0,0,0,0)); break; case R2D_GRAY50:return(r2d_new_argb_color(0,127,127,12)); break; default:return(r2d_new_argb_color(0,0,0,0)); break; } } // h from 0 to 360 : // s from 0 to 1 : 1 is 0x800000 // v from 0 to 1 // r,g,b from 0 to 1 // Value in Q8 void r2d_hsv_to_rgb( INT16 *r, INT16 *g, INT16 *b, INT32 h, INT32 s, INT32 v ) { int i; INT32 f, p, q, t; //s and v in Q8. So 255 is FF is 1 if( s == 0 ) { // achromatic (grey) *r = *g = *b = (v>>13); return; } h = h * (0x3000000 >> 8) ; // 360/256 / 60 ;Q23 ; sector 0 to 5 i = h & 0xFF800000; f = h - i; // factorial part of h i=i>>15; f = f >> 15; // Q16 p = (v * ( 0x100 - s )) >> 8; q = (v * ( 0x100 - ((s * f) >> 8) )) >> 8; t = (v * ( 0x100 - ((s * ( 0x100 - f )) >> 8) )) >> 8; switch( i>>8 ) { case 0: *r = v; *g = t; *b = p; break; case 1: *r = q; *g = v; *b = p; break; case 2: *r = p; *g = v; *b = t; break; case 3: *r = p; *g = q; *b = v; break; case 4: *r = t; *g = p; *b = v; break; default: // case 5: *r = v; *g = p; *b = q; break; } } //////////////////////////////////////// // // Shapes // // H COORDINATES ... void r2d_draw_shape(T_R2D_SHAPE_PTR self,T_R2D_GC_PTR gc) { if (self) { ((T_R2D_SHAPE*)self)->p_r2d_class->draw(self,gc); } } void r2d_fill_shape(T_R2D_SHAPE_PTR self,T_R2D_GC_PTR gc) { if (self) { ((T_R2D_SHAPE*)self)->p_r2d_class->fill(self,gc); } } void r2d_release_shape(T_R2D_SHAPE_PTR self) { if (self) ((T_R2D_SHAPE*)self)->p_r2d_class->release(self); } T_R2D_SHAPE_PTR r2d_clone_shape(T_RVF_MB_ID bank,T_R2D_SHAPE_PTR self) { if (self) return (((T_R2D_SHAPE*)self)->p_r2d_class->clone(bank,self)); else return(NULL); } void r2d_translate_shape(T_R2D_SHAPE_PTR self,INT16 dx,INT16 dy) { if (self) ((T_R2D_SHAPE*)self)->p_r2d_class->translate(self,dx,dy); } BOOLEAN r2d_point_in_shape(T_R2D_SHAPE_PTR self,INT16 x,INT16 y) { if (self) return(((T_R2D_SHAPE*)self)->p_r2d_class->point_in_shape(self,x,y)); else return(FALSE); } BOOLEAN r2d_point_in_rectangle_shape(T_R2D_SHAPE* self,INT16 x,INT16 y) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE*)self; return (((x>=r2d_get_xmin(self)) && (x<r2d_get_xmax(self)) && (y>=r2d_get_ymin(self)) && (y<r2d_get_ymax(self)))); } BOOLEAN r2d_point_in_circle_shape(T_R2D_SHAPE* self,INT16 x,INT16 y) { T_R2D_CIRCLE *c; c=(T_R2D_CIRCLE*)self; return((x-c->x)*(x-c->x)+(y-c->y)*(y-c->y)-c->r*c->r<0); } BOOLEAN r2d_point_in_ellipse_shape(T_R2D_SHAPE* self,INT16 x,INT16 y) { T_R2D_ELLIPSE *c; INT32 a,b,cx,cy,nx,ny; c=(T_R2D_ELLIPSE*)self; // Work on Q1 // a is half width so no <<1 is used here a=(c->br_x-c->ul_x); b=(c->br_y-c->ul_y); nx=x<<1; ny=y<<1; cx=((c->ul_x)<<1)+a; cy=((c->ul_y)<<1)+b; //b^2*x^2+a^2y^2-a^2b^2=0 return((b*b*(nx-cx)*(nx-cx)+a*a*(ny-cy)*(ny-cy)-a*a*b*b)<0); } BOOLEAN r2d_point_in_round_rectangle_shape(T_R2D_SHAPE* self,INT16 x,INT16 y) { T_R2D_ROUND_RECTANGLE *r; BOOLEAN result; result=FALSE; r=(T_R2D_ROUND_RECTANGLE *)self; if ((x>=r->ul_x+r->h+1) && (x<r->br_x-r->h) && (y>=r->ul_y) && (y<r->br_y)) result=TRUE; else if ((x>=r->ul_x) && (x<r->br_x) && (y>=r->ul_y+r->v+1) && (y<r->br_y-r->v)) result=TRUE; else { INT32 a,b,cx,cy,nx,ny; if (x>=r->br_x-r->h) x=x-(r->br_x-r->ul_x)+((r->h)<<1); if (y>=r->br_y-r->v) y=y-(r->br_y-r->ul_y)+((r->v)<<1); a=(r->h<<1); b=(r->v<<1); nx=x<<1; ny=y<<1; cx=((r->ul_x)<<1)+a; cy=((r->ul_y)<<1)+b; //b^2*x^2+a^2y^2-a^2b^2=0 result=(b*b*(nx-cx)*(nx-cx)+a*a*(ny-cy)*(ny-cy)-a*a*b*b)<0; } return(result); } BOOLEAN r2d_point_in_not_supported_shape(T_R2D_SHAPE* self,INT16 x,INT16 y) { return FALSE; } void r2d_translate_rectangle_shape(T_R2D_SHAPE* self,INT16 dx,INT16 dy) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE *)self; r->ul_x+=dx; r->ul_y+=dy; r->br_x+=dx; r->br_y+=dy; } void r2d_translate_point_shape(T_R2D_SHAPE* self,INT16 dx,INT16 dy) { T_R2D_CIRCLE *r; r=(T_R2D_CIRCLE *)self; r->x+=dx; r->y+=dy; } T_R2D_SHAPE_PTR r2d_new_rectangle(T_RVF_MB_ID bank,INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y) { T_R2D_RECTANGLE *r; T_R2D_ERROR err; err=R2D_MALLOC(bank,T_R2D_RECTANGLE,sizeof(T_R2D_RECTANGLE),r); if (r) { r->refcount=1; r->ul_x=ul_x; r->ul_y=ul_y; r->br_x=br_x; r->br_y=br_y; r->p_r2d_class=&r2d_class_rectangle; } else r=NULL; return(r); } void r2d_release_rectangle(T_R2D_SHAPE* self) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE *)self; r2d_release(r); } T_R2D_SHAPE_PTR r2d_clone_rectangle_shape(T_RVF_MB_ID bank,T_R2D_SHAPE* self) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE *)self; return(r2d_new_rectangle(bank,r->ul_x,r->ul_y,r->br_x,r->br_y)); } void r2d_draw_rectangle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE *)self; r2d_draw_rectangle(gc,r->ul_x,r->ul_y,r->br_x,r->br_y); } void r2d_fill_rectangle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE *)self; r2d_fill_rectangle(gc,r->ul_x,r->ul_y,r->br_x,r->br_y); } void r2d_release_circle(T_R2D_SHAPE* self) { T_R2D_CIRCLE *r; r=(T_R2D_CIRCLE *)self; r2d_release(r); #if (R2D_DEBUG == R2D_ON) r=NULL; #endif } T_R2D_SHAPE_PTR r2d_clone_circle_shape(T_RVF_MB_ID bank,T_R2D_SHAPE* self) { T_R2D_CIRCLE *r; r=(T_R2D_CIRCLE *)self; return(r2d_new_circle(bank,r->x,r->y,r->r)); } void r2d_draw_circle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_CIRCLE *r; r=(T_R2D_CIRCLE *)self; r2d_draw_circle(gc,r->x,r->y,r->r); } void r2d_fill_circle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_CIRCLE *r; r=(T_R2D_CIRCLE *)self; r2d_fill_circle(gc,r->x,r->y,r->r); } T_R2D_SHAPE_PTR r2d_new_circle(T_RVF_MB_ID bank,INT16 x,INT16 y,INT16 r) { T_R2D_CIRCLE *c; R2D_MALLOC(bank,T_R2D_CIRCLE,sizeof(T_R2D_CIRCLE),c); if (c) { c->refcount=1; c->x=x; c->y=y; c->r=r; c->p_r2d_class=&r2d_class_circle; } else c=NULL; return(c); } void r2d_release_ellipse(T_R2D_SHAPE* self) { T_R2D_ELLIPSE *r; r=(T_R2D_ELLIPSE *)self; r2d_release(r); #if (R2D_DEBUG == R2D_ON) r=NULL; #endif } void r2d_draw_ellipse_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_ELLIPSE *r; r=(T_R2D_ELLIPSE *)self; r2d_draw_ellipse(gc,r->ul_x,r->ul_y,r->br_x,r->br_y); } void r2d_fill_ellipse_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_ELLIPSE *r; r=(T_R2D_ELLIPSE *)self; r2d_fill_ellipse(gc,r->ul_x,r->ul_y,r->br_x,r->br_y); } T_R2D_SHAPE_PTR r2d_new_ellipse(T_RVF_MB_ID bank,INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y) { T_R2D_ELLIPSE *r; R2D_MALLOC(bank,T_R2D_ELLIPSE,sizeof(T_R2D_ELLIPSE),r); if (r) { r->refcount=1; r->ul_x=ul_x; r->ul_y=ul_y; r->br_x=br_x; r->br_y=br_y; r->p_r2d_class=&r2d_class_ellipse; } else r=NULL; return(r); } void r2d_release_round_rectangle(T_R2D_SHAPE* self) { T_R2D_ROUND_RECTANGLE *r; r=(T_R2D_ROUND_RECTANGLE *)self; r2d_release(r); #if (R2D_DEBUG == R2D_ON) r=NULL; #endif } void r2d_draw_round_rectangle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_ROUND_RECTANGLE *r; r=(T_R2D_ROUND_RECTANGLE *)self; r2d_draw_round_rectangle(gc,r->ul_x,r->ul_y,r->br_x,r->br_y,r->h,r->v); } void r2d_fill_round_rectangle_shape(T_R2D_SHAPE* self,T_R2D_GC_PTR gc) { T_R2D_ROUND_RECTANGLE *r; r=(T_R2D_ROUND_RECTANGLE *)self; r2d_fill_round_rectangle(gc,r->ul_x,r->ul_y,r->br_x,r->br_y,r->h,r->v); } T_R2D_SHAPE_PTR r2d_clone_round_rectangle_shape(T_RVF_MB_ID bank,T_R2D_SHAPE* self) { T_R2D_ROUND_RECTANGLE *r; r=(T_R2D_ROUND_RECTANGLE *)self; return(r2d_new_round_rectangle(bank,r->ul_x,r->ul_y,r->br_x,r->br_y,r->h,r->v)); } T_R2D_SHAPE_PTR r2d_new_round_rectangle(T_RVF_MB_ID bank,INT16 ul_x,INT16 ul_y,INT16 br_x,INT16 br_y,INT16 h,INT16 v) { T_R2D_ROUND_RECTANGLE *r; R2D_MALLOC(bank,T_R2D_ROUND_RECTANGLE,sizeof(T_R2D_ROUND_RECTANGLE),r); if (r) { r->refcount=1; r->ul_x=ul_x; r->ul_y=ul_y; r->br_x=br_x; r->br_y=br_y; r->h=h; r->v=v; r->p_r2d_class=&r2d_class_round_rectangle; } else r=NULL; return(r); } T_R2D_SHAPE_PTR r2d_clone_arc_shape(T_RVF_MB_ID bank,T_R2D_SHAPE* self) { T_R2D_ARC *r; r=(T_R2D_ARC *)self; return(r2d_new_arc(bank,r->start_angle,r->stop_angle,r->ul_x,r->ul_y,r->br_x,r->br_y)); } T_R2D_SHAPE_PTR r2d_new_arc(T_RVF_MB_ID bank,INT16 start_angle, INT16 stop_angle,INT16 ul_x,INT16 ul_y, INT16 br_x,INT16 br_y) { T_R2D_ARC *r; R2D_MALLOC(bank,T_R2D_ARC,sizeof(T_R2D_ARC),r); if (r) { r->refcount=1; r->ul_x=ul_x; r->ul_y=ul_y; r->br_x=br_x; r->br_y=br_y; r->start_angle=start_angle; r->stop_angle=stop_angle; r->p_r2d_class=&r2d_class_arc; } else r=NULL; return(r); } void r2d_release_arc(T_R2D_SHAPE *self) { T_R2D_ARC *r; r=(T_R2D_ARC *)self; r2d_release(r); } void r2d_draw_arc_shape(T_R2D_SHAPE *self,T_R2D_GC_PTR gc) { T_R2D_ARC *r; r=(T_R2D_ARC *)self; r2d_draw_arc(gc,r->start_angle,r->stop_angle, r->ul_x,r->ul_y,r->br_x,r->br_y); } void r2d_fill_arc_shape(T_R2D_SHAPE *self,T_R2D_GC_PTR gc) { T_R2D_ARC *r; r=(T_R2D_ARC *)self; r2d_fill_arc(gc,r->start_angle,r->stop_angle, r->ul_x,r->ul_y,r->br_x,r->br_y); } T_R2D_SHAPE_PTR r2d_new_rectangle_intersection(T_RVF_MB_ID bank,T_R2D_SHAPE_PTR a,T_R2D_SHAPE_PTR b) { if ( a && b && (((T_R2D_SHAPE*)a)->p_r2d_class==&r2d_class_rectangle) && (((T_R2D_SHAPE*)b)->p_r2d_class==&r2d_class_rectangle)) { T_R2D_RECT *ra; T_R2D_RECT *rb; INT16 xa,ya,xb,yb; ra=(T_R2D_RECT *)a; rb=(T_R2D_RECT *)b; if (ra->ul_x>rb->ul_x) xa=ra->ul_x; else xa=rb->ul_x; if (ra->ul_y>rb->ul_y) ya=ra->ul_y; else ya=rb->ul_y; if (ra->br_x<rb->br_x) xb=ra->br_x; else xb=rb->br_x; if (ra->br_y<rb->br_y) yb=ra->br_y; else yb=rb->br_y; if ((xa<=xb) && (ya<=yb)) return(r2d_new_rectangle(bank,xa,ya,xb,yb)); else return(R2D_EMPTY_RECT); } else return(NULL); } T_R2D_SHAPE_PTR r2d_new_rectangle_union(T_RVF_MB_ID bank,T_R2D_SHAPE_PTR a,T_R2D_SHAPE_PTR b) { if ( a && b && (((T_R2D_SHAPE*)a)->p_r2d_class==&r2d_class_rectangle) && (((T_R2D_SHAPE*)b)->p_r2d_class==&r2d_class_rectangle)) { T_R2D_RECTANGLE *ra; T_R2D_RECTANGLE *rb; INT16 xa,ya,xb,yb; ra=(T_R2D_RECTANGLE *)a; rb=(T_R2D_RECTANGLE *)b; if (ra->ul_x<rb->ul_x) xa=ra->ul_x; else xa=rb->ul_x; if (ra->ul_y<rb->ul_y) ya=ra->ul_y; else ya=rb->ul_y; if (ra->br_x>rb->br_x) xb=ra->br_x; else xb=rb->br_x; if (ra->br_y>rb->br_y) yb=ra->br_y; else yb=rb->br_y; if ((xa<=xb) && (ya<=yb)) return(r2d_new_rectangle(bank,xa,ya,xb,yb)); else return(R2D_EMPTY_RECT); } else if (a) return(r2d_clone_shape(bank,a)); else if (b) return(r2d_clone_shape(bank,b)); else return(NULL); } T_R2D_SHAPE_PTR r2d_new_text(T_RVF_MB_ID bank,INT16 x, INT16 y,T_R2D_UTF16 *the_text) { T_R2D_TEXT *r; R2D_MALLOC(bank,T_R2D_TEXT,sizeof(T_R2D_TEXT),r); if (r) { r->refcount=1; r->x=x; r->y=y; r->p_text=the_text; r->p_r2d_class=&r2d_class_text; } else r=NULL; return(r); } T_R2D_SHAPE_PTR r2d_clone_text_shape(T_RVF_MB_ID bank,T_R2D_SHAPE* self) { T_R2D_TEXT *r; r=(T_R2D_TEXT *)self; return(r2d_new_text(bank,r->x,r->y,NULL)); } void r2d_release_text(T_R2D_SHAPE *self) { T_R2D_TEXT *r; r=(T_R2D_TEXT *)self; r2d_release(r); } void r2d_draw_text_shape(T_R2D_SHAPE *self,T_R2D_GC_PTR gc) { T_R2D_TEXT *r; r=(T_R2D_TEXT *)self; r2d_draw_text(gc,r->x,r->y,r->p_text); } void r2d_fill_text_shape(T_R2D_SHAPE *self,T_R2D_GC_PTR gc) { // A text has no interior and thus cannot be filled. } //////////////////////////////////////// // // Clipping functions // // Conversion is done such that line y = ymax and x=xmax MUST NOT // be drawn. So, they do not belong to the cliiping region // So, behavior of s_clipping_shape is using drawing convention // and not the clipping convention static T_R2D_SHAPE_PTR r2d_s_level(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR self) { T_R2D_SHAPE_PTR result; T_R2D_RECTANGLE *r; r=(T_R2D_RECTANGLE*)self; if ((r) && (gc)) { result=r2d_clone_shape(r2d_mb_id,self); r=(T_R2D_RECTANGLE*)result; r2d_local_to_global(gc,&(r->ul_x),&(r->ul_y)); r2d_local_to_global(gc,&(r->br_x),&(r->br_y)); //r2d_mirror_clip_rectangle(gc,result); r2d_mirror_rectangle(gc,result); r=(T_R2D_RECTANGLE*)result; #if (R2D_REFRESH != R2D_VERTICAL) r2d_diagonal_mirror(result); r=(T_R2D_RECTANGLE*)result; #endif return(result); } else return(NULL); } void r2d_set_clipping_shape(T_R2D_SHAPE_PTR self,T_R2D_GC_PTR gc) { if ((self) && (((T_R2D_SHAPE*)self)->p_r2d_class==&r2d_class_rectangle)) { T_R2D_RECT *r; INT16 orgx,orgy; r=(T_R2D_RECT *)self; r2d_get_context_origin(gc,&orgx,&orgy); if (r->ul_x-orgx<0) r->ul_x=orgx; if (r->ul_y-orgy<0) r->ul_y=orgy; if (r->br_x-orgx>=r2d_get_width(gc)) r->br_x=orgx+r2d_get_width(gc); if (r->br_y-orgy>=r2d_get_height(gc)) r->br_y=orgy+r2d_get_height(gc); { r2d_release_shape(((T_R2D_GC *)gc)->p_clipping_shape); ((T_R2D_GC *)gc)->p_clipping_shape=self; r2d_retain(self); r2d_release_shape(((T_R2D_GC *)gc)->p_s_clipping_shape); ((T_R2D_GC *)gc)->p_s_clipping_shape=r2d_s_level(gc,self); } } } T_R2D_SHAPE_PTR r2d_get_clipping_shape(T_R2D_GC_PTR gc) { return(((T_R2D_GC *)gc)->p_clipping_shape); } T_R2D_ERROR r2d_restore_standard_clipping_shape(T_R2D_GC_PTR gc) { INT16 x,y; T_R2D_SHAPE_PTR s,sb; r2d_get_context_origin(gc,&x,&y); s=((T_R2D_GC *)gc)->p_clipping_shape; sb=((T_R2D_GC *)gc)->p_s_clipping_shape; ((T_R2D_GC *)gc)->p_clipping_shape=r2d_new_rectangle(r2d_mb_id,x,y,x+r2d_get_width(gc),y+r2d_get_height(gc)); // No mirroring when shape is the whole LCD // Force use of global coordinates for s_ frame #if (R2D_REFRESH == R2D_VERTICAL) ((T_R2D_GC *)gc)->p_s_clipping_shape= r2d_new_rectangle(r2d_mb_id,0,0,r2d_get_width(gc),r2d_get_height(gc)); #else ((T_R2D_GC *)gc)->p_s_clipping_shape= r2d_new_rectangle(r2d_mb_id,0,0,r2d_get_height(gc),r2d_get_width(gc)); #endif if ((((T_R2D_GC *)gc)->p_clipping_shape==NULL) || (((T_R2D_GC *)gc)->p_s_clipping_shape==NULL)) { if (((T_R2D_GC *)gc)->p_clipping_shape!=NULL) r2d_release_shape(((T_R2D_GC *)gc)->p_clipping_shape); if (((T_R2D_GC *)gc)->p_s_clipping_shape!=NULL) r2d_release_shape(((T_R2D_GC *)gc)->p_s_clipping_shape); ((T_R2D_GC *)gc)->p_clipping_shape=s; ((T_R2D_GC *)gc)->p_s_clipping_shape=sb; return(R2D_MEMORY_ERR); } else { r2d_release_shape(s); r2d_release_shape(sb); return(R2D_OK); } } //////////////////////////////////////// // // Graphical primitives // // S COORDINATES static void r2d_s_fill_point(T_R2D_GC_PTR gc,INT16 x,INT16 y,INT16 pen_size) { INT16 ul_x,ul_y,br_x,br_y,bs,as; // UINT32 f,b; bs=(pen_size>>1); as=(pen_size>>1) + (pen_size&1); // Squares are not symetrically placed // since pen_size is not always odd // Mirroring must take it into account so that the // asymetry is also mirrored #ifdef R2D_MIRRORED_X ul_x=x-bs; br_x=x+as-1; #else ul_x=x-bs+1; br_x=x+as; #endif #ifdef R2D_MIRRORED_Y ul_y=y-bs; br_y=y+as-1; #else ul_y=y-bs+1; br_y=y+as; #endif //printf("%d %d %d %d\n",ul_x,ul_y,br_x,br_y); r2d_s_fill_rectangle(gc,ul_x-1,ul_y-1,br_x+1,br_y+1,FALSE); } // Draw point in gc at position (x,y) // S COORDINATES static void r2d_s_draw_point(T_R2D_GC_PTR gc,INT16 x,INT16 y,INT32 l) { UINT32 pixel_value; INT16 pen_size; BOOLEAN isLCD_format,can_draw; T_R2D_GC* pgc; can_draw=FALSE; if (r2d_dash_enabled(gc)) { // Q16, 0x0008000 is 8 pixels if (!(l&0x00080000)) can_draw=TRUE; } else can_draw=TRUE; if (can_draw==TRUE) { pgc=(T_R2D_GC*)gc; isLCD_format=((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind!=R2D_FULL_KIND; pen_size=r2d_get_pen_size(gc); if (r2d_point_in_shape(((T_R2D_GC*)gc)->p_s_clipping_shape,x,y)) { if (pen_size>1) r2d_s_fill_point(gc,x,y,pen_size); else { // Dithering is relative to global coordinate system // Color is recomputed only when dithering is on #if (R2D_DITHERING == R2D_ON) if (isLCD_format) pixel_value=r2d_get_dithering_matrix_entry(((T_R2D_GC*)gc)->p_foreground_dithered_cache,x,y); else pixel_value=((T_R2D_GC*)gc)->foreground_pixel_value; #else pixel_value=((T_R2D_GC*)gc)->foreground_pixel_value; #endif // Low level pixel drawing routine with CONVERTED color value IND_r2d_write_lcd_pixel(gc,x,y,pixel_value); } } r2d_check_and_send_event(gc); } } // Draw point in gc at position (x,y) // H COORDINATES void r2d_draw_point(T_R2D_GC_PTR gc,INT16 x,INT16 y) { if (r2d_point_in_shape(((T_R2D_GC*)gc)->p_clipping_shape,x,y)) { r2d_local_to_global(gc,&x,&y); #ifdef R2D_MIRRORED_X x=r2d_get_width(gc)-1-x; #endif #ifdef R2D_MIRRORED_Y y=r2d_get_height(gc)-1-y; #endif if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,x,y,x,y); #if (R2D_REFRESH == R2D_VERTICAL) r2d_s_draw_point(gc,x,y,0); #else r2d_s_draw_point(gc,y,x,0); #endif } } void r2d_erase_point(T_R2D_GC_PTR gc,INT16 x,INT16 y) { T_R2D_ARGB_COLOR col; if (r2d_point_in_shape(((T_R2D_GC*)gc)->p_clipping_shape,x,y)) { r2d_local_to_global(gc,&x,&y); col=r2d_get_foreground_color(gc); r2d_set_foreground_color(gc,r2d_get_background_color(gc)); #ifdef R2D_MIRRORED_X x=r2d_get_width(gc)-1-x; #endif #ifdef R2D_MIRRORED_Y y=r2d_get_height(gc)-1-y; #endif if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,x,y,x,y); #if (R2D_REFRESH == R2D_VERTICAL) r2d_s_draw_point(gc,x,y,0); #else r2d_s_draw_point(gc,y,x,0); #endif r2d_set_foreground_color(gc,col); } } // Move pen to point (x,y) // H_COORDINATES void r2d_moveto(T_R2D_GC_PTR gc,INT16 x,INT16 y) { ((T_R2D_GC*)gc)->pen_x=x; ((T_R2D_GC*)gc)->pen_y=y; } static BOOLEAN r2d_clipt(INT32 denom,INT32 num,INT32 *tE,INT32 *tL) { INT32 t; //printf("clipt %08X %08X\n",denom,num); if (denom<0) { t=r2d_fixed_division(num,denom); //printf("denom<0 ; t=%08X\n",t); if (t>*tL) return FALSE; else if (t > *tE) *tE=t; } else if (denom>0) { t=r2d_fixed_division(num,denom); //printf("denom>0 ; t=%08X\n",t); if (t<*tE) return FALSE; else if (t < *tL) *tL=t; } else if (num<0) return FALSE; //printf("t=%08X tE=%08X tL=%08X\n",t,*tE,*tL); return TRUE; } static BOOLEAN r2d_clip_line(T_R2D_SHAPE *self,INT32 *x0,INT32 *y0,INT32 *x1, INT32 *y1) { T_R2D_RECTANGLE *r; BOOLEAN visible=FALSE; INT32 dx=*x1-*x0; INT32 dy=*y1-*y0; r=(T_R2D_RECTANGLE*)self; // Can only clip against reactangular shapes if (self->p_r2d_class==&r2d_class_rectangle) { if ((dx==0) && (dy==0) && r2d_point_in_shape(self,(*x0>>16) & 0x0FFFF,(*y0>>16) & 0x0FFFF)) visible=TRUE; else { INT32 tE=0; INT32 tL=(1<<16); if (r2d_clipt(dx,((r2d_get_xmax(self)-1)<<16)-*x0,&tE,&tL)==TRUE) if (r2d_clipt(-dx,*x0-(r2d_get_xmin(self)<<16),&tE,&tL)==TRUE) if (r2d_clipt(-dy,*y0-(r2d_get_ymin(self)<<16),&tE,&tL)==TRUE) if (r2d_clipt(dy,((r2d_get_ymax(self)-1)<<16) -*y0,&tE,&tL)==TRUE) { visible=TRUE; //printf("tE=%08X tL=%08X\n",tE,tL); // 1 with fixed point representation if (tL < (1<<16)) { // dx and dy are integer // tL and tE should be lower than 1 // So intermediate values are shifted so that // the product can be done on 32 bits instead of 64 bits *x1=*x0 + (tL*(dx>>16)) ; *y1=*y0 + (tL*(dy>>16)) ; //printf("x1=%08X y1=%08X\n",*x1,*y1); } if (tE > 0) { *x0 += (tE*(dx>>16)) ; *y0 += (tE*(dy>>16)) ; //printf("x0=%08X y0=%08X\n",*x0,*y0); } } } } return(visible); } // 0.5 is rounded down because in line drawing the bottom // point is chosen when the line is passing through the middle // point #define R2D_Q16INT_VALUE(x) ((x+(0x7FFF)) & 0xFFFF0000) #define R2D_FLOOR_VALUE(x) (x & 0xFFFF0000) // Positive times signed value #define R2D_MULT_PN(x,y) ((((x >> 16) & 0x0FFFF)*y) + (((x & 0x0FFFF) * y) >> 16)) // draw line from pen position to point (x,y) void r2d_lineto(T_R2D_GC_PTR gc,INT16 x,INT16 y) { // Clipping // Now drawing with low level function UINT32 pixel_value; INT32 P0X,P0Y,P1X,P1Y,c,cy,cx; INT32 current_x,current_y,tmp,tmpx,tmpy; INT32 dx,dy,dn,dnp,dnn; INT16 xincrement,yincrement,reverse; INT32 nx,ny; INT16 pen_size; INT32 l; BOOLEAN isLCD_format; l=0; isLCD_format=((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)gc)->p_frame_buffer))->kind!=R2D_FULL_KIND; pixel_value=((T_R2D_GC*)gc)->foreground_pixel_value; pen_size=r2d_get_pen_size(gc); P0X=((T_R2D_GC*)gc)->pen_x << 16; P0Y=((T_R2D_GC*)gc)->pen_y << 16; P1X=x << 16; P1Y=y << 16; //printf("\n\n(%d,%d) ; (%d,%d)\n",P0X>>16,P0Y>>16,P1X>>16,P1Y>>16); // As far as possible, most datas are computed before clipping to get same accuracy // Update pen position ((T_R2D_GC*)gc)->pen_x=x; ((T_R2D_GC*)gc)->pen_y=y; if (r2d_clip_line((((T_R2D_GC*)gc)->p_clipping_shape),&P0X,&P0Y,&P1X,&P1Y)) { // Local to global P0X-=((T_R2D_GC*)gc)->org_x << 16; P0Y-=((T_R2D_GC*)gc)->org_y << 16; P1X-=((T_R2D_GC*)gc)->org_x << 16; P1Y-=((T_R2D_GC*)gc)->org_y << 16; #ifdef R2D_MIRRORED_X P0X=((r2d_get_width(gc)-1)<<16)-P0X; P1X=((r2d_get_width(gc)-1)<<16)-P1X; #endif #ifdef R2D_MIRRORED_Y P0Y=((r2d_get_height(gc)-1)<<16)-P0Y; P1Y=((r2d_get_height(gc)-1)<<16)-P1Y; #endif /*printf("%d %d %d %d\n",r2d_get_xmin(((T_R2D_GC*)gc)->p_clipping_shape), r2d_get_xmax(((T_R2D_GC*)gc)->p_clipping_shape), r2d_get_ymin(((T_R2D_GC*)gc)->p_clipping_shape), r2d_get_ymax(((T_R2D_GC*)gc)->p_clipping_shape) );*/ //r2d_clip_line(&(((T_R2D_GC*)gc)->clipping_rectangle),&P0X,&P0Y,&P1X,&P1Y); //printf("(%d,%d) ; (%d,%d)\n",P0X>>16,P0Y>>16,P1X>>16,P1Y>>16); //printf("(%08X,%08X) ; (%08X,%08X)\n------------------\n",P0X,P0Y,P1X,P1Y); //printf("(%d,%d) ; (%d,%d)\n",P0X>>16,P0Y>>16,P1X>>16,P1Y>>16); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,P0X>>16,P0Y>>16,P1X>>16,P1Y>>16); #if (R2D_REFRESH==R2D_VERTICAL) current_x=P0Y; current_y=P0X; nx=P1Y; ny=P1X; #else current_x=P0X; current_y=P0Y; nx=P1X; ny=P1Y; #endif dx=nx-current_x; dy=ny-current_y; yincrement=1; if (dx>=0) { xincrement=1; } else { xincrement=-1; dx=-dx; } if (dy>=0) { yincrement=1; } else { yincrement=-1; dy=-dy; } if (dy<=dx) reverse=0; else { reverse=1; tmp=dy; dy=dx; dx=tmp; tmp=current_y; current_y=current_x; current_x=tmp; tmp=ny; ny=nx; nx=tmp; tmp=yincrement; yincrement=xincrement; xincrement=tmp; } reverse=1-reverse; //printf("dx,dy,current_x,current_y,nx,ny\n%08X %08X %08X %08X %08X %08X\n",dx,dy,current_x,current_y,nx,ny); // Remember that when one is speaking about a move of 1 horizontally // one is talking about internal coordinates used by the algorithm // In the window it may be vertical or horizontal depending on the // refresh mode and on the line slope (<1 or >1) dn=dy - (dx >> 1) ; // d0 = a-b/2 dnp=dy-dx ; dnn=dy; // We draw the point which is the closest to the line so we use INT // instead of FLOOR or CEIL // But, then, the drawing algorithm assumes that the first drawn point is // the lowest one // If F(P) = 0 is a parametric description of the line // The, when one is moving from the point of the line on the frontier // of the clipping rectangle to the closest // point with x,y integer coordinate then one needs to compute dx*cy and dy*cx // since it is the variation of F along that path tmpx=(INT32)R2D_Q16INT_VALUE(current_x); tmpy=(INT32)R2D_Q16INT_VALUE(current_y); cx = current_x - tmpx; cy = current_y - tmpy; c= -R2D_MULT_PN(dx,cy) + R2D_MULT_PN(dy,cx); //printf("cx=%08X, cy=%08X, c=%08X, dx=%08X, dy=%08X \n",cx,cy,c,dx,dy); // Then, one can add c to the variation due to a move of 1 horizontally // an a move of 1/2 vertically. // One finally get the value of the decision variable at the midpoint dn+=c; //printf("%08X %08X %08X %08X %08X\n",current_x,current_y,nx,ny); current_x=((INT32)R2D_Q16INT_VALUE(current_x)) >> 16; current_y=((INT32)R2D_Q16INT_VALUE(current_y)) >> 16; nx=((INT32)R2D_Q16INT_VALUE(nx)) >> 16; ny=((INT32)R2D_Q16INT_VALUE(ny)) >> 16; //printf("dx=%08X dy=%08X dn=%08X dnp=%08X dnn=%08X\n",dx,dy,dn,dnp,dnn); if (reverse) { r2d_s_draw_point(gc,current_y,current_x,l); } else { r2d_s_draw_point(gc,current_x,current_y,l); } while(current_x != nx) { if (dn>0) { dn += dnp; current_y+=yincrement; l=l+SQRT2; } else if (dn<0) { dn += dnn; l=l+0x10000; } else { if (xincrement<0) { dn += dnp; current_y+=yincrement; l=l+SQRT2; } else { dn += dnn; l=l+0x10000; } } current_x+=xincrement; //printf(" -->%08X %d %d\n",dn,current_x,current_y); // Color is recomputed only when dithering is on if (reverse) { r2d_s_draw_point(gc,current_y,current_x,l); } else { r2d_s_draw_point(gc,current_x,current_y,l); } } } // END CLIPPING //printf("END LINE\n"); r2d_check_and_send_event(gc); } // Used for filling // Do clipping and coordinate transforms then call // low levl line filling algorithm // No mirroring check since it is a low level routine // S COORDINATES static void r2d_s_fill_line(T_R2D_GC_PTR gc,INT16 x,INT16 y,INT16 nb,BOOLEAN background) { T_R2D_SHAPE_PTR clip; T_R2D_RECTANGLE *r; // INT16 tmp; clip=((T_R2D_GC*)gc)->p_s_clipping_shape; r=(T_R2D_RECTANGLE*)clip; if ((x>=r2d_get_xmin(clip)) && ( x<r2d_get_xmax(clip))) { if (y<r2d_get_ymin(clip)) { nb-=r2d_get_ymin(clip)-y; y=r2d_get_ymin(clip); } if (y+nb-1>=r2d_get_ymax(clip)) nb=r2d_get_ymax(clip)-y; if (nb>0) IND_r2d_write_lcd_line(gc,x,y,nb,background); } } // Used for filling // Do clipping and coordinate transforms then call // low levl line filling algorithm // No mirroring check since it is a low level routine // S COORDINATES static void r2d_s_arc_fill_line(T_R2D_GC_PTR gc,INT16 x,INT16 y, INT16 org_x,INT16 org_y,INT16 nb,T_R2D_ARC_REGION *rgn,BOOLEAN background) { T_R2D_SHAPE_PTR clip; T_R2D_RECTANGLE *r; // INT16 tmp; clip=((T_R2D_GC*)gc)->p_s_clipping_shape; r=(T_R2D_RECTANGLE*)clip; if ((x>=r2d_get_xmin(clip)) && ( x<r2d_get_xmax(clip))) { if (y<r2d_get_ymin(clip)) { nb-=r2d_get_ymin(clip)-y; y=r2d_get_ymin(clip); } if (y+nb-1>=r2d_get_ymax(clip)) nb=r2d_get_ymax(clip)-y; if (nb>0) r2d_arc_write_lcd_line(gc,x,y,org_x,org_y,nb,rgn,background); } } // S coordinates static void r2d_s_fill_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,BOOLEAN background) { INT16 i; // The ifdef is not passing the coordinates to S frame. // It just changing the way the square is scanned // to improve behavior relatively to the scanning mode. for(i=ul_x+1;i<=br_x-1;i++) { r2d_s_fill_line(gc,i,ul_y+1,(br_y-ul_y)+1-2,background); } } // Background allows to chose the color for filling // If TRUE, background color is used // (required for pen_size different from 1) // L coordinates static void r2d_df_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,BOOLEAN background) { INT16 i; // The ifdef is not passing the coordinates to S frame. // It just changing the way the square is scanned // to improve behavior relatively to the scanning mode. #if (R2D_REFRESH==R2D_VERTICAL) for(i=ul_x+1;i<=br_x-1;i++) { r2d_s_fill_line(gc,i,ul_y+1,(br_y-ul_y)+1-2,background); } #else for(i=ul_y+1;i<=br_y-1;i++) { r2d_s_fill_line(gc,i,ul_x+1,(br_x-ul_x)+1-2,background); } #endif } void r2d_draw_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { r2d_moveto(gc,ul_x,ul_y); r2d_lineto(gc,br_x,ul_y); r2d_moveto(gc,br_x,ul_y+1); r2d_lineto(gc,br_x,br_y); r2d_moveto(gc,br_x-1,br_y); r2d_lineto(gc,ul_x,br_y); r2d_moveto(gc,ul_x,ul_y+1); r2d_lineto(gc,ul_x,br_y-1); } void r2d_fill_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); #endif r2d_df_rectangle(gc,ul_x,ul_y,br_x,br_y,TRUE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); r2d_check_and_send_event(gc); } void r2d_df_circle(T_R2D_GC_PTR gc, INT16 x,INT16 y,INT16 r,BOOLEAN filling) { INT32 current_x,current_y,my,mx; INT32 dn,dnp,dnn,org_x,org_y,limit,rs,tmp,D_yx; INT32 l; INT32 p; // perimeter divided by 4 l=0; p=(PI*r)>>1; #if (R2D_REFRESH==R2D_VERTICAL) current_x=y; current_y=x+r; org_x=y; org_y=x; #else current_x=x; current_y=y+r; org_x=x; org_y=y; #endif D_yx=org_y-org_x; dnp=((-r) << 1) + 5; dnn=3; dn=-r; rs=r*r; limit=-r; tmp=1; while(limit<=0) { // Some points are their own image with symetries // and yet they must not be drawn twice for drawing // modes other than copy hence the tests my=(org_y << 1) - current_y; mx=(org_x << 1) - current_x; // PY or PX is reflection relatively to horizontal line or vertical line // PY = vertical mirroring where bottom becomes top // D = diagonal mirroring // AB means apply transform A then B // I is identity // Everything is done relatively to what is displayed on the LCD // so my may be PX according to the refresh mode if (!filling) { if (mx != current_x) { r2d_s_draw_point(gc,current_y,current_x,l); // I : 3 r2d_s_draw_point(gc,mx+D_yx,current_y-D_yx,l); // D PX : 5 r2d_s_draw_point(gc,my,mx,l); // PX.PY : 7 r2d_s_draw_point(gc,current_x+D_yx,my-D_yx,l); // D PY : 1 } if (current_x != current_y) { r2d_s_draw_point(gc,current_x+D_yx,current_y-D_yx,l+p); // D : 4 r2d_s_draw_point(gc,current_y,mx,l+p); // PY : 2 } if ((mx != my) || (current_x != current_y)) r2d_s_draw_point(gc,my,current_x,l+p); // PX : 6 if (mx != my) r2d_s_draw_point(gc,mx+D_yx,my-D_yx,l+p); // D PX PY : 8 } else { //printf("%d\n",current_x); if (tmp) { if (current_x-mx!=0) { r2d_s_fill_line(gc,my,mx+1,(current_x-mx)+1-2,TRUE); r2d_s_fill_line(gc,current_y,mx+1,(current_x-mx)+1-2,TRUE); } } if (mx != my) { r2d_s_fill_line(gc,mx+D_yx,my+1-D_yx,(current_y-my)+1-2,TRUE); if (current_x != mx); r2d_s_fill_line(gc,current_x+D_yx,my+1-D_yx,(current_y-my)+1-2,TRUE); } } if (dn>0) // M outside circle, point below must be drawn { dn+=dnp; dnp+=4; current_y--; l+=SQRT2; limit+=2; tmp=1; } else { dn+=dnn; dnp+=2; limit+=1; tmp=0; l+=0x10000; } current_x++; dnn+=2; } //printf("%08X\n",limit); } void r2d_draw_circle(T_R2D_GC_PTR gc, INT16 x,INT16 y,INT16 r) { r2d_local_to_global(gc,&x,&y); #ifdef R2D_MIRRORED_X x = r2d_get_width(gc)-1-x; #endif #ifdef R2D_MIRRORED_Y y = r2d_get_height(gc)-1-y; #endif r2d_df_circle(gc,x,y,r,FALSE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,x-r,y-r,x+r,y+r); r2d_check_and_send_event(gc); } void r2d_fill_circle(T_R2D_GC_PTR gc, INT16 x,INT16 y,INT16 r) { r2d_local_to_global(gc,&x,&y); #ifdef R2D_MIRRORED_X x = r2d_get_width(gc)-1-x; #endif #ifdef R2D_MIRRORED_Y y = r2d_get_height(gc)-1-y; #endif r2d_df_circle(gc,x,y,r,TRUE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,x-r,y-r,x+r,y+r); r2d_check_and_send_event(gc); } // h and v are used to draw roundrectangle (each piece of the ellipse must be // separated from other parts) void r2d_df_ellipse(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y, INT16 h,INT16 v,BOOLEAN filling) { INT32 current_x,current_y,limit,newx,newy,org_x,org_y; INT32 dn,dnp,dnn,as,bs,tmp,a,b,mx,my,lastx,lasty,round; INT32 l; l=0; if ((h!=0) || (v!=0)) round=1; else round=0; // Width of rectangle is assumed to be even // and it is forced to even dimension #if (R2D_REFRESH==R2D_VERTICAL) org_x=(ul_y + br_y)>>1; org_y=(br_x + ul_x)>>1; a=(br_y-ul_y)>>1; as=R2D_SQUARE_P(a); b=(br_x-ul_x)>>1; bs=R2D_SQUARE_P(b); current_x=org_x ; current_y=org_y+b; newx=org_y; newy=org_x+a; #else org_x=(ul_x + br_x)>>1; org_y=(br_y + ul_y)>>1; b=(br_y-ul_y)>>1; bs=R2D_SQUARE_P(b); a=(br_x-ul_x)>>1; as=R2D_SQUARE_P(a); current_x=org_x; current_y=org_y+b; newx=org_y; newy=org_x+a; R2D_SWAP(h,v); #endif // Now, shift by 2 to have the accuracy required by division by four //printf("current_x=%d, current_y=%d,as=%08X bs=%08X\n",current_x,current_y,as,bs); // New shift by 2 because one needs to compute quarter of values bs<<=2; as <<=2;b<<=2;a<<=2; limit = - ((as * b) >> 2); // -a^2 * b in Q2 tmp=-((as * b) >> 2); dnp=(bs << 1) + bs + (tmp<<1) + (as << 1); dnn=(bs << 1) + bs; dn=bs + tmp + (as >>2); //printf("dn=%f dnp=%f dnn=%f\n",dn / 8.0,dnp / 8.0,dnn / 8.0); /*#if (R2D_REFRESH==R2D_VERTICAL) r2d_draw_point(gc,current_y,current_x); #else r2d_draw_point(gc,current_x,current_y); #endif*/ //printf("as=%08X bs=%08X\n",as,bs); tmp=1; while(limit<=0) { my=(org_y << 1) - current_y; mx=(org_x << 1) - current_x; lastx=current_y; lasty=current_x; if (!filling) { r2d_s_draw_point(gc,(current_y)+h,(current_x)+v,l); // I : 1 r2d_s_draw_point(gc,my,mx,l); // PX PY : 2 if ((mx != current_x) || (round)) { r2d_s_draw_point(gc,(current_y)+h,mx,l); // PY : 3 r2d_s_draw_point(gc,my,current_x+v,l); // PX : 4 } } else { if (tmp) { // Used to remove point on horizontal extremity if (current_x+v-mx !=0) { r2d_s_fill_line(gc,my,mx+1,(current_x+v-mx)+1-2,TRUE); r2d_s_fill_line(gc,current_y+h,mx+1,(current_x+v-mx)+1-2,TRUE); } } } if (dn>=0) // M outside circle, point below must be drawn { dn+=dnp; dnp+=((bs + as) << 1); current_y--; limit+=(as + bs); tmp=1; l+=SQRT2; } else { dn+=dnn; dnp+=(bs << 1); limit+=bs; tmp=0; l+=0x10000; } current_x++; dnn+=(bs << 1); //printf("limit=%f, dn=%f,dnn=%f,dnp=%f, pos= %d %d\n",limit / 4.0,dn / 4.0,dnn / 4.0,dnp / //4.0,current_y,current_x); } current_x=newx; current_y=newy; R2D_SWAP(as,bs); R2D_SWAP(a,b); limit = - ((as * b) >> 2); tmp=-((as * b) >> 2); dnp=(bs << 1) + bs + (tmp<<1) + (as << 1); dnn=(bs << 1) + bs; dn=bs + tmp + (as >>2); //printf("newx=%d, newy=%d,a=%d,b=%d\n",newx,newy,a,b); //printf("dn=%f dnp=%f dnn=%f\n",dn / 4.0,dnp / 4.0,dnn / 4.0); tmp=1; /* #if (R2D_REFRESH==R2D_VERTICAL) r2d_draw_point(gc,current_x,current_y); #else r2d_draw_point(gc,current_y,current_x); #endif*/ while(limit<0) { my=(org_x << 1) - current_y; mx=(org_y << 1) - current_x; if (!filling) { if ((lastx!=current_x) || (lasty!=current_y)) { r2d_s_draw_point(gc,(current_x)+h,(current_y)+v,l); // D : 5 r2d_s_draw_point(gc,mx,my,l); // D PX PY : 6 if ((mx != (current_x+h)) || (round)) { r2d_s_draw_point(gc,(current_x)+h,my,l); // D PY : 7 r2d_s_draw_point(gc,mx,(current_y)+v,l); // D PX : 8 } } } else { if (current_x != lastx) { r2d_s_fill_line(gc,mx,my+1,(current_y+v-my)+1-2,TRUE); if ((current_x+h) !=mx) r2d_s_fill_line(gc,current_x+h,my+1,(current_y+v-my)+1-2,TRUE); } } if (dn>0) // M outside circle, point below must be drawn { dn+=dnp; dnp+=((bs + as) << 1); current_y--; // Q1 limit+=(as + bs); tmp=1; l+=SQRT2; } else { dn+=dnn; dnp+=(bs << 1); limit+=bs; tmp=0; l+=0x10000; } current_x++; // Q1 dnn+=(bs << 1); //printf("limit=%f, dn=%f,dnn=%f,dnp=%f, pos= %d %d\n",limit / 4.0,dn / 4.0,dnn / 4.0,dnp / 4.0,current_y,current_x); } } void r2d_draw_ellipse(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); #endif r2d_df_ellipse(gc,ul_x,ul_y,br_x,br_y,0,0,FALSE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); r2d_check_and_send_event(gc); } void r2d_fill_ellipse(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); #endif r2d_df_ellipse(gc,ul_x,ul_y,br_x,br_y,0,0,TRUE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); r2d_check_and_send_event(gc); } void r2d_draw_round_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,INT16 h,INT16 v) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif r2d_moveto(gc,ul_x+h+1,ul_y); r2d_lineto(gc,br_x-h-1,ul_y); r2d_moveto(gc,ul_x+h+1,br_y); r2d_lineto(gc,br_x-h-1,br_y); r2d_moveto(gc,ul_x,ul_y+v+1); r2d_lineto(gc,ul_x,br_y-v-1); r2d_moveto(gc,br_x,ul_y+v+1); r2d_lineto(gc,br_x,br_y-v-1); r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); #endif r2d_df_ellipse(gc,ul_x,ul_y,ul_x+(h<<1),ul_y+(v<<1),(br_x - ul_x) - (h<<1),(br_y - ul_y) - (v<<1),FALSE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); //printf("%d %d\n",ul_x+h+1,br_x-h-1); r2d_check_and_send_event(gc); } void r2d_fill_round_rectangle(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,INT16 h,INT16 v) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); #endif r2d_df_ellipse(gc,ul_x,ul_y,ul_x+(h<<1),ul_y+(v<<1),(br_x - ul_x) - (h<<1),(br_y - ul_y) - (v<<1),TRUE); #if (R2D_REFRESH == R2D_VERTICAL) r2d_df_rectangle(gc,ul_x+h,ul_y,br_x-h+1,br_y,TRUE); #else r2d_df_rectangle(gc,ul_x,ul_y+v,br_x,br_y-v+1,TRUE); #endif if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); //printf("%d %d\n",ul_x+h+1,br_x-h-1); /*r2d_moveto(gc,ul_x+h+1,ul_y); r2d_lineto(gc,br_x-h-1,ul_y); r2d_moveto(gc,ul_x+h+1,br_y); r2d_lineto(gc,br_x-h-1,br_y); r2d_moveto(gc,ul_x,ul_y+v+1); r2d_lineto(gc,ul_x,br_y-v-1); r2d_moveto(gc,br_x,ul_y+v+1); r2d_lineto(gc,br_x,br_y-v-1);*/ r2d_check_and_send_event(gc); } // angle must be between 0 and 359 static INT32 r2d_cos(INT16 angle) { if (angle<=90) return(r2d_cos_table[angle]); else if (angle<=180) return(-r2d_cos_table[180-angle]); else if (angle<=270) return(-r2d_cos_table[angle-180]); else return(r2d_cos_table[360-angle]); } // angle must be between 0 and 359 static INT32 r2d_sin(INT16 angle) { angle=angle+90; if (angle>=360) angle=angle-360; return(-r2d_cos(angle)); } static void r2d_check_angles(INT16 *start,INT16 *stop) { // INT16 tmp; while(*start<0) *start+=360; while(*start>=360) *start-=360; while(*stop<0) *stop+=360; while(*stop>=360) *stop-=360; //if (*start>*stop) //{ // R2D_SWAP((*start),(*stop)); //} } void r2d_df_arc(T_R2D_GC_PTR gc, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y,T_R2D_ARC_REGION *rgn ,BOOLEAN filling) { INT32 current_x,current_y,limit,newx,newy,org_x,org_y; INT32 dn,dnp,dnn,as,bs,tmp,a,b,mx,my,lastx,lasty; INT32 l; l=0; // Width of rectangle is assumed to be even // and it is forced to even dimension if (rgn->is_null) goto end_arc; #if (R2D_REFRESH==R2D_VERTICAL) org_x=(ul_y + br_y)>>1; org_y=(br_x + ul_x)>>1; a=(br_y-ul_y)>>1; as=R2D_SQUARE_P(a); b=(br_x-ul_x)>>1; bs=R2D_SQUARE_P(b); current_x=org_x ; current_y=org_y+b; newx=org_y; newy=org_x+a; #else org_x=(ul_x + br_x)>>1; org_y=(br_y + ul_y)>>1; b=(br_y-ul_y)>>1; bs=R2D_SQUARE_P(b); a=(br_x-ul_x)>>1; as=R2D_SQUARE_P(a); current_x=org_x; current_y=org_y+b; newx=org_y; newy=org_x+a; r2d_arc_region_diagonal_reflect(rgn); r2d_arc_region_x_reflect(rgn); r2d_arc_region_y_reflect(rgn); #endif // Orthogonal is (eb,-ea) //r2d_s_draw_point(gc,org_y,org_x); //r2d_s_draw_point(gc,((rgn->sa)>>16)+org_y,((rgn->sb)>>16)+org_x); //r2d_s_draw_point(gc,((rgn->sb)>>16)+org_y,((-rgn->sa)>>16)+org_x); //r2d_s_draw_point(gc,((rgn->ea)>>16)+org_y,((rgn->eb)>>16)+org_x); //goto end_arc; // Now, shift by 2 to have the accuracy required by division by four //printf("current_x=%d, current_y=%d,as=%08X bs=%08X\n",current_x,current_y,as,bs); // New shift by 2 because one needs to compute quarter of values bs<<=2; as <<=2;b<<=2;a<<=2; limit = - ((as * b) >> 2); // -a^2 * b in Q2 tmp=-((as * b) >> 2); dnp=(bs << 1) + bs + (tmp<<1) + (as << 1); dnn=(bs << 1) + bs; dn=bs + tmp + (as >>2); //printf("dn=%f dnp=%f dnn=%f\n",dn / 8.0,dnp / 8.0,dnn / 8.0); /*#if (R2D_REFRESH==R2D_VERTICAL) r2d_draw_point(gc,current_y,current_x); #else r2d_draw_point(gc,current_x,current_y); #endif*/ //printf("as=%08X bs=%08X\n",as,bs); tmp=1; while(limit<=0) { my=(org_y << 1) - current_y; mx=(org_x << 1) - current_x; lastx=current_y; lasty=current_x; if (!filling) { if (r2d_check_is_in_arc_region(current_y-org_y,current_x-org_x,rgn)) r2d_s_draw_point(gc,(current_y),(current_x),l); // I : 1 if (r2d_check_is_in_arc_region(my-org_y,mx-org_x,rgn)) r2d_s_draw_point(gc,my,mx,l); // PX PY : 2 if ((mx != current_x) ) { if (r2d_check_is_in_arc_region(current_y-org_y,mx-org_x,rgn)) r2d_s_draw_point(gc,current_y,mx,l); // PY : 3 if (r2d_check_is_in_arc_region(my-org_y,current_x-org_x,rgn)) r2d_s_draw_point(gc,my,current_x,l); // PX : 4 } } else { if (tmp) { // Used to remove point on horizontal extremity if (current_x-mx !=0) { r2d_s_arc_fill_line(gc,my,mx+1,org_y,org_x,(current_x-mx)+1-2 ,rgn,TRUE); r2d_s_arc_fill_line(gc,current_y,mx+1,org_y,org_x,(current_x-mx)+1-2 ,rgn,TRUE); } } } if (dn>=0) // M outside circle, point below must be drawn { dn+=dnp; dnp+=((bs + as) << 1); current_y--; limit+=(as + bs); tmp=1; l+=SQRT2; } else { dn+=dnn; dnp+=(bs << 1); limit+=bs; tmp=0; l+=0x10000; } current_x++; dnn+=(bs << 1); //printf("limit=%f, dn=%f,dnn=%f,dnp=%f, pos= %d %d\n",limit / 4.0,dn / 4.0,dnn / 4.0,dnp / //4.0,current_y,current_x); } current_x=newx; current_y=newy; R2D_SWAP(as,bs); R2D_SWAP(a,b); limit = - ((as * b) >> 2); tmp=-((as * b) >> 2); dnp=(bs << 1) + bs + (tmp<<1) + (as << 1); dnn=(bs << 1) + bs; dn=bs + tmp + (as >>2); //printf("newx=%d, newy=%d,a=%d,b=%d\n",newx,newy,a,b); //printf("dn=%f dnp=%f dnn=%f\n",dn / 4.0,dnp / 4.0,dnn / 4.0); tmp=1; /* #if (R2D_REFRESH==R2D_VERTICAL) r2d_draw_point(gc,current_x,current_y); #else r2d_draw_point(gc,current_y,current_x); #endif*/ while(limit<0) { my=(org_x << 1) - current_y; mx=(org_y << 1) - current_x; if (!filling) { if ((lastx!=current_x) || (lasty!=current_y)) { if (r2d_check_is_in_arc_region(current_x-org_y,current_y-org_x,rgn)) r2d_s_draw_point(gc,(current_x),(current_y),l); // D : 5 if (r2d_check_is_in_arc_region(mx-org_y,my-org_x,rgn)) r2d_s_draw_point(gc,mx,my,l); // D PX PY : 6 if ((mx != current_x) ) { if (r2d_check_is_in_arc_region(current_x-org_y,my-org_x,rgn)) r2d_s_draw_point(gc,(current_x),my,l); // D PY : 7 if (r2d_check_is_in_arc_region(mx-org_y,current_y-org_x,rgn)) r2d_s_draw_point(gc,mx,(current_y),l); // D PX : 8 } } } else { if (current_x != lastx) { r2d_s_arc_fill_line(gc,mx,my+1,org_y,org_x,(current_y-my)+1-2 ,rgn,TRUE); if (current_x !=mx) r2d_s_arc_fill_line(gc,current_x,my+1,org_y,org_x,(current_y-my)+1-2 ,rgn,TRUE); } } if (dn>0) // M outside circle, point below must be drawn { dn+=dnp; dnp+=((bs + as) << 1); current_y--; // Q1 limit+=(as + bs); tmp=1; l+=SQRT2; } else { dn+=dnn; dnp+=(bs << 1); limit+=bs; tmp=0; l+=0x10000; } current_x++; // Q1 dnn+=(bs << 1); //printf("limit=%f, dn=%f,dnn=%f,dnp=%f, pos= %d %d\n",limit / 4.0,dn / 4.0,dnn / 4.0,dnp / 4.0,current_y,current_x); } end_arc: current_x=0; } void r2d_draw_arc(T_R2D_GC_PTR gc,INT16 start_angle,INT16 stop_angle, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif BOOLEAN large=FALSE; T_R2D_ARC_REGION rgn; INT32 sa,sb,ea,eb; INT32 a,b; a=(br_x-ul_x)>>1; b=(br_y-ul_y)>>1; r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); rgn.one_sector=0; if (stop_angle-start_angle>180) rgn.one_sector=1; if (stop_angle-start_angle==360) rgn.one_sector=2; if (start_angle==stop_angle) rgn.is_null=TRUE; else rgn.is_null=FALSE; r2d_check_angles(&start_angle,&stop_angle); sa=a * r2d_cos(start_angle); // Q16 sb= -b* r2d_sin(start_angle); // Q16 // Orthogonal is (sb,-sa) ea= a * r2d_cos(stop_angle); // Q16 eb= -b* r2d_sin(stop_angle); // Q16 // Orthogonal is (-sb,sa) //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(sa>>16),ul_y+b+(sb>>16)); // Orthogonal //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(sb>>16),ul_y+b+((-sa)>>16)); //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(ea>>16),ul_y+b+(eb>>16)); rgn.sa=sa; rgn.sb=sb; rgn.ea=-ea; rgn.eb=-eb; #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); r2d_arc_region_x_reflect(&rgn); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); r2d_arc_region_y_reflect(&rgn); #endif r2d_df_arc(gc,ul_x,ul_y,br_x,br_y,&rgn,FALSE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); r2d_check_and_send_event(gc); } void r2d_fill_arc(T_R2D_GC_PTR gc, INT16 start_angle,INT16 stop_angle, INT16 ul_x,INT16 ul_y,INT16 br_x, INT16 br_y) { #ifdef R2D_MIRRORED_X INT16 tmp; #endif BOOLEAN large=FALSE; T_R2D_ARC_REGION rgn; INT32 sa,sb,ea,eb; INT32 a,b; a=(br_x-ul_x)>>1; b=(br_y-ul_y)>>1; r2d_local_to_global(gc,&ul_x,&ul_y); r2d_local_to_global(gc,&br_x,&br_y); rgn.one_sector=0; if (stop_angle-start_angle>180) rgn.one_sector=1; if (stop_angle-start_angle==360) rgn.one_sector=2; if (start_angle==stop_angle) rgn.is_null=TRUE; else rgn.is_null=FALSE; r2d_check_angles(&start_angle,&stop_angle); sa=a * r2d_cos(start_angle); // Q16 sb= -b* r2d_sin(start_angle); // Q16 // Orthogonal is (sb,-sa) ea= a * r2d_cos(stop_angle); // Q16 eb= -b* r2d_sin(stop_angle); // Q16 // Orthogonal is (-sb,sa) //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(sa>>16),ul_y+b+(sb>>16)); // Orthogonal //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(sb>>16),ul_y+b+((-sa)>>16)); //r2d_moveto(gc,ul_x+a,ul_y+b); //r2d_lineto(gc,ul_x+a+(ea>>16),ul_y+b+(eb>>16)); rgn.sa=sa; rgn.sb=sb; rgn.ea=-ea; rgn.eb=-eb; #ifdef R2D_MIRRORED_X ul_x = r2d_get_width(gc)-1-ul_x; br_x = r2d_get_width(gc)-1-br_x; R2D_SWAP(ul_x,br_x); r2d_arc_region_x_reflect(&rgn); #endif #ifdef R2D_MIRRORED_Y ul_y = r2d_get_height(gc)-1-ul_y; br_y = r2d_get_height(gc)-1-br_y; R2D_SWAP(ul_y,br_y); r2d_arc_region_y_reflect(&rgn); #endif r2d_df_arc(gc,ul_x,ul_y,br_x,br_y,&rgn,TRUE); if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)gc,ul_x,ul_y,br_x,br_y); r2d_check_and_send_event(gc); } /////////////////////////////////////// // // Copy function // static void r2d_diagonal_mirror(T_R2D_SHAPE_PTR rectangle) { T_R2D_RECTANGLE *r; INT16 tmp; r=(T_R2D_RECTANGLE *)rectangle; tmp=r->ul_x; r->ul_x=r->ul_y; r->ul_y=tmp; tmp=r->br_x; r->br_x=r->br_y; r->br_y=tmp; } // Global coordinates static void r2d_mirror_rectangle(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR rectangle) { T_R2D_RECTANGLE *r; //INT16 org_x,org_y; #ifdef R2D_MIRRORED_X INT16 tmp; #endif r=(T_R2D_RECTANGLE *)rectangle; #ifdef R2D_MIRRORED_X r->ul_x = r2d_get_width(gc)-r->ul_x; r->br_x = r2d_get_width(gc)-r->br_x; tmp=r->ul_x; r->ul_x=r->br_x; r->br_x=tmp; #endif #ifdef R2D_MIRRORED_Y r->ul_y = r2d_get_height(gc)-r->ul_y; r->br_y = r2d_get_height(gc)-r->br_y; tmp=r->ul_y; r->ul_y=r->br_y; r->br_y=tmp; #endif } // Global coordinates // Here a rectangle with clipping convention is mirrored // The resulting rectangle (s_clipping) is used with drawing // convention. So, the boundary must be updated static void r2d_mirror_clip_rectangle(T_R2D_GC_PTR gc,T_R2D_SHAPE_PTR rectangle) { T_R2D_RECTANGLE *r; // INT16 org_x,org_y; #ifdef R2D_MIRRORED_X INT16 tmp; #endif r=(T_R2D_RECTANGLE *)rectangle; //Be careful br_x is NOT a line wich must be drawn #ifdef R2D_MIRRORED_X r->ul_x = r2d_get_width(gc)-r->ul_x+1; r->br_x = r2d_get_width(gc)-(r->br_x-1); tmp=r->ul_x; r->ul_x=r->br_x; r->br_x=tmp; #endif #ifdef R2D_MIRRORED_Y r->ul_y = r2d_get_height(gc)-r->ul_y+1; r->br_y = r2d_get_height(gc)-(r->br_y-1); tmp=r->ul_y; r->ul_y=r->br_y; r->br_y=tmp; #endif } // Compute the intersection of the clipping shape of srcGc with // the srcRectangle. Report he size reduction onto dstRectangle. // Compute the intersection between dstRectangle and the clipping rectangle // of dstGc and report the size reduction to srcRectangle. // At the end, one get two rectangles of same size. // The first one is contained in the clipping shape of srcGc // and the second one in the clipping shape of dstGc. // If the result is null, false is returned and no copy is done // The rectangles are modified. static BOOLEAN r2d_clipped_is_not_null(T_R2D_GC* src_gc,T_R2D_GC *dst_gc, T_R2D_RECTANGLE* src_rectangle,T_R2D_RECTANGLE* dst_rectangle) { BOOLEAN result=TRUE; //CC : clipping coordinate , RC : rectangle coordinate INT16 delta,CC,RC; #if (R2D_DEBUG == R2D_ON) #if (R2D_DEBUG_WARNING == R2D_DEBUG_HIGH) if (src_gc->p_clipping_shape==NULL) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); if (dst_gc->p_clipping_shape==NULL) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); #endif #endif //T_R2D_RECTANGLE *debug; //debug=(T_R2D_RECTANGLE*)src_gc->p_clipping_shape; // Intersections in src context CC=r2d_get_xmin(src_gc->p_clipping_shape); RC=r2d_get_xmin(src_rectangle); if ( CC > RC) { delta=CC-RC; src_rectangle->ul_x=CC; dst_rectangle->ul_x+=delta; } CC=r2d_get_xmax(src_gc->p_clipping_shape); RC=r2d_get_xmax(src_rectangle); if ( RC > CC) { delta=RC-CC; src_rectangle->br_x=CC; dst_rectangle->br_x-=delta; } CC=r2d_get_ymin(src_gc->p_clipping_shape); RC=r2d_get_ymin(src_rectangle); if ( CC > RC) { delta=CC-RC; src_rectangle->ul_y=CC; dst_rectangle->ul_y+=delta; } CC=r2d_get_ymax(src_gc->p_clipping_shape); RC=r2d_get_ymax(src_rectangle); if ( RC > CC) { delta=RC-CC; src_rectangle->br_y=CC; dst_rectangle->br_y-=delta; } // Intersection in dst context CC=r2d_get_xmin(dst_gc->p_clipping_shape); RC=r2d_get_xmin(dst_rectangle); if ( CC > RC) { delta=CC-RC; dst_rectangle->ul_x=CC; src_rectangle->ul_x+=delta; } CC=r2d_get_xmax(dst_gc->p_clipping_shape); RC=r2d_get_xmax(dst_rectangle); if ( RC > CC) { delta=RC-CC; dst_rectangle->br_x=CC; src_rectangle->br_x-=delta; } CC=r2d_get_ymin(dst_gc->p_clipping_shape); RC=r2d_get_ymin(dst_rectangle); if ( CC > RC) { delta=CC-RC; dst_rectangle->ul_y=CC; src_rectangle->ul_y+=delta; } CC=r2d_get_ymax(dst_gc->p_clipping_shape); RC=r2d_get_ymax(dst_rectangle); if ( RC > CC) { delta=RC-CC; dst_rectangle->br_y=CC; src_rectangle->br_y-=delta; } if (src_rectangle->ul_x>=src_rectangle->br_x) result=FALSE; if (src_rectangle->ul_y>=src_rectangle->br_y) result=FALSE; if (result) { /*printf("src: (%d,%d) -- (%d,%d)\n",src_rectangle->ul_x,src_rectangle->ul_y ,src_rectangle->br_x,src_rectangle->br_y); printf("dst: (%d,%d) -- (%d,%d)\n",dst_rectangle->ul_x,dst_rectangle->ul_y ,dst_rectangle->br_x,dst_rectangle->br_y);*/ // Conversion of clipped rectangles to framebuffer coordinates r2d_local_to_global(src_gc,&(src_rectangle->ul_x),&(src_rectangle->ul_y)); r2d_local_to_global(src_gc,&(src_rectangle->br_x),&(src_rectangle->br_y)); r2d_local_to_global(dst_gc,&(dst_rectangle->ul_x),&(dst_rectangle->ul_y)); r2d_local_to_global(dst_gc,&(dst_rectangle->br_x),&(dst_rectangle->br_y)); #if (R2D_DEBUG == R2D_ON) #if (R2D_DEBUG_WARNING == R2D_DEBUG_HIGH) if (src_rectangle->ul_x<0) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (src_rectangle->ul_y<0) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (dst_rectangle->ul_x<0) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (dst_rectangle->ul_y<0) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (src_rectangle->br_x>r2d_get_width(src_gc)) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (src_rectangle->br_y>r2d_get_height(src_gc)) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (dst_rectangle->br_x>r2d_get_width(dst_gc)) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); if (dst_rectangle->br_y>r2d_get_height(dst_gc)) rvf_send_trace("R2D : clipping shape error",26, NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); #endif #endif /*printf("src: (%d,%d) -- (%d,%d)\n",src_rectangle->ul_x,src_rectangle->ul_y ,src_rectangle->br_x,src_rectangle->br_y); printf("dst: (%d,%d) -- (%d,%d)\n",dst_rectangle->ul_x,dst_rectangle->ul_y ,dst_rectangle->br_x,dst_rectangle->br_y);*/ } return(result); } T_R2D_ERROR r2d_low_level_blit_rect(T_R2D_GC_PTR src_gc,T_R2D_GC_PTR dst_gc, T_R2D_SHAPE_PTR org_src_rectangle, T_R2D_SHAPE_PTR org_dst_rectangle, BOOLEAN src_mirrored,BOOLEAN dst_mirrored, BOOLEAN use_foreground_color) { INT16 kind_src,kind_dst,org_bx,org_by,org_ux,org_uy; #if (R2D_ASM == R2D_ON) T_R2D_DRAWING_MODE mode; #endif T_R2D_SHAPE_PTR src_rectangle,dst_rectangle; #if (R2D_DEBUG == R2D_ON) #if (R2D_DEBUG_WARNING == R2D_DEBUG_HIGH) if (src_gc==NULL) { rvf_send_trace("src_gc NULL",11, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); rvf_delay(RVF_SECS_TO_TICKS(1)); } if (dst_gc==NULL) { rvf_send_trace("dst_gc NULL",11, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); rvf_delay(RVF_SECS_TO_TICKS(1));\ } if (org_src_rectangle==NULL) { rvf_send_trace("org_src NULL",12, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); rvf_delay(RVF_SECS_TO_TICKS(1));\ } if (org_dst_rectangle==NULL) { rvf_send_trace("org_dst NULL",12, NULL_PARAM, RV_TRACE_LEVEL_ERROR, r2d_use_id ); rvf_delay(RVF_SECS_TO_TICKS(1));\ } #endif #endif src_rectangle=r2d_clone_shape(r2d_mb_id,org_src_rectangle); if (src_rectangle==NULL) return(R2D_MEMORY_ERR); dst_rectangle=r2d_clone_shape(r2d_mb_id,org_dst_rectangle); if (dst_rectangle==NULL) { r2d_release_shape(src_rectangle); return(R2D_MEMORY_ERR); } r2d_disable_refresh(); org_bx=((T_R2D_RECT*)src_rectangle)->br_x; org_by=((T_R2D_RECT*)src_rectangle)->br_y; org_ux=((T_R2D_RECT*)src_rectangle)->ul_x; org_uy=((T_R2D_RECT*)src_rectangle)->ul_y; r2d_local_to_global(src_gc,&org_ux,&org_uy); r2d_local_to_global(src_gc,&org_bx,&org_by); if (r2d_clipped_is_not_null(src_gc,dst_gc,src_rectangle,dst_rectangle)) { // Rects are now clipped and in global coordinates if (src_mirrored) r2d_mirror_rectangle(src_gc,src_rectangle); if (dst_mirrored) r2d_mirror_rectangle(dst_gc,dst_rectangle); // In that case we are drawing text. // If dst rect clipped by the right side, the src must be shifted to // the start of the char // and must not remained aligned with the end of the char // (don't forget that since char is drawn with mirror its start // is corresponding to the right and bottom side of the bounding // rectangle) // There is the dual problem when the dst rect is clipped by the // left side if ((dst_mirrored) && (!src_mirrored)) { INT16 dbx,dby,dux,duy; dbx=0; dux=0; dby=0; duy=0; #ifdef R2D_MIRRORED_X dbx=org_bx-((T_R2D_RECT*)src_rectangle)->br_x; dux=org_ux-((T_R2D_RECT*)src_rectangle)->ul_x; #endif #ifdef R2D_MIRRORED_Y dby=org_by-((T_R2D_RECT*)src_rectangle)->br_y; duy=org_uy-((T_R2D_RECT*)src_rectangle)->ul_y; #endif r2d_translate_shape(src_rectangle,dbx,dby); r2d_translate_shape(src_rectangle,dux,duy); } // After mirrong one is in L coordinates if (((T_R2D_FRAMEBUFFER*)((T_R2D_GC*)dst_gc)->p_frame_buffer)->kind==0) r2d_update_region((T_R2D_GC*)dst_gc,r2d_get_xmin(dst_rectangle), r2d_get_ymin(dst_rectangle), r2d_get_xmax(dst_rectangle), r2d_get_ymax(dst_rectangle)); #if (R2D_REFRESH != R2D_VERTICAL) r2d_diagonal_mirror(src_rectangle); r2d_diagonal_mirror(dst_rectangle); #endif // After swap one is in S coordinates kind_src=((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)src_gc)->p_frame_buffer))->kind; kind_dst=((T_R2D_FRAMEBUFFER*)(((T_R2D_GC*)dst_gc)->p_frame_buffer))->kind; #if (R2D_ASM == R2D_OFF) if ((kind_src!=R2D_FULL_KIND) && (kind_dst!=R2D_FULL_KIND)) IND_r2d_blit_lcd_to_lcd(src_gc,dst_gc,src_rectangle,dst_rectangle,use_foreground_color); else if ((kind_src==R2D_FULL_KIND) && (kind_dst==R2D_FULL_KIND)) IND_r2d_blit_color_to_color(src_gc,dst_gc,src_rectangle,dst_rectangle,use_foreground_color); else if ((kind_src!=R2D_FULL_KIND) && (kind_dst==R2D_FULL_KIND)) IND_r2d_blit_lcd_to_color(src_gc,dst_gc,src_rectangle,dst_rectangle,use_foreground_color); else if ((kind_src==R2D_FULL_KIND) && (kind_dst!=R2D_FULL_KIND)) IND_r2d_blit_color_to_lcd(src_gc,dst_gc,src_rectangle,dst_rectangle,use_foreground_color); #else mode=(((T_R2D_GC*)dst_gc))->drawing_mode; rvf_lock_mutex(r2d_g_blit_mutex); if ((kind_src!=R2D_FULL_KIND) && (kind_dst!=R2D_FULL_KIND)) { r2d_patch_blit(dst_gc,mode, use_foreground_color,R2D_LCDLCD); r2d_blit_asm(src_gc,dst_gc,src_rectangle,dst_rectangle, use_foreground_color,R2D_LCDLCD); } else if ((kind_src==R2D_FULL_KIND) && (kind_dst==R2D_FULL_KIND)) { r2d_patch_blit(dst_gc,mode, use_foreground_color,R2D_COLORCOLOR); r2d_blit_asm(src_gc,dst_gc,src_rectangle,dst_rectangle, use_foreground_color,R2D_COLORCOLOR); } else if ((kind_src!=R2D_FULL_KIND) && (kind_dst==R2D_FULL_KIND)) { r2d_patch_blit(dst_gc,mode, use_foreground_color,R2D_LCDCOLOR); r2d_blit_asm(src_gc,dst_gc,src_rectangle,dst_rectangle, use_foreground_color,R2D_LCDCOLOR); } else if ((kind_src==R2D_FULL_KIND) && (kind_dst!=R2D_FULL_KIND)) { r2d_patch_blit(dst_gc,mode, use_foreground_color,R2D_COLORLCD); r2d_blit_asm(src_gc,dst_gc,src_rectangle,dst_rectangle, use_foreground_color,R2D_COLORLCD); } rvf_unlock_mutex(r2d_g_blit_mutex); #endif r2d_check_and_send_event(dst_gc); } r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); r2d_enable_refresh(); return(R2D_OK); } T_R2D_ERROR r2d_blit_rect(T_R2D_GC_PTR src_gc,T_R2D_GC_PTR dst_gc, T_R2D_SHAPE_PTR org_src_rectangle, T_R2D_SHAPE_PTR org_dst_rectangle, BOOLEAN use_foreground_color) { // Allow reversing if needed return(r2d_low_level_blit_rect(src_gc,dst_gc,org_src_rectangle,org_dst_rectangle,TRUE,TRUE,use_foreground_color)); } /////////////////////////////////////// // // Text functions // T_R2D_CHAR_METRIC_PTR r2d_get_char_metrics(T_R2D_GC_PTR gc,UINT32 the_char) { INT32 *p; INT32 new_char; new_char=r2d_ptree_find(((T_R2D_GC*)gc)->font_table,the_char); p=((T_R2D_GC*)gc)->font_metrics; p+=(new_char<<3); *p++; return((T_R2D_CHAR_METRIC_PTR)p); } T_R2D_ERROR r2d_draw_char(T_R2D_GC_PTR font_cache_gc, T_R2D_GC_PTR gc, T_R2D_GC_PTR fontgc, INT16 x,INT16 y,INT16 org_size,T_R2D_CHAR_METRIC_PTR met) { T_R2D_SHAPE_PTR src_rectangle,dst_rectangle,tdst_rectangle; INT32 *p; INT16 underline; // INT32 new_char; INT16 style; INT16 ascent; T_R2D_ERROR err; style=((T_R2D_GC *)gc)->internal_text_style; ascent=((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+1]; err=R2D_OK; p=((T_R2D_GC*)gc)->font_metrics; underline=*--p; { if (style & R2D_BOLD) { // T_R2D_DRAWING_MODE the_mode; // T_R2D_ARGB_COLOR bg_color; #if (R2D_REFRESH == R2D_VERTICAL) src_rectangle=r2d_new_rectangle(r2d_mb_id,r2d_get_char_x(met),0, r2d_get_char_x(met)+r2d_get_char_width(met), r2d_get_char_height(met)); #else // In horizontal mode char are organized vertically src_rectangle=r2d_new_rectangle(r2d_mb_id,0,r2d_get_char_x(met), r2d_get_char_width(met),r2d_get_char_x(met)+r2d_get_char_height(met)); #endif if (src_rectangle==NULL) { err=R2D_MEMORY_ERR; return(err); } //dst_rectangle=r2d_new_rectangle(0,0,char_width+1,char_height); //if (dst_rectangle==NULL) //{ // r2d_release_shape(src_rectangle); // *err=1; // return(0); //} // erase temporary char if R2D is starting to draw a new char // (it is not always the case with diacritics chars) //r2d_set_background_color_with_argb(font_cache_gc,0,0,255,0); r2d_fill_rectangle(font_cache_gc,-1,-1,r2d_get_width(font_cache_gc)+1, r2d_get_height(font_cache_gc)+1); //r2d_set_background_color_with_argb(font_cache_gc,0,255,255,255); //r2d_release_shape(dst_rectangle); // Create destination rectangles dst_rectangle=r2d_new_rectangle(r2d_mb_id,0,0,r2d_get_char_width(met), r2d_get_char_height(met)); if (dst_rectangle==NULL) { r2d_release_shape(src_rectangle); err=R2D_MEMORY_ERR; return(err); } tdst_rectangle=r2d_clone_shape(r2d_mb_id,dst_rectangle); if (tdst_rectangle==NULL) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); err=R2D_MEMORY_ERR; return(err); } r2d_translate_shape(tdst_rectangle,1,0); // set mode r2d_set_drawing_mode(font_cache_gc,R2D_OR_MODE); // Build bold char if (r2d_low_level_blit_rect(fontgc,font_cache_gc,src_rectangle,dst_rectangle, FALSE,FALSE,FALSE)!=R2D_OK) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); r2d_release_shape(tdst_rectangle); err=R2D_MEMORY_ERR; return(err); } if (r2d_low_level_blit_rect(fontgc,font_cache_gc,src_rectangle,tdst_rectangle, FALSE,FALSE,FALSE)!=R2D_OK) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); r2d_release_shape(tdst_rectangle); err=R2D_MEMORY_ERR; return(err); } if (style & R2D_STRIKETHROUGH) { r2d_moveto(font_cache_gc,0,ascent>>1); r2d_lineto(font_cache_gc,r2d_get_char_width(met),ascent>>1); } // Reset mode r2d_set_drawing_mode(font_cache_gc,R2D_COPY_MODE); r2d_release_shape(tdst_rectangle); r2d_release_shape(dst_rectangle); r2d_release_shape(src_rectangle); // Recreate src and dest rectangle src_rectangle=r2d_new_rectangle(r2d_mb_id,0,0,r2d_get_char_width(met)+1, r2d_get_char_height(met)); if (src_rectangle==NULL) { err=R2D_MEMORY_ERR; return(err); } if (org_size != 0) { INT16 tmp; tmp=(org_size-r2d_get_char_width(met))>>1; dst_rectangle=r2d_new_rectangle(r2d_mb_id,x+tmp,y-r2d_get_char_height(met), x+tmp+r2d_get_char_width(met)+1,y); } else dst_rectangle=r2d_new_rectangle(r2d_mb_id,x+r2d_get_char_org_x(met), y-r2d_get_char_org_y(met), x+r2d_get_char_width(met)+r2d_get_char_org_x(met)+1, y+r2d_get_char_height(met)-r2d_get_char_org_y(met)); if (dst_rectangle==NULL) { r2d_release_shape(src_rectangle); err=R2D_MEMORY_ERR; return(err); } //printf("free_pos=%d, char_width=%d\n",free_pos,char_width); if (r2d_low_level_blit_rect(font_cache_gc,gc,src_rectangle,dst_rectangle, FALSE,TRUE,TRUE)!=R2D_OK) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); err=R2D_MEMORY_ERR; return(err); } } else { #if (R2D_REFRESH == R2D_VERTICAL) src_rectangle=r2d_new_rectangle(r2d_mb_id,r2d_get_char_x(met), 0, r2d_get_char_x(met)+r2d_get_char_width(met), r2d_get_char_height(met)); #else // In horizontal mode char are organized vertically src_rectangle=r2d_new_rectangle(r2d_mb_id,0, r2d_get_char_x(met), r2d_get_char_width(met), r2d_get_char_x(met)+r2d_get_char_height(met)); #endif if (src_rectangle==NULL) { err=R2D_MEMORY_ERR; return(err); } if (org_size != 0) { INT16 tmp; tmp=(org_size-r2d_get_char_width(met))>>1; dst_rectangle=r2d_new_rectangle(r2d_mb_id,x+tmp, y-r2d_get_char_height(met), x+tmp+r2d_get_char_width(met),y); } else dst_rectangle=r2d_new_rectangle(r2d_mb_id, x+r2d_get_char_org_x(met), y-r2d_get_char_org_y(met), x+r2d_get_char_width(met)+r2d_get_char_org_x(met), y+r2d_get_char_height(met)-r2d_get_char_org_y(met)); if (dst_rectangle==NULL) { r2d_release_shape(src_rectangle); err=R2D_MEMORY_ERR; return(err); } if (style & R2D_STRIKETHROUGH) { r2d_fill_rectangle(font_cache_gc,-1,-1,r2d_get_width(font_cache_gc)+1, r2d_get_height(font_cache_gc)+1); tdst_rectangle=r2d_new_rectangle(r2d_mb_id,0,0,r2d_get_char_width(met), r2d_get_char_height(met)); if (tdst_rectangle==NULL) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); err=R2D_MEMORY_ERR; return(err); } err=r2d_low_level_blit_rect(fontgc,font_cache_gc,src_rectangle,tdst_rectangle, FALSE,FALSE,FALSE); if (err==R2D_OK) { r2d_moveto(font_cache_gc,0,ascent>>1); r2d_lineto(font_cache_gc,r2d_get_char_width(met),ascent>>1); err=r2d_low_level_blit_rect(font_cache_gc,gc,tdst_rectangle,dst_rectangle, FALSE,TRUE,TRUE); } r2d_release_shape(tdst_rectangle); } else { err=r2d_low_level_blit_rect(fontgc,gc,src_rectangle,dst_rectangle, FALSE,TRUE,TRUE); } if (err!=R2D_OK) { r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); err=R2D_MEMORY_ERR; return(err); } } if (style & R2D_UNDERLINED) { r2d_moveto(gc,x+r2d_get_char_org_x(met),y+underline); r2d_lineto(gc,x+r2d_get_char_org_x(met)+ r2d_get_char_dx(met),y+underline); } r2d_release_shape(src_rectangle); r2d_release_shape(dst_rectangle); } return(err); } #define R2D_ENDIAN_SWAP(a) {misc=(a&0x0FF) << 8;a=a>>8;a=a|misc;a=a&0x0FFFF;} UINT32 r2d_get_next_char(T_R2D_UTF16 *the_text,INT16 *pos,UINT16 max_chars, BOOLEAN *swapping) { T_R2D_UTF16 current; INT16 temp; INT32 the_char; BOOLEAN must_display,combining,done; T_R2D_UTF16 next, misc; // T_R2D_CHAR_METRIC_PTR p; // Swapping should be set to FALSE first time this function is called // current char consider a WHOLE char // (when combining char are used, they are considered // as making ONE char) done=FALSE; // Detection of byte order mark if (the_text[*pos] == 0xFFFE) { *swapping=TRUE; *pos=*pos+1; } while ((!done) && (the_text[*pos]!=0) && (*pos<max_chars)) { must_display=FALSE; combining=FALSE; current=the_text[*pos]; *pos=*pos+1; if (*swapping) R2D_ENDIAN_SWAP(current); if ((current != 0x0FFFF)) { // If High-surrogate if ((current >= 0xd800) && (current <= 0xdbff)) { // Then check that next char if a low-surrogate next=the_text[*pos]; if (*swapping) R2D_ENDIAN_SWAP(next); if ((next >= 0xdc00) && (next<=0xdfff)) { *pos=*pos+1; the_char=(current - 0xd800) * 0x400 + (next - 0xdc00) + 0x10000; must_display=TRUE; } else { rvf_send_trace("r2d_get_next_char() missing low surrogate char", strlen("r2d_get_next_char() missing low surrogate char"), NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); } } else { // If not a high-surrogate then check it is not // a low-surrogate if ((current < 0xdc00) || (current>0xdfff)) { the_char=current; must_display=TRUE; } else { rvf_send_trace("R2D : r2d_get_next_char unexpected low surrogate char", strlen("R2D : r2d_get_next_char unexpected low surrogate char"), NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); } } } if ((the_char>=0x300) && (the_char <=0x36f)) combining=TRUE; if (must_display) { if (!combining) { // Next char done=TRUE; } } } if (done) return(the_char); else return(0); } // static T_R2D_ERROR r2d_low_draw_text(T_R2D_GC_PTR gc,INT16 x,INT16 y, T_R2D_UTF16 *the_text, T_R2D_TEXT_DRAWING_SETTINGS settings, UINT16 max_words, UINT16 *width, UINT16 *height) { T_R2D_GC_PTR fontgc; T_R2D_GC_PTR cache_gc; BOOLEAN draw; T_R2D_DRAWING_MODE the_mode; T_R2D_UTF16 *temp; INT16 err; INT16 current_word; INT32 the_char; BOOLEAN must_display,swapping,combining; INT16 delta,deltay,misc,current_y,maxx,delta_line,y_org; T_R2D_UTF16 next,current; T_R2D_CHAR_METRIC_PTR p; INT16 x_org; draw=((settings & R2D_TEXT_DRAW)==R2D_TEXT_DRAW); if (the_text==NULL) return(R2D_MEMORY_ERR); x_org=x; y_org=y; maxx=0; current_word=0; // We are at first word in string // current word consider a word which may be a partial char // (when combining char are used, they are considered // as making ONE char) swapping=FALSE; if (draw) { // +1 used since blit_rect is using a bounding rect cache_gc=r2d_new_font_buffer_context(r2d_mb_id,((T_R2D_GC*)gc)->font_frame_buffer->kind, ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS]+1,// max width for free area ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+1]+ // ascent ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+2]+ // descent ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+3]); // leading delta_line=((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+1]+ // ascent ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+2]+ // descent ((T_R2D_GC*)gc)->font_metrics[R2D_BUFFER_WIDTH_POS+3]; if (cache_gc==NULL) return(R2D_MEMORY_ERR); r2d_context_lock(cache_gc); fontgc=r2d_new_context(r2d_mb_id,((T_R2D_GC*)gc)->font_frame_buffer); //r2d_release_framebuffer(((T_R2D_GC*)gc)->font_frame_buffer); if (fontgc==NULL) { r2d_context_unlock(cache_gc); r2d_release_context(cache_gc); return(R2D_MEMORY_ERR); } r2d_context_lock(fontgc); r2d_set_background_color_with_argb(fontgc,0,255,255,255); r2d_set_foreground_color_with_argb(fontgc,0,0,0,0); the_mode=r2d_get_drawing_mode(gc); } err=R2D_OK; delta=0; deltay=0; current_y=y; // Detection of byte order mark if (*the_text == 0xFFFE) { swapping=TRUE; the_text++; current_word++; } while((*the_text!=0) && (err==R2D_OK) && (current_word<max_words)) { must_display=FALSE; combining=FALSE; if (the_char!=0xa) x+=delta; delta = 0; current=*the_text++; current_word++; if (swapping) R2D_ENDIAN_SWAP(current); if ((current != 0x0FFFF)) { // If High-surrogate if ((current >= 0xd800) && (current <= 0xdbff)) { // Then check that next char if a low-surrogate next=*the_text; if (swapping) R2D_ENDIAN_SWAP(next); if ((next >= 0xdc00) && (next<=0xdfff)) { the_text++; current_word++; the_char=(current - 0xd800) * 0x400 + (next - 0xdc00) + 0x10000; must_display=TRUE; } else { rvf_send_trace("r2d_low_draw_text() missing low surrogate char", strlen("r2d_low_draw_text() missing low surrogate char"), NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); } } else { // If not a high-surrogate then check it is not // a low-surrogate if ((current < 0xdc00) || (current>0xdfff)) { the_char=current; must_display=TRUE; } else { rvf_send_trace("r2d_low_draw_text() unexpected low surrogate char", strlen("r2d_low_draw_text() unexpected low surrogate char"), NULL_PARAM, RV_TRACE_LEVEL_ERROR, R2D_USE_ID ); } } } if ((the_char>=0x300) && (the_char <=0x36f)) combining=TRUE; else current_y=y; if (the_char==0xa) { if ((x-x_org)>maxx) maxx=x-x_org; if ((x_org-x)>maxx) maxx=x_org-x; x=x_org; y += delta_line; } if ((must_display) && (the_char!=0xa)) { p=r2d_get_char_metrics(gc,the_char); if (combining) { if (draw) { current_y -= deltay; x=x-delta; if (((T_R2D_GC*)gc)->script_mode==R2D_LEFT_TO_RIGHT) err=r2d_draw_char(cache_gc,gc,fontgc,x,current_y,delta,p); else err=r2d_draw_char(cache_gc,gc,fontgc,x+delta,current_y,delta,p); deltay=r2d_get_char_height(p); } } else { if (draw) { if (((T_R2D_GC*)gc)->script_mode==R2D_LEFT_TO_RIGHT) { delta=r2d_get_char_dx(p); err=r2d_draw_char(cache_gc,gc,fontgc,x,current_y,0,p); } else { delta=-r2d_get_char_dx(p); err=r2d_draw_char(cache_gc,gc,fontgc,x+delta,current_y,0,p); } deltay=r2d_get_char_height(p); } else { if (((T_R2D_GC*)gc)->script_mode==R2D_LEFT_TO_RIGHT) delta=r2d_get_char_dx(p); else delta=-r2d_get_char_dx(p); } } } } if (the_char!=0xa) x+=delta; if ((x-x_org)>maxx) maxx=x-x_org; if ((x_org-x)>maxx) maxx=x_org-x; /*if (((T_R2D_GC*)gc)->script_mode==R2D_LEFT_TO_RIGHT) *result=x-x_org; else *result=x_org-x;*/ *width=maxx; *height=y-y_org+delta_line; if (draw) { r2d_set_drawing_mode(gc,the_mode); r2d_context_unlock(fontgc); r2d_context_unlock(cache_gc); r2d_release_context(fontgc); r2d_release_context(cache_gc); r2d_check_and_send_event(gc); } return(err); } T_R2D_ERROR r2d_get_text_width(T_R2D_GC_PTR gc,T_R2D_UTF16 *the_text,UINT16 *size) { UINT16 x,y; T_R2D_ERROR err; err=R2D_OK; err=r2d_low_draw_text(gc,0,0,the_text,0,-1,&x,&y); if (err!=R2D_OK) *size=1; else { if (x>=0) *size=x; else *size=-x; } return(err); } T_R2D_ERROR r2d_get_width_of_chars(T_R2D_GC_PTR gc,T_R2D_UTF16 *the_text, UINT16 nb_chars,UINT16 *size) { UINT16 x,y; T_R2D_ERROR err; err=r2d_low_draw_text(gc,0,0,the_text,0,nb_chars,&x,&y); if (err!=R2D_OK) *size=1; else { if (x>=0) *size=x; else *size=-x; } return(err); } T_R2D_ERROR r2d_draw_text(T_R2D_GC_PTR gc,INT16 x,INT16 y,T_R2D_UTF16 *the_text) { UINT16 r,h; return(r2d_low_draw_text(gc,x,y,the_text,R2D_TEXT_DRAW,-1,&r,&h)); } T_R2D_ERROR r2d_draw_chars(T_R2D_GC_PTR gc,INT16 x,INT16 y, T_R2D_UTF16 *the_text,UINT16 nb_chars) { UINT16 r,h; return(r2d_low_draw_text(gc,x,y,the_text,R2D_TEXT_DRAW,nb_chars,&r,&h)); } T_R2D_ERROR r2d_draw_chars_and_get_size(T_R2D_GC_PTR gc,INT16 x,INT16 y,T_R2D_UTF16 *the_text, UINT16 nb_words16,UINT16 *width,UINT16 *height) { return(r2d_low_draw_text(gc,x,y,the_text,R2D_TEXT_DRAW,nb_words16,width,height)); } T_R2D_UTF16 *r2d_new_unicode_from_cstring(T_RVF_MB_ID bank,unsigned char *the_string) { T_R2D_UTF16 *result,*p; // INT16 i; INT16 index; R2D_MALLOC(bank,T_R2D_UTF16,sizeof(T_R2D_UTF16)*(strlen((char*)the_string)+1),result); if (result!=NULL) { p=result; while(*the_string!='\0') { index=*the_string++; *p++ = R2D_WIN_LATIN1_TO_UNICODE[index]; } *p++ = 0; } return(result); } T_R2D_UTF16 *r2d_new_unicode_from_pstring(T_RVF_MB_ID bank,unsigned char *the_string) { T_R2D_UTF16 *result,*p; INT16 l,index; // INT16 i; R2D_MALLOC(bank,T_R2D_UTF16,sizeof(T_R2D_UTF16)*(the_string[0]+1),result); if (result!=NULL) { p=result; l=*the_string++; while(l!=0) { index=*the_string++; *p++ = R2D_WIN_LATIN1_TO_UNICODE[index]; l--; } *p++ = 0; } return(result); } void r2d_get_font_info(T_R2D_GC_PTR gc,INT16 *ascent,INT16 *descent,INT16 *leading) { INT32 *p; p=((T_R2D_GC*)gc)->font_metrics; *p--; *leading=*--p; *descent=*--p; *ascent=*--p; } INT16 r2d_str_nb_word16(T_R2D_UTF16 *l) { INT16 res; T_R2D_UTF16 *p; if (l==NULL) return 0; p=l; res=0; while(*p!=0) { p++; res++; } return(res); } T_R2D_UTF16 *r2d_duplicate_text(T_RVF_MB_ID bank,T_R2D_UTF16 *l) { T_R2D_UTF16 *ret; INT16 len; if (l==NULL) return(NULL); len=r2d_str_nb_word16(l); rvf_get_buf(bank,(len+1)*sizeof(T_R2D_UTF16),(void*)&ret); if (ret) { memcpy(ret,l,(len+1)*2); return(ret); } else return(NULL); } T_R2D_SCRIPT_MODE r2d_get_script_mode(T_R2D_GC_PTR gc) { return(((T_R2D_GC*)gc)->script_mode); } void r2d_set_script_mode(T_R2D_GC_PTR gc,T_R2D_SCRIPT_MODE mode) { ((T_R2D_GC*)gc)->script_mode=mode; }