Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1417 1556 (N29W29 L=125)  2049    566        2 (1192/1459-1656/1673) -23.6 W14-W47 N22-N38
      2  468 1520 (N30E40 L= 56)   774    114        1 ( 424/1463- 499/1570) -37.9 E45-E35 N26-N33
      3 1233 1472 (N24W15 L=111)   444    129        1 (1201/1407-1254/1524) -82.9 W13-W16 N19-N27
      4 1114 1463 (N24W07 L=103)   325    112        0 (1061/1443-1163/1480)   0.0 W03-W10 N22-N24
      5 1342 1275 (N11W20 L=116)   407    185        0 (1326/1183-1357/1369)  76.0 W18-W21 N05-N17
      6 1874 1301 (N13W66 L=161)   613     69        2 (1849/1266-1902/1335) -76.0 W62-W69 N11-N15
      7  203  751 (S15E63 L= 33)  4103    558        8 ( 131/ 504- 263/1031)  73.8 E75-E58 S30-N01
      8  781  961 (S06E15 L= 81)   225     61        2 ( 754/ 934- 805/ 993)  56.3 E16-E13 S07-S04
      9  855  908 (S09E10 L= 85)   618    198        3 ( 808/ 859- 946/ 959) -32.0 E13-E05 S12-S06
     10 1870  824 (S15W63 L=159)  2468    234       10 (1788/ 725-1947/ 890)  29.1 W55-W75 S21-S11
     11  341  842 (S11E46 L= 49)   963    146        2 ( 278/ 796- 403/ 879)   5.2 E51-E40 S13-S09
     12  826  835 (S14E13 L= 83)   191     48        1 ( 800/ 818- 855/ 856) -14.0 E14-E10 S14-S12
     13  520  689 (S21E35 L= 61)  1920    544        2 ( 353/ 628- 657/ 826)  -5.0 E47-E24 S25-S13
     14 1901  768 (S19W70 L=166)   709     80        1 (1887/ 728-1915/ 808)  90.0 W68-W74 S21-S16
     15 1417  644 (S27W26 L=121)   361    139        0 (1366/ 598-1455/ 700)  50.2 W22-W27 S29-S23
     16 1575  619 (S28W39 L=134)   254     85        2 (1556/ 583-1594/ 668) -51.3 W36-W41 S30-S25
     17 1241  556 (S32W14 L=109)   209     68        0 (1204/ 545-1280/ 571) -11.3 W11-W16 S32-S31
     18  874  393 (S43E14 L= 81)   625    201        0 ( 798/ 357- 960/ 444)  21.8 E21-E06 S45-S39
     19  699  300 (S49E34 L= 61)   305     55        0 ( 671/ 283- 731/ 314)   8.1 E37-E30 S50-S48
     20 1275  208 (S61W27 L=123)   555     49        2 (1251/ 187-1302/ 236) -26.6 W22-W32 S63-S57
     21 1193  201 (S62W17 L=113)   572     62        1 (1167/ 171-1230/ 231) -26.6 W12-W22 S65-S58
  

    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