Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  620 1400 (N04E34 L=178)   465    146        3 ( 584/1376- 665/1429)   0.0 E37-E30 N02-N05
      2 1368 1332 (N20W11 L=223)   533     71        2 (1340/1297-1400/1372) -31.0 W08-W13 N17-N21
      3  417 1192 (S12E42 L=170)   791    181        2 ( 379/1112- 460/1259)  90.0 E45-E38 S16-S07
      4  330 1190 (S14E49 L=163)   378     71        1 ( 312/1153- 346/1225) -53.1 E50-E46 S15-S11
      5 1672 1111 (N17W37 L=248)   313     49        0 (1652/1078-1693/1138) -26.6 W34-W38 N15-N18
      6 1085 1004 (S06W04 L=216)   450    145        0 (1004/ 982-1157/1019)  26.6 W00-W08 S08-S04
      7  889  898 (S17E04 L=207)   861    334        0 ( 785/ 788- 950/1008)  86.2 E09-E01 S26-S11
      8 1290  831 (S10W20 L=232)   366    107        0 (1239/ 809-1343/ 856)  33.7 W17-W23 S12-S08
      9  496  782 (S34E28 L=184)   340     68        0 ( 464/ 759- 528/ 810)   0.0 E30-E24 S35-S32
     10 1465  567 (S19W41 L=253)  3639    924        7 (1068/ 481-1785/ 619)  19.9 W15-W66 S28-S05
     11 1763  516 (S11W70 L=282)  2035    239        5 (1728/ 448-1800/ 575) -66.8 W66-W76 S14-S06
     12 1659  424 (S19W65 L=277)  1408    268        1 (1613/ 362-1677/ 477) -24.0 W58-W71 S21-S16
     13 1489  413 (S26W51 L=263)  1152    306        0 (1355/ 391-1601/ 448)  29.4 W41-W58 S30-S20
     14 1397  280 (S36W54 L=266)   921    217        0 (1328/ 249-1456/ 307)  14.0 W47-W60 S37-S34
  

    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