Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1846 (N65W32 L=350)  1324    125        2 (1130/1824-1266/1867)   2.2 W20-W47 N62-N66
      2  448 1600 (N43E54 L=263)   437     85        0 ( 419/1558- 474/1632) -19.7 E61-E47 N39-N45
      3 1441 1552 (N37W36 L=353)   385     75        2 (1400/1530-1475/1568)  -8.1 W32-W39 N35-N37
      4  785 1365 (N26E16 L=302)  1182    404        4 ( 723/1273- 912/1462) -29.7 E20-E06 N20-N32
      5  394 1357 (N26E47 L=270)   400     77        1 ( 368/1330- 413/1397) -59.0 E49-E44 N23-N28
      6  422 1148 (N12E41 L=276)   546    119        4 ( 368/1123- 476/1170)  -6.3 E45-E36 N10-N13
      7 1749  854 (S10W51 L=  9)   518     48        0 (1718/ 833-1774/ 881)  11.3 W48-W54 S11-S08
      8  588  803 (S09E29 L=288)  1194    228        4 ( 489/ 757- 663/ 858)  13.0 E36-E23 S11-S05
      9  442  797 (S09E40 L=277)   295     40        1 ( 423/ 770- 463/ 824)  53.1 E41-E38 S11-S07
     10 1035  706 (S16E00 L=317)   227     87        0 (1010/ 680-1061/ 745)  63.4 E01-W01 S17-S13
     11 1118  680 (S18W05 L=322)   362    109        1 (1098/ 632-1134/ 739)  74.1 W03-W06 S20-S13
     12  786  657 (S18E17 L=301)   267     93        0 ( 750/ 635- 806/ 693)  45.0 E19-E15 S19-S16
     13  228  666 (S19E67 L=250)   711     67        1 ( 207/ 633- 256/ 689)  24.0 E72-E61 S21-S16
  

    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