Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1298 1498 (N23W31 L=215)  3128    624        6 (1006/1439-1572/1528) -25.3 W12-W49 N15-N32
      2  765 1332 (N29E07 L=177)   415     86        1 ( 734/1290- 799/1369) -71.6 E08-E05 N25-N31
      3 1881 1110 (S15W61 L=246)  5528    667        8 (1770/ 992-1952/1229)  75.1 W49-W69 S23-S08
      4  271 1213 (N34E48 L=137)   383     98        1 ( 235/1195- 304/1228) -15.9 E51-E44 N32-N35
      5 1854  987 (S21W55 L=239)   526     47        1 (1840/ 952-1868/1021) -90.0 W53-W56 S23-S18
      6 1573  709 (S29W26 L=210)  2298    514        2 (1402/ 527-1650/ 947)  38.4 W10-W35 S37-S16
      7  473  819 (N06E38 L=146)   400     84        1 ( 440/ 790- 510/ 851)  15.9 E41-E34 N04-N08
      8 1413  694 (S24W14 L=199)   596    157        0 (1347/ 610-1477/ 778)  26.6 W08-W20 S27-S20
      9  692  634 (S09E30 L=155)   235     96        0 ( 657/ 619- 751/ 650) -31.0 E31-E25 S10-S07
     10 1099  536 (S25E09 L=175)   605    219        1 (1053/ 439-1135/ 636)  50.7 E15-E04 S30-S19
     11  811  548 (S17E25 L=159)   304     98        2 ( 788/ 508- 833/ 600)  63.4 E27-E23 S19-S13
     12  703  384 (S25E40 L=145)   572    165        2 ( 688/ 325- 723/ 439)  41.2 E43-E35 S28-S21
     13 1006  355 (S35E22 L=162)   585    115        1 ( 957/ 325-1055/ 387) -15.9 E24-E17 S36-S32
     14  690  296 (S30E46 L=139)   401    100        2 ( 655/ 276- 729/ 316)   7.1 E49-E41 S31-S29
     15  824  252 (S37E40 L=144)  1727    334        2 ( 706/ 202- 935/ 295)   0.0 E52-E30 S39-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