Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1581 1523 (N26W45 L=  2)   715    113        0 (1526/1487-1634/1548) -33.7 W40-W48 N23-N27
      2  395 1199 (N13E41 L=276)   282     58        0 ( 362/1186- 430/1212)   9.5 E43-E37 N12-N14
      3 1795  962 (S10W54 L= 10)   724    191        0 (1749/ 892-1851/1051)  42.0 W49-W59 S13-S04
      4 1446 1028 (S04W26 L=343)   228     62        1 (1419/1006-1482/1048)   0.0 W24-W28 S05-S02
      5 1797  824 (S18W55 L= 12)   894    158        1 (1759/ 757-1837/ 879)  60.3 W51-W59 S22-S15
      6  934  773 (S16E07 L=309)   284    118        0 ( 902/ 725- 960/ 829) -74.1 E08-E06 S19-S12
      7  400  770 (S12E44 L=273)   264     62        0 ( 387/ 737- 413/ 802)  76.0 E44-E42 S14-S10
      8  427  661 (S19E44 L=272)   865    258        2 ( 399/ 558- 455/ 769)  52.4 E50-E39 S25-S12
      9  367  735 (S14E48 L=269)   295     45        2 ( 347/ 706- 392/ 759)  71.6 E49-E45 S15-S12
     10 1575  621 (S30W37 L=354)   275     63        0 (1543/ 599-1604/ 645)  36.9 W34-W39 S31-S28
     11  343  564 (S25E57 L=260)   381     57        0 ( 310/ 541- 373/ 577)   6.3 E62-E53 S25-S23
     12  768  526 (S31E22 L=295)   278     32        1 ( 744/ 500- 793/ 548)  45.0 E23-E20 S32-S29
     13  709  332 (S45E35 L=282)   944    200        3 ( 646/ 250- 764/ 410)  26.6 E48-E26 S50-S38
  

    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