Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1382 1619 (N32W43 L= 81)   444     25        0 (1358/1597-1406/1643) -71.6 W40-W45 N30-N33
      2 1523 1531 (N23W48 L= 86)   644     97        2 (1486/1490-1562/1576)  63.4 W45-W50 N20-N26
      3 1798 1443 (N09W69 L=107)  1506    152        4 (1756/1392-1850/1482) -48.8 W63-W77 N04-N12
      4 1760 1263 (N01W55 L= 93)  1108    222        2 (1720/1155-1786/1356)  85.2 W52-W57 S05-N07
      5 1283 1284 (N16W22 L= 60)   360    143        0 (1230/1228-1340/1314)  14.0 W17-W25 N13-N16
      6  784 1129 (N18E12 L= 26)  1344    498        1 ( 558/1096- 980/1175) -24.8 E26-W00 N12-N24
      7  872 1005 (N09E09 L= 29)   508    150        2 ( 829/ 961- 936/1032) -26.6 E11-E05 N07-N11
      8 1658  927 (S14W37 L= 75)   774    207        0 (1613/ 840-1689/1028)  51.3 W32-W41 S18-S08
      9  479  864 (N09E37 L=  1)   876    284        0 ( 405/ 749- 516/ 976) -78.7 E40-E35 N01-N16
     10 1513  792 (S18W24 L= 62)   742    235        1 (1435/ 760-1612/ 832) -22.6 W19-W31 S19-S13
     11 1699  562 (S40W39 L= 77)  4498    529        7 (1492/ 415-1872/ 725)  10.8 W18-W63 S45-S34
     12  869  646 (S11E18 L= 20)   344     72        1 ( 829/ 629- 914/ 668) -36.9 E19-E15 S13-S09
     13  771  619 (S11E24 L= 14)   295     93        1 ( 719/ 587- 806/ 651) -38.7 E27-E22 S13-S09
     14  435  490 (S13E54 L=344)  1730    211        2 ( 410/ 400- 473/ 605)  57.3 E59-E48 S19-S05
     15 1283  307 (S46E02 L= 36)   581    104        1 (1227/ 285-1333/ 334)   0.0 E06-W03 S47-S44
  

    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