Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1707 (N46W35 L=235)   722    100        2 (1207/1671-1293/1738) -90.0 W30-W38 N42-N48
      2  726 1601 (N48E14 L=185)  1770    426        4 ( 551/1517- 919/1646) -21.8 E34-W01 N39-N53
      3 1211 1537 (N35W23 L=222)  1653    401        4 (1011/1490-1374/1563)  -8.4 W07-W34 N30-N37
      4  687 1415 (N35E18 L=181)   260     72        0 ( 646/1403- 729/1429)  -8.1 E21-E14 N34-N36
      5  825 1158 (N17E10 L=189)   250    112        0 ( 770/1120- 865/1182) -38.7 E13-E08 N14-N18
      6  113 1047 (N16E78 L=121)  1575     97        0 (  94/1013- 137/1099) -39.8 E85-E72 N13-N19
      7  681 1028 (N11E21 L=178)   527    143        0 ( 622/ 990- 756/1058)  11.3 E25-E15 N09-N12
      8  212  864 (N05E63 L=137)  1489    185        5 ( 143/ 806- 269/ 931) -31.6 E72-E55 N01-N09
      9 1437  862 (S10W23 L=222)   539    155        2 (1410/ 783-1464/ 925)  63.4 W20-W25 S14-S06
     10  966  899 (S00E05 L=194)   205     59        0 ( 934/ 883- 996/ 914)   0.0 E07-E03 S01-N00
     11 1587  870 (S12W34 L=233)   254     81        0 (1540/ 851-1622/ 886) -26.6 W30-W36 S13-S10
     12 1332  825 (S10W16 L=215)   225     59        2 (1315/ 794-1355/ 851)  45.0 W14-W17 S12-S08
     13 1724  727 (S25W46 L=245)   940    239        5 (1669/ 646-1758/ 836)  65.6 W40-W49 S29-S17
     14  549  816 (S00E33 L=166)   455    178        0 ( 474/ 796- 633/ 832) -15.3 E38-E27 S02-N01
     15 1683  762 (S21W41 L=241)   430     87        0 (1643/ 731-1713/ 783)   8.1 W37-W44 S22-S19
     16 1446  679 (S22W22 L=221)  1800    312        3 (1358/ 604-1579/ 769)  23.6 W15-W32 S25-S17
     17  528  683 (S08E37 L=162)   274     79        0 ( 499/ 661- 554/ 713)   0.0 E39-E35 S09-S06
     18  587  651 (S11E34 L=165)   434      0        0 ( 549/ 623- 647/ 680)  15.9 E36-E29 S12-S09
     19 1481  622 (S26W25 L=224)   319     53        0 (1458/ 598-1506/ 645)  33.7 W22-W26 S27-S25
     20  667  564 (S17E31 L=169)   717    272        1 ( 583/ 524- 732/ 624)  21.0 E38-E25 S19-S14
     21  848  422 (S30E23 L=177)   573    115        2 ( 818/ 378- 876/ 478)  45.0 E26-E19 S32-S25
     22  960  161 (S57E31 L=168)   499     48        1 ( 933/ 148- 990/ 174) -21.8 E35-E27 S58-S54
  

    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