Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  756 1542 (N35E24 L=134)   406    100        0 ( 712/1501- 787/1566) -33.7 E27-E20 N31-N36
      2 1594 1516 (N37W45 L=204)  1286    158        2 (1517/1475-1665/1544)  -3.8 W37-W53 N34-N38
      3 1381 1402 (N28W24 L=182)   677    217        1 (1303/1332-1445/1472) -45.0 W18-W27 N23-N32
      4  369 1445 (N25E54 L=104)   446     62        1 ( 337/1421- 399/1465)  36.9 E57-E51 N23-N26
      5 1799 1329 (N24W62 L=220)  1759    272        3 (1711/1258-1879/1392) -25.3 W53-W73 N19-N28
      6  332  936 (S07E48 L=110)   315    103        0 ( 296/ 897- 367/ 973)  35.5 E51-E44 S09-S04
      7 1749  858 (S05W53 L=211)   519      7        0 (1723/ 835-1773/ 879)  11.3 W50-W55 S06-S03
      8  283  738 (S20E55 L=103)   684     78        1 ( 243/ 714- 322/ 764)   0.0 E59-E50 S21-S18
      9 1653  685 (S16W47 L=205)   373     73        0 (1635/ 647-1672/ 721)  90.0 W45-W48 S18-S14
     10  341  610 (S28E53 L=105)  1886    288        2 ( 242/ 498- 405/ 693) -55.3 E64-E47 S36-S23
     11 1769  601 (S22W64 L=222)  1249    150        2 (1741/ 541-1794/ 675) -82.9 W59-W72 S26-S17
     12  604  510 (S34E29 L=129)   519     95        1 ( 557/ 490- 647/ 530) -14.0 E33-E25 S34-S32
     13  843  512 (S32E10 L=148)   240     50        1 ( 810/ 496- 874/ 529) -14.0 E12-E08 S32-S30
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y