Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1646 1602 (N32W52 L=190)  2122    350        6 (1544/1546-1730/1642) -10.6 W43-W60 N27-N34
      2  765 1594 (N36E15 L=123)   774    153        1 ( 684/1565- 837/1616) -14.0 E21-E09 N33-N37
      3  373 1230 (N14E42 L= 96)   388    127        1 ( 342/1174- 398/1275) -56.3 E45-E40 N10-N17
      4  145 1197 (N14E66 L= 73)   613    175        0 ( 112/1182- 180/1211) -11.3 E70-E60 N12-N15
      5 1000 1139 (N05E01 L=137)   344     78        1 ( 970/1087-1024/1181) -90.0 E02-W00 N01-N07
      6  311 1085 (N06E47 L= 91)   539    119        1 ( 283/1027- 339/1145) -60.3 E49-E45 N02-N09
      7 1515  969 (S08W30 L=169)   635    142        1 (1474/ 888-1552/1031) -66.0 W27-W33 S12-S03
      8 1358  961 (S08W20 L=158)   260    124        1 (1311/ 941-1419/ 999) -26.6 W17-W23 S08-S05
      9 1928  868 (S15W69 L=208)   923    132        1 (1909/ 831-1953/ 912)  38.7 W66-W73 S16-S12
     10  356  838 (S09E46 L= 93)   404    126        1 ( 308/ 821- 404/ 854)   0.0 E49-E41 S10-S07
     11  270  698 (S17E57 L= 82)  1569    231        8 ( 234/ 626- 310/ 791)  84.3 E60-E53 S21-S11
     12 1747  685 (S26W51 L=189)   797    116        1 (1710/ 644-1790/ 719)  51.3 W47-W54 S28-S23
     13  299  582 (S24E57 L= 81)   850    180        3 ( 246/ 548- 337/ 630) -39.8 E61-E52 S26-S20
     14  892  465 (S37E14 L=125)   266     73        1 ( 851/ 450- 939/ 480)   0.0 E16-E09 S37-S35
  

    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