Rotation de texte

DIM pf, t$, x%, y%, x1%, y1%, l%, h%, al%, i%, j%, r%, g%, b%, ob, fnt$, sz%
LABEL Rotatext

PICTURE 1: WIDTH 1, 570: HEIGHT 1, 420
COLOR 1, 255,255,128
t$ = "AbCdEf": fnt$ = "Times New Roman": sz% = 30
ob = 1: ' objet destinataire
x% = 10: y% = 20: al% = 0: GOSUB Rotatext: DISPLAY: ' affichage normal
x% = 10: y% = 100: al% = 90: GOSUB Rotatext: DISPLAY
x% = 80: y% = 100: al% = 180: GOSUB Rotatext: DISPLAY
x% = 250: y% = 100: al% = 270: GOSUB Rotatext
END

Rotatext:
' ob objet destinataire
' fnt$, sz% fonte et taille
' x%, y% coordonnées du coin supérieur gauche arrivée
' l%, h% dimensions du texte, en pixels
' al% angle de rotation, = 90, 180 ou 270 degrés
IF al% = 0
    PRINT_TARGET_IS ob
    FONT_NAME ob, fnt$: FONT_SIZE ob, sz%: FONT_BOLD ob
    PRINT_LOCATE x%, y%: PRINT t$
ELSE
    pf = NUMBER_OBJECTS+1
    PICTURE pf: TOP pf, -200: WIDTH pf, 1000: HEIGHT pf, 100
    PRINT_TARGET_IS pf
    FONT_NAME pf, fnt$: FONT_SIZE pf, sz%: FONT_BOLD pf
    l% = TEXT_WIDTH(t$,pf)+4: h% = TEXT_HEIGHT(t$,pf)
    PRINT t$
    2D_TARGET_IS ob
    FOR j% = 0 TO h%-1
        FOR i% = 0 TO l%-1
            r% = COLOR_PIXEL_RED(pf,i%,j%)
            g% = COLOR_PIXEL_GREEN(pf,i%,j%)
            b% = COLOR_PIXEL_BLUE(pf,i%,j%)
            2D_PEN_COLOR r%,g%,b%
            SELECT al%
                CASE 90: 2D_POINT x%+j%,y%+l%-i%
                CASE 180: 2D_POINT x%+l%-i%,y%+h%-j%
                CASE 270: 2D_POINT x%+h%-j%,y%+i%
            END_SELECT
        NEXT i%
    NEXT j%
    PRINT_TARGET_IS 0: 2D_TARGET_IS 0
    DELETE pf
END_IF
RETURN

file_load picture01%,File_nom$
 
for i%=1 to Spr_X-1
  for j%=1 to Spr_X-1
 
      tbl_red(i%,j%)=Color_pixel_red(picture01%,x1+j%,y1+i%)
        tbl_green(i%,j%)=Color_pixel_Green(picture01%,x1+j%,y1+i%)
        tbl_blue(i%,j%)=Color_pixel_blue(picture01%,x1+j%,y1+i%)
 
 
    next J%
next i%
 
      width  picture02%, Spr_X
      height picture02%, Spr_Y
      Top    picture02%,400
      left  picture02%,(300-spr_x)/2

 ' rotation=(2*3.1415926535897932*90)/360
 
  ' 3.1415926535897932
 
    rotation=val(text$(Angle_rot))
   
  rotation= rotation*PI2/360
 
  if checked(Check_MX)=1
  Mir_X=-1
  else
  Mir_X=1
  end_if
  if checked(Check_MY)=1
  Mir_Y=-1
  else
  Mir_Y=1
  end_if

 
  xctr = Spr_X / 2
  yctr = Spr_y / 2
 
    Rotation_Sin=sin(rotation)
    Rotation_cos=cos(rotation)

     
      color picture02%,0,0,0
     
    2d_target_is picture02%
 
image File_Num

  for y=1 to Spr_Y

        for x=1 to Spr_X
 
  2d_pen_color tbl_red(y,x),tbl_green(y,x),tbl_blue(y,x)
 

' Nouveau point du sprite apres rotation

  '  m = int((x - xctr) * Rotation_cos - (y - yctr) * Rotation_Sin + xctr +.5 )*Mir_X
  '  n = int((x - xctr) * Rotation_Sin + (y - yctr) * Rotation_cos + yctr +.5 )*Mir_Y
   
   
        ' ********* voici la formule de la rotation d'image *********
            m= (xctr+(x-xctr) * Rotation_cos +( Y-xctr)* Rotation_Sin)*Mir_X
            n= (xctr-(x-xctr) * Rotation_Sin + (Y-xctr)* Rotation_cos)*Mir_Y
        ' *****************************************************
   

DIM x,y,l,h,x1,y1,i%,j%,al,a,pi,r,g,b,xd,yd
LABEL Rotopic

pi = 4*ATN(1)

PICTURE 1: WIDTH 1, 580: HEIGHT 1, 400
COLOR 1, 255,255,128: 2D_TARGET_IS 1
2D_FILL_COLOR 0,255,0
x = 10: y = 100: l = 50: h = 75
2D_RECTANGLE x,y,x+l-1,y+h-1
PRINT_TARGET_IS 1: FONT_NAME 1, "Arial": FONT_SIZE 1, 30: FONT_BOLD 1
PRINT_LOCATE x+10,y+15: PRINT "A": DISPLAY
x1 = 120: y1 = 100: al = 30
GOSUB Rotopic

END

Rotopic:
a = al*pi/180: ' angle de rotation, en radians
FOR j% = 0 TO h
    yd = y1+j%*COS(a)
    FOR i% = 0 TO l
        r = COLOR_PIXEL_RED(1,x+i%,y+j%)
        g = COLOR_PIXEL_GREEN(1,x+i%,y+j%)
        b = COLOR_PIXEL_BLUE(1,x+i%,y+j%)
        2D_PEN_COLOR r,g,b
        xd = x1+i%*COS(a)
        2D_POINT xd+j%*SIN(a), yd-i%*SIN(a)
    NEXT i%
    DISPLAY
NEXT j%
RETURN