Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1062 1626 (N42W22 L=113)   247     45        1 (1049/1600-1080/1648)  31.0 W19-W24 N40-N44
      2  443 1433 (N45E36 L= 55)   372     98        0 ( 399/1415- 483/1458)   5.7 E41-E31 N44-N46
      3  257  889 (N14E57 L= 34)  1978    315        5 ( 202/ 734- 299/1024) -86.8 E62-E53 N04-N22
      4  183  910 (N16E66 L= 25)  1124    163        1 ( 161/ 835- 199/ 987) -90.0 E70-E63 N11-N20
      5  795  931 (N07E15 L= 76)   214     93        0 ( 757/ 900- 835/ 954)  18.4 E18-E12 N05-N07
      6 1609  807 (S20W32 L=123)   565    217        0 (1586/ 709-1640/ 900)  57.5 W28-W35 S26-S15
      7 1449  802 (S16W20 L=112)   754    174        1 (1405/ 719-1494/ 866)  41.2 W16-W24 S20-S12
      8 1115  736 (S12E01 L= 90)   222    147        0 (1071/ 683-1147/ 798)  39.8 E05-W01 S13-S08
      9 1072  641 (S16E06 L= 85)   389    121        0 (1035/ 600-1124/ 692)  26.6 E09-E01 S18-S14
     10 1266  593 (S24W04 L= 96)   881    231        1 (1182/ 531-1361/ 661)  13.0 E02-W11 S26-S22
     11  254  617 (S03E68 L= 23)   624     77        2 ( 232/ 585- 278/ 655) -78.7 E71-E64 S05-N00
     12 1074  451 (S29E12 L= 80)  1358    234        2 (1006/ 398-1157/ 546) -81.3 E14-E06 S34-S21
     13 1393  493 (S35W11 L=103)   409    114        1 (1349/ 457-1431/ 538)  33.7 W07-W14 S36-S32
     14  717  250 (S36E49 L= 43)  2118    235        3 ( 665/ 156- 761/ 357)  36.2 E70-E43 S45-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