Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  979 1911 (N53E38 L=355)   496     54        0 ( 943/1902-1010/1922)   8.1 E41-E34 N51-N55
      2 1434 1732 (N51W13 L= 46)   378     56        1 (1409/1708-1459/1754) -11.3 W10-W15 N48-N53
      3  533 1653 (N21E50 L=343)  1179    243        2 ( 439/1618- 634/1694)  23.2 E59-E43 N18-N25
      4  543 1539 (N14E43 L=350)   278    100        1 ( 525/1497- 563/1588) -71.6 E44-E40 N11-N17
      5  916 1544 (N21E18 L= 15)   232    109        0 ( 874/1518- 967/1562)  31.0 E20-E15 N18-N22
      6 1703 1390 (N32W39 L= 72)  1513    220        1 (1613/1318-1774/1463) -14.0 W30-W46 N28-N35
      7 1328 1342 (N18W11 L= 44)   354    151        0 (1271/1293-1374/1401) -26.6 W06-W14 N15-N20
      8  861 1122 (S05E11 L= 22)   659    214        1 ( 788/1059- 933/1192)  56.3 E14-E08 S09-N00
      9 1906 1065 (N18W64 L= 97)  1337    127        0 (1880/ 997-1930/1128) -63.4 W59-W68 N14-N22
     10  697  881 (S22E17 L= 16)   347    101        0 ( 680/ 829- 712/ 933)  81.9 E17-E15 S25-S18
     11  254  820 (S33E54 L=339)   926    220        2 ( 194/ 732- 332/ 887)  31.0 E66-E45 S39-S27
     12  498  823 (S29E30 L=  3)   415    157        1 ( 453/ 775- 523/ 883)  63.4 E34-E28 S32-S24
     13  678  585 (S41E14 L= 19)   421     88        0 ( 631/ 570- 726/ 602)  14.0 E17-E09 S42-S38
     14 1525  458 (S26W51 L= 84)   592    116        1 (1478/ 422-1573/ 507)  -4.4 W44-W57 S27-S24
  

    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