Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      2  724 1612 (N49E15 L=183)  1815    403        3 ( 552/1550- 891/1651) -19.4 E34-W00 N41-N53
      3 1236 1544 (N35W25 L=223)  1714    409        3 (1030/1496-1394/1572)  -8.1 W08-W36 N30-N37
      4 1458 1393 (N21W35 L=233)   261     89        0 (1442/1362-1480/1433) -76.0 W33-W36 N19-N23
      5  704 1420 (N35E17 L=181)   280     69        0 ( 663/1407- 740/1431) -18.4 E19-E13 N34-N36
      6  861 1156 (N16E08 L=189)   282    144        0 ( 802/1101- 901/1185) -50.2 E11-E06 N12-N18
      7  124 1038 (N16E75 L=122)  1415    136        2 ( 100/ 983- 145/1091) -56.3 E82-E70 N12-N18
      8  707 1029 (N11E19 L=178)   630    196        2 ( 649/ 981- 812/1074)  20.0 E23-E12 N08-N12
      9 1461  869 (S10W25 L=222)   514    143        2 (1423/ 800-1491/ 933)  60.3 W21-W27 S13-S06
     10 1001  902 (S01E03 L=194)   225     42        1 ( 975/ 885-1031/ 921) -18.4 E04-E01 S01-N00
     11  219  867 (N05E61 L=136)  1074    142        5 ( 168/ 822- 273/ 917) -33.7 E67-E55 N02-N08
     12 1344  807 (S12W16 L=214)   601    206        3 (1282/ 738-1381/ 887)  53.1 W11-W19 S15-S06
     13 1308  845 (S09W15 L=212)   213     57        1 (1281/ 825-1337/ 864)   0.0 W12-W16 S09-S07
     14  550  821 (N00E33 L=165)   529    180        1 ( 479/ 780- 620/ 841) -24.0 E37-E28 S03-N01
     15 1261  776 (S12W11 L=208)   345    119        1 (1211/ 745-1311/ 814)  15.9 W07-W14 S13-S10
     16 1701  770 (S21W43 L=241)   418     61        1 (1668/ 751-1730/ 789)  11.3 W40-W46 S22-S20
     17  809  740 (S08E17 L=180)   220     59        1 ( 777/ 721- 840/ 758) -36.9 E19-E15 S09-S06
     18 1440  662 (S23W22 L=219)  1544    234        6 (1361/ 577-1519/ 739)  30.3 W15-W27 S27-S17
     19 1729  693 (S27W47 L=244)   540     86        2 (1698/ 657-1759/ 737)  45.0 W43-W49 S29-S24
     20  615  656 (S11E32 L=166)   400    115        2 ( 575/ 625- 673/ 682)   7.1 E35-E27 S12-S09
     21 1506  632 (S26W26 L=224)   347     92        1 (1480/ 594-1539/ 665)  38.7 W24-W29 S28-S24
     22  558  578 (S15E38 L=160)   506    163        4 ( 511/ 526- 611/ 637) -69.4 E40-E35 S19-S11
     23  677  551 (S18E30 L=167)   270    150        0 ( 625/ 537- 743/ 579) -20.6 E33-E25 S19-S15
     24  873  425 (S30E21 L=177)   564    108        0 ( 840/ 382- 903/ 470)  45.0 E24-E18 S32-S26
  

    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