Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1837 (N53E07 L=126)   528     89        1 (1198/1806-1271/1854)  56.3 E10-E03 N48-N56
      2  728 1812 (N37E44 L= 89)   909     98        2 ( 693/1783- 775/1850) -17.1 E51-E38 N34-N40
      3  744 1536 (N18E28 L=105)  2248    487        5 ( 606/1387- 904/1699)  72.3 E32-E23 N06-N31
      4 1259 1611 (N34W02 L=135)   335     95        0 (1229/1587-1300/1644) -21.8 W00-W05 N32-N35
      5  906 1391 (N12E14 L=119)   294    135        0 ( 866/1339- 935/1437) -38.7 E17-E11 N08-N13
      6 1866 1307 (N31W58 L=191)   692     82        0 (1830/1268-1899/1336) -15.9 W52-W62 N29-N32
      7  315 1224 (S07E50 L= 83)   647    221        1 ( 286/1130- 353/1328) -79.7 E52-E48 S12-S01
      8 1815 1280 (N27W50 L=183)   391     40        0 (1795/1254-1831/1304) -45.0 W48-W52 N25-N28
      9 1495 1247 (N16W23 L=157)   476    116        0 (1444/1209-1540/1288) -15.9 W19-W27 N14-N17
     10  113 1162 (S12E74 L= 59)   682     58        2 (  89/1131- 135/1184) -18.4 E80-E69 S14-S10
     11  543 1119 (S10E31 L=102)   491    173        0 ( 475/1071- 597/1176)  49.4 E34-E27 S13-S06
     12 1568 1026 (N05W32 L=165)   665    205        0 (1553/ 924-1582/1119) -60.9 W29-W34 N00-N09
     13 1846 1068 (N15W55 L=188)   395     56        0 (1830/1033-1860/1108) -53.1 W52-W56 N13-N17
     14  926 1077 (S06E07 L=127)   395    213        0 ( 840/1037-1024/1107)  33.7 E10-E01 S09-S03
     15  757  840 (S23E12 L=121)   708    209        2 ( 673/ 809- 842/ 897)  26.6 E17-E07 S24-S17
     16 1199  842 (S14W14 L=147)   437    242        0 (1107/ 787-1292/ 887)  41.6 W09-W18 S18-S10
     17 1561  734 (S11W39 L=173)   457    102        2 (1540/ 685-1578/ 789) -45.0 W36-W41 S13-S08
     18 1632  694 (S11W46 L=179)   713    158        2 (1561/ 645-1685/ 743)  53.1 W41-W49 S15-S07
     19  484  717 (S35E31 L=102)   717    126        1 ( 416/ 697- 544/ 739)   9.5 E37-E25 S36-S33
     20 1811  707 (S06W62 L=195)   444     90        1 (1773/ 670-1836/ 733)  -6.3 W56-W65 S07-S03
     21 1589  575 (S19W48 L=181)  1510    411        1 (1423/ 519-1764/ 695)  45.0 W38-W58 S26-S07
     22 1215  637 (S25W21 L=154)   317    158        0 (1153/ 588-1279/ 659)   0.0 W16-W25 S26-S23
     23 1403  367 (S36W47 L=180)   718     87        2 (1361/ 336-1443/ 396)   0.0 W41-W51 S38-S33
  

    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