Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1606 1524 (N16W54 L=192)   432     64        2 (1570/1500-1642/1541) -31.0 W51-W57 N14-N17
      2 1742 1441 (N07W61 L=199)   467     78        0 (1698/1416-1766/1472)  -5.7 W55-W65 N05-N07
      3 1116 1401 (N24W17 L=155)   209     98        0 (1075/1378-1160/1413) -51.3 W14-W18 N21-N26
      4 1859 1227 (S08W62 L=201)  1684    167        3 (1819/1161-1915/1283)  18.4 W57-W72 S11-S04
      5 1042 1261 (N19W08 L=146)   534    143        0 ( 972/1245-1116/1279) -26.6 W03-W11 N16-N20
      6  870 1166 (N18E05 L=134)   433    189        0 ( 796/1108- 934/1212) -49.4 E08-E02 N13-N21
      7 1699 1169 (S05W45 L=183)   266     58        0 (1686/1140-1713/1198)  33.7 W43-W46 S06-S04
      8 1893 1164 (S13W65 L=203)   800     65        3 (1868/1121-1917/1193)  63.4 W61-W68 S15-S11
      9 1833 1057 (S16W54 L=192)  2047    362        7 (1787/ 877-1872/1161) -87.0 W50-W58 S28-S09
     10  291  977 (N21E50 L= 89)  2256    377        3 ( 186/ 842- 377/1145) -55.7 E60-E44 N11-N33
     11 1767 1022 (S16W46 L=185)   808    101        2 (1728/ 969-1796/1068) -90.0 W43-W48 S19-S13
     12  509  986 (N17E32 L=107)   412    118        0 ( 460/ 951- 570/1020) -45.0 E34-E27 N13-N19
     13  727  964 (N11E18 L=120)   265    142        0 ( 685/ 914- 762/1016)  26.6 E21-E14 N08-N12
     14 1247  813 (S11W07 L=145)   945    379        3 (1197/ 649-1274/ 987)  58.6 W00-W11 S19-S01
     15 1605  897 (S17W31 L=169)   286     74        1 (1564/ 885-1643/ 910) -26.6 W27-W33 S18-S15
     16 1372  554 (S31W07 L=146)  3725    602        4 (1224/ 369-1529/ 797)  30.1 E08-W23 S38-S19
     17 1138  680 (S16E03 L=135)   271    119        0 (1081/ 645-1176/ 696) -45.0 E06-E01 S18-S13
     18  579  606 (S06E38 L=101)   894    254        1 ( 534/ 480- 605/ 679)  42.3 E44-E33 S12-N00
     19  419  612 (S02E49 L= 89)   807    142        2 ( 342/ 575- 477/ 646) -29.1 E54-E45 S05-N01
     20  772  439 (S20E33 L=106)  1127    339        1 ( 754/ 307- 806/ 593)  50.2 E40-E24 S29-S11
     21  964  497 (S22E19 L=120)   332     89        0 ( 944/ 455- 976/ 547)  56.3 E21-E16 S24-S18
  

    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