TextOut

bool  TextOut(
   const string       text,          // 표시된 텍스트
   int                x,             // X 좌표 
   int                y,             // Y 좌표 
   uint               anchor,        // 앵커 유형
   uint               &data[],       // 출력 버퍼
   uint               width,         // 버퍼 너비(픽셀)
   uint               height,        // 버퍼 높이(픽셀)
   uint               color,         // 텍스트 색상
   ENUM_COLOR_FORMAT  color_format   // 출력용 색상 형식
   );

//--- 캔버스(그림이 그려지는 캔버스)의 너비와 높이
#define IMG_WIDTH  200
#define IMG_HEIGHT 200
//--- 스크립트를 실행하기 전에 매개변수와 함께 창을 표시합니다
#property script_show_inputs
//--- 색상 형식을 설정하도록 합니다
input ENUM_COLOR_FORMAT clr_format=COLOR_FORMAT_XRGB_NOALPHA;
//--- 렌더링을 위한 배열(버퍼)
uint ExtImg[IMG_WIDTH*IMG_HEIGHT];
/+------------------------------------------------------------------+
//| Script program start function                                   |
/+------------------------------------------------------------------+
void OnStart()
  {
//--- 그리기를 위한 OBJ_BITMAP_LABEL 객체를 생성합니다    
   ObjectCreate(0,"CLOCK",OBJ_BITMAP_LABEL,0,0,0);
//--- CLOCK 객체에서 렌더링할 그래픽 리소스의 이름을 설정합니다 
   ObjectSetString(0,"CLOCK",OBJPROP_BMPFILE,"::IMG");
 
//--- 보조 변수
   double a;            // 화살표 앵글
   uint   nm=2700;      // 분 카운터
   uint   nh=2700*12;   // 시 카운터 
   uint   w,h;          // 텍스트 문자열의 크기를 얻기 위한 변수
   int    x,y;          // 텍스트 문자열의 앵커 포인트의 현재 좌표를 계산하기 위한 변수
 
//--- 스크립트가 멈출 때까지 시계 바늘을 무한 루프로 돌립니다.
   while(!IsStopped())
     {
//--- 시계 그리기 버퍼 배열을 지웁니다
      ArrayFill(ExtImg,0,IMG_WIDTH*IMG_HEIGHT,0);
//--- 다이얼에 숫자를 그릴 글꼴을 설정합니다
      TextSetFont("Arial",-200,FW_EXTRABOLD,0);
//--- 다이얼을 그립니다
      for(int i=1;i<=12;i++)
        {
//--- 다이얼의 현재 시의 크기를 가져옵니다
         TextGetSize(string(i),w,h);
//--- 다이얼의 현재 시의 좌표를 계산합니다
         a=-((i*300)%3600*M_PI)/1800.0;
         x=IMG_WIDTH/2-int(sin(a)*80+0.5+w/2);
         y=IMG_HEIGHT/2-int(cos(a)*80+0.5+h/2);
//--- 이 시를 ExtImg[] 버퍼의 다이얼에 출력합니다.
         TextOut(string(i),x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,0xFFFFFFFF,clr_format);
        }
//--- 분침을 그리는 글꼴을 설정합니다
      TextSetFont("Arial",-200,FW_EXTRABOLD,-int(nm%3600));
//--- 분침의 크기를 구합니다
      TextGetSize("----->",w,h);
//--- 다이얼의 분침 좌표를 계산합니다
      a=-(nm%3600*M_PI)/1800.0;
      x=IMG_WIDTH/2-int(sin(a)*h/2+0.5);
      y=IMG_HEIGHT/2-int(cos(a)*h/2+0.5);
//--- ExtImg[] 버퍼에 분침을 다이얼로 출력합니다
      TextOut("----->",x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,0xFFFFFFFF,clr_format);
 
//--- 시침을 그리는 글꼴을 설정합니다
      TextSetFont("Arial",-200,FW_EXTRABOLD,-int(nh/12%3600));
      TextGetSize("==>",w,h);
//--- 다이얼의 시침 좌표를 계산합니다
      a=-(nh/12%3600*M_PI)/1800.0;
      x=IMG_WIDTH/2-int(sin(a)*h/2+0.5);
      y=IMG_HEIGHT/2-int(cos(a)*h/2+0.5);
//--- ExtImg[] 버퍼에 있는 다이얼에 시침을 출력합니다
      TextOut("==>",x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,0xFFFFFFFF,clr_format);
 
//--- 그래픽 리소스를 업데이트 합니다
      ResourceCreate("::IMG",ExtImg,IMG_WIDTH,IMG_HEIGHT,0,0,IMG_WIDTH,clr_format);
//--- 강제 차트 업데이트
      ChartRedraw();
 
      //--- 시, 분 카운터 증가
      nm+=60;
      nh+=60;
//--- 프레임 사이에 잠시 멈춥니다
      Sleep(10);
     }
//--- 스크립트가 완료되면 CLOCK 객체를 삭제합니다
   ObjectDelete(0,"CLOCK");
//---
  }