Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1036 1653 (N47W14 L=235)   272     53        1 (1014/1623-1061/1672)  76.0 W11-W15 N44-N48
      2  477 1609 (N52E44 L=177)  1013    130        2 ( 409/1584- 542/1631)   0.0 E56-E35 N50-N53
      3  577 1549 (N46E29 L=192)   671    127        1 ( 533/1507- 632/1589) -30.3 E35-E23 N42-N49
      4 1525 1486 (N26W44 L=266)   390     34        1 (1505/1460-1544/1512)  63.4 W42-W46 N23-N27
      5  924 1466 (N35W00 L=222)  1569    430        3 ( 726/1422-1113/1490)  -8.1 E15-W13 N31-N37
      6 1643 1364 (N16W49 L=271)  1294    155        4 (1587/1293-1682/1431)  77.5 W45-W51 N11-N20
      7 1832 1366 (N12W70 L=292)  1119    117        2 (1771/1337-1878/1387) -21.8 W62-W78 N08-N14
      8 1115 1366 (N25W11 L=233)   381    106        0 (1070/1341-1159/1386) -21.8 W07-W13 N23-N26
      9  499 1090 (N16E34 L=188)   357    135        1 ( 457/1029- 526/1146) -69.4 E36-E31 N12-N20
     10  223 1061 (N16E59 L=162)   709     87        3 ( 186/1015- 249/1097) -32.0 E64-E56 N13-N18
     11  292  987 (N12E52 L=170)  1408    315        0 ( 202/ 940- 426/1021)   2.6 E61-E39 N09-N14
     12 1091  814 (S07W01 L=223)   203     40        0 (1070/ 790-1113/ 843)  56.3 W00-W02 S08-S05
     13  932  752 (S09E09 L=212)   939    199        4 ( 864/ 689- 983/ 822)  58.0 E14-E06 S13-S04
     14  290  751 (S03E56 L=166)  1226    180        3 ( 226/ 675- 342/ 809) -58.0 E61-E50 S07-N01
     15 1482  713 (S20W25 L=247)   263     60        1 (1466/ 687-1502/ 745) -63.4 W24-W26 S21-S17
     16 1001  667 (S15E07 L=215)   256    137        0 ( 955/ 641-1028/ 723)  45.0 E09-E04 S16-S11
     17 1423  650 (S23W21 L=242)   382    108        0 (1392/ 604-1444/ 691) -90.0 W18-W22 S26-S20
     18  465  642 (S11E43 L=178)   520    118        0 ( 418/ 606- 503/ 673) -45.0 E46-E40 S13-S08
     19 1109  588 (S22E01 L=221)   828    149        3 (1069/ 550-1159/ 651)  63.4 E03-W02 S24-S17
     20  327  631 (S11E56 L=165)   373     47        2 ( 300/ 613- 357/ 649)   0.0 E59-E52 S11-S09
     21  432  571 (S15E49 L=173)   446     58        3 ( 408/ 538- 458/ 604)  78.7 E50-E46 S17-S12
     22 1205  580 (S24W05 L=227)   328     73        0 (1170/ 559-1242/ 600)   0.0 W02-W07 S25-S23
     23  490  573 (S16E43 L=178)   278     57        0 ( 464/ 555- 519/ 590) -11.3 E45-E40 S16-S14
     24  613  455 (S25E38 L=183)  1122    264        4 ( 555/ 341- 662/ 547)  39.8 E49-E31 S33-S18
     25  379  511 (S19E57 L=165)   513     58        2 ( 356/ 482- 413/ 539)  63.4 E59-E53 S21-S17
  

    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