Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  819 1601 (N47W03 L=162)   415     99        0 ( 783/1563- 858/1636)  20.6 E01-W07 N45-N48
      2  862 1328 (N28E02 L=157)   451    127        0 ( 801/1289- 907/1366)  14.0 E07-W01 N27-N29
      3 1123 1212 (N15W10 L=169)   782    438        0 ( 938/1163-1296/1252) -10.3 E01-W21 N11-N17
      4 1828 1128 (S09W56 L=215)  1908    254        7 (1788/1070-1896/1208) -90.0 W52-W65 S12-S03
      5 1702 1144 (S04W45 L=204)   428    120        0 (1682/1081-1722/1206)  74.1 W44-W46 S07-N00
      6  567 1148 (N24E26 L=133)   742    162        2 ( 489/1107- 638/1187)   0.0 E31-E20 N22-N25
      7  317 1085 (N25E47 L=112)   396     95        1 ( 290/1040- 349/1115)  33.7 E49-E43 N22-N26
      8 1738  949 (S16W44 L=202)  3077    523        5 (1593/ 727-1894/1089)  15.9 W28-W63 S25-S06
      9 1193 1040 (N04W10 L=169)   262     69        1 (1157/1016-1232/1064)   0.0 W07-W12 N03-N05
     10  296  965 (N18E51 L=108)   475    133        1 ( 251/ 916- 333/1006) -45.0 E54-E47 N14-N21
     11  163  879 (N15E68 L= 91)   482     32        0 ( 140/ 858- 185/ 898)  -8.1 E71-E64 N13-N15
     12 1274  796 (S12W09 L=168)   286     48        0 (1252/ 773-1298/ 823)  63.4 W07-W10 S13-S10
     13 1250  688 (S17W05 L=164)  1515    393        2 (1124/ 606-1416/ 740)   0.0 E03-W16 S20-S14
     14  410  572 (S07E52 L=107)  1182    289        3 ( 274/ 503- 501/ 664) -33.7 E61-E45 S11-N00
     15 1371  527 (S31W09 L=168)   409    151        0 (1307/ 483-1434/ 560)   5.7 W04-W14 S32-S30
     16  999  470 (S25E16 L=143)   564    167        3 ( 917/ 429-1061/ 491)  -5.2 E22-E11 S26-S23
     17  494  432 (S17E52 L=107)  1109    142        3 ( 464/ 381- 534/ 488)  76.0 E55-E48 S20-S12
     18  685  399 (S23E39 L=120)   740    169        0 ( 645/ 330- 729/ 465)  28.3 E45-E32 S26-S18
     19  957  367 (S31E23 L=136)   283    114        0 ( 890/ 356-1002/ 386) -15.9 E26-E19 S32-S29
     20 1014  325 (S36E21 L=138)   647    160        1 ( 959/ 276-1072/ 384)  21.0 E27-E14 S38-S32
     21 1292  329 (S44E02 L=157)   528     83        0 (1250/ 302-1326/ 355) -63.4 E03-W01 S47-S40
     22  621  300 (S29E51 L=108)   747    226        2 ( 538/ 270- 681/ 330) -21.8 E57-E44 S31-S25
     23  935  151 (S50E43 L=116)   707     57        2 ( 914/ 125- 961/ 182)  56.3 E47-E37 S53-S46
  

    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