Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1647 1663 (N36W74 L=169)   853     79        0 (1633/1622-1661/1698)  10.3 W67-W89 N33-N37
      2 1334 1658 (N43W37 L=132)   520    136        2 (1271/1629-1384/1682) -26.6 W31-W41 N40-N45
      3 1769 1420 (N19W66 L=161)  1501    150        6 (1731/1355-1802/1489)  26.6 W58-W76 N15-N23
      4 1507 1465 (N27W41 L=136)   285     74        0 (1475/1443-1539/1487) -45.0 W39-W43 N24-N28
      5  531 1300 (N27E32 L= 63)   438    153        0 ( 477/1253- 577/1321) -26.6 E36-E28 N23-N28
      6  261 1161 (N20E56 L= 39)   398    114        1 ( 234/1118- 287/1200)  80.5 E59-E52 N16-N22
      7 1228 1159 (N12W14 L=109)   196     64        0 (1195/1141-1256/1177)  11.3 W11-W16 N10-N12
      8  155 1058 (N13E70 L= 25)  1597    125        2 ( 124/1003- 175/1123)  63.4 E76-E66 N09-N17
      9  955  814 (S07E06 L= 89)   962    228        3 ( 925/ 692- 983/ 907)  85.9 E07-E04 S14-N00
     10 1752  855 (S14W50 L=145)   489     37        0 (1733/ 829-1773/ 885)  71.6 W47-W52 S16-S12
     11 1350  777 (S13W18 L=113)   263    143        0 (1296/ 764-1420/ 791) -20.6 W14-W22 S14-S11
     12  522  632 (S14E39 L= 57)   317     70        2 ( 494/ 610- 554/ 650)   9.5 E41-E35 S15-S13
     13 1492  517 (S34W29 L=124)   328     64        1 (1454/ 500-1528/ 530)   0.0 W25-W32 S35-S32
     14 1330  245 (S56W19 L=115)   619     84        2 (1283/ 228-1378/ 269)   0.0 W13-W25 S58-S53
  

    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