Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1304 1511 (N24W31 L=214)  3133    725        8 ( 983/1456-1584/1543) -21.8 W11-W51 N15-N33
      2  794 1343 (N29E05 L=177)   380     98        2 ( 764/1302- 827/1387) -10.9 E06-E03 N25-N31
      3 1837 1172 (S10W58 L=240)  1277    274        3 (1790/1105-1883/1263)  24.8 W52-W66 S13-S06
      4  303 1221 (N34E45 L=138)   307     70        1 ( 272/1194- 325/1242)   0.0 E47-E42 N31-N34
      5 1919 1105 (S17W66 L=248)  3319    441        6 (1856/1000-1962/1205) -90.0 W60-W71 S23-S09
      6 1872  999 (S21W57 L=239)   572     76        1 (1856/ 960-1887/1033)  53.1 W55-W59 S23-S18
      7 1599  726 (S28W28 L=210)  2336    532        2 (1429/ 539-1674/ 975)  39.8 W12-W37 S36-S15
      8  650  758 (S01E28 L=154)   337    128        0 ( 599/ 698- 690/ 802) -71.6 E30-E26 S04-N02
      9 1429  693 (S25W15 L=198)   485    147        0 (1371/ 626-1491/ 771)  24.4 W10-W21 S28-S21
     10 1130  558 (S25E07 L=176)   613    224        1 (1076/ 453-1168/ 649)  36.9 E13-E01 S30-S19
     11  763  421 (S24E34 L=149)  1431    580        6 ( 678/ 272- 860/ 593)  32.2 E48-E21 S31-S14
     12  490  413 (S18E54 L=129)   346     89        0 ( 471/ 377- 504/ 452)  63.4 E55-E52 S20-S14
     13  846  260 (S37E38 L=144)  1007    310        1 ( 730/ 219- 941/ 304)   0.0 E49-E28 S39-S33
  

    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