Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1076 1699 (N49W21 L=181)  2122    393        3 ( 901/1657-1257/1732) -16.2 W04-W35 N43-N52
      2 1572 1678 (N35W64 L=224)  2275    189        3 (1481/1642-1658/1716) -12.8 W52-W77 N31-N36
      3 1065 1559 (N39W14 L=173)   905    270        2 ( 950/1524-1190/1586) -16.4 W05-W22 N35-N42
      4 1760 1459 (N17W66 L=226)  1006    120        0 (1724/1409-1801/1515) -82.9 W64-W69 N13-N21
      5 1407 1319 (N17W30 L=189)   476    166        0 (1332/1278-1467/1342) -36.9 W24-W32 N13-N19
      6  981 1329 (N25W02 L=162)   413    168        0 ( 908/1315-1067/1341) -11.3 E02-W08 N24-N26
      7  184 1086 (N20E65 L= 95)  1602    274        1 ( 165/ 960- 213/1221) -66.4 E69-E60 N12-N28
      8 1100 1124 (N11W06 L=166)   679    273        1 (1008/1075-1212/1179)  -9.5 W01-W13 N08-N14
      9 1827 1000 (S10W57 L=216)  4689    470       14 (1718/ 855-1905/1166)  38.3 W44-W67 S16-S01
     10 1606 1039 (S03W37 L=197)   343     82        3 (1564/1017-1642/1077) -31.0 W34-W39 S04-N00
     11  505  994 (N12E34 L=126)   466    131        1 ( 482/ 931- 527/1055)  66.8 E36-E32 N08-N15
     12 1196  958 (S00W09 L=169)   534    224        0 (1091/ 939-1289/ 982)   0.0 W02-W15 S01-N01
     13  623  898 (N04E27 L=133)   239     69        0 ( 599/ 873- 647/ 928) -56.3 E27-E25 N02-N06
     14 1339  783 (S13W15 L=175)   970    331        3 (1263/ 665-1420/ 902)  52.4 W09-W21 S19-S06
     15 1856  782 (S25W61 L=221)  1644    158        4 (1805/ 729-1899/ 858)  37.9 W54-W68 S28-S21
     16 1195  792 (S10W07 L=166)   847    154        4 (1152/ 741-1259/ 855)  71.6 W04-W10 S12-S06
     17  354  570 (S13E57 L=103)  3616    527        6 ( 230/ 386- 461/ 764) -83.7 E64-E48 S27-N00
     18 1145  696 (S15W02 L=162)   322    147        0 (1079/ 671-1213/ 724) -29.7 E01-W06 S17-S12
     19  387  639 (S09E50 L=109)   945    177        0 ( 333/ 578- 433/ 713) -68.2 E52-E47 S13-S03
     20  481  634 (S10E43 L=117)   765    177        2 ( 434/ 593- 538/ 706) -69.4 E44-E38 S13-S05
     21 1395  551 (S30W17 L=177)   815    178        0 (1342/ 481-1440/ 618)  41.2 W12-W20 S33-S25
     22  570  500 (S20E40 L=119)   362     69        2 ( 553/ 459- 584/ 541)  68.2 E42-E38 S22-S17
     23  550  336 (S32E53 L=107)   725     75        1 ( 519/ 303- 589/ 365)  10.3 E59-E47 S34-S29
     24  968  234 (S47E24 L=136)  1470    325        2 ( 860/ 164-1061/ 314)  20.8 E40-E11 S53-S41
  

    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