Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1418 1621 (N36W29 L=145)  1367    246        3 (1255/1576-1573/1654)   0.0 W16-W41 N32-N38
      2  396 1534 (N29E48 L= 69)   672    240        0 ( 345/1478- 437/1586) -36.9 E54-E42 N24-N33
      3  995 1489 (N25E03 L=114)   542    124        1 ( 967/1439-1020/1546)  90.0 E04-W00 N21-N29
      4 1167 1410 (N20W09 L=125)   245     97        0 (1149/1361-1182/1456)  80.5 W07-W09 N17-N23
      5  248 1408 (N21E59 L= 57)   623     65        1 ( 225/1386- 274/1430) -18.4 E61-E55 N19-N22
      6 1222 1219 (N08W12 L=128)   253     54        1 (1192/1190-1252/1253) -26.6 W09-W13 N06-N10
      7  554 1136 (N03E29 L= 87)  1085    231        0 ( 511/1011- 612/1238)  67.4 E32-E25 S04-N09
      8  136 1137 (N05E69 L= 47)  2923    339        7 (  84/1077- 177/1218)  45.0 E80-E62 N00-N09
      9  626 1067 (S01E25 L= 92)   441    202        1 ( 550/ 970- 695/1143)  48.4 E29-E20 S06-N03
     10  979 1081 (S00E03 L=113)   201     61        0 ( 952/1062-1002/1111)  33.7 E04-E01 S01-N01
     11  716  966 (S07E19 L= 97)   640    160        1 ( 668/ 883- 754/1048) -63.4 E21-E16 S12-S02
     12  788 1027 (S04E14 L=102)   253     62        1 ( 751/1009- 823/1044) -14.0 E16-E12 S04-S02
     13 1904  871 (S10W68 L=184)  3034    352        6 (1872/ 759-1947/ 986)  81.9 W63-W74 S16-S02
     14  926  913 (S10E06 L=110)   553    163        2 ( 843/ 875-1010/ 953)  11.3 E10-W00 S12-S07
     15  675  864 (S13E22 L= 94)   436    111        3 ( 626/ 840- 728/ 894) -18.4 E24-E18 S14-S11
     16  967  783 (S18E03 L=113)   549    167        4 ( 889/ 747-1031/ 849)  32.0 E08-W00 S20-S14
     17  403  828 (S15E42 L= 75)   295    102        2 ( 361/ 809- 445/ 845)   0.0 E44-E38 S16-S14
     18  800  737 (S21E14 L=102)   459    171        1 ( 737/ 666- 829/ 790) -63.4 E18-E12 S25-S17
     19 1834  753 (S17W61 L=177)   432     77        1 (1817/ 725-1856/ 789)  76.0 W59-W63 S19-S15
     20 1724  724 (S20W50 L=166)   368     91        1 (1700/ 680-1748/ 769)  71.6 W48-W51 S22-S16
     21  306  726 (S21E52 L= 65)   654    136        2 ( 271/ 684- 357/ 760)  26.6 E55-E46 S23-S19
     22  999  662 (S26E01 L=115)   647    254        2 ( 872/ 625-1125/ 702)  14.9 E09-W06 S28-S23
     23  306  590 (S30E55 L= 61)   647    107        1 ( 278/ 544- 335/ 636) -63.4 E56-E52 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