Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  931 1878 (N70W33 L=184)   484     62        0 ( 915/1849- 960/1896)  13.2 W25-W42 N67-N72
      2 1526 1526 (N25W48 L=199)  1697    249        2 (1424/1436-1605/1604) -66.8 W44-W51 N18-N32
      3  398 1432 (N44E44 L=106)   524     72        1 ( 371/1404- 442/1454) -16.7 E48-E38 N41-N45
      4 1157 1299 (N20W14 L=164)   336    151        0 (1110/1246-1209/1350) -69.4 W12-W15 N16-N24
      5 1808 1198 (S01W59 L=209)   389     31        2 (1787/1176-1828/1218) -11.3 W56-W61 S01-N00
      6 1566 1002 (S06W33 L=184)   475    112        2 (1506/ 971-1612/1030) -35.5 W29-W36 S07-S02
      7 1658  931 (S12W39 L=189)   284     69        0 (1643/ 899-1668/ 969) -90.0 W37-W40 S14-S09
      8  616  908 (N07E27 L=123)   268     41        1 ( 590/ 892- 645/ 929)  11.3 E29-E24 N05-N08
      9  277  702 (S01E60 L= 91)   934     91        1 ( 248/ 658- 304/ 741) -78.7 E62-E56 S04-N01
     10 1692  683 (S29W41 L=191)  1020    128        1 (1640/ 631-1741/ 736)  11.3 W35-W45 S32-S26
     11  272  551 (S11E70 L= 80)   717     76        2 ( 245/ 514- 292/ 576) -78.7 E73-E66 S14-S09
     12  455  513 (S15E51 L=100)   481     91        0 ( 439/ 471- 472/ 560)  40.6 E53-E46 S18-S12
     13  384  469 (S18E61 L= 89)   449     72        1 ( 358/ 432- 405/ 503)  68.2 E63-E59 S20-S15
  

    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