Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1613 1546 (N20W54 L=108)  1591    256        3 (1505/1497-1696/1625)   4.2 W43-W70 N18-N22
      2 1111 1587 (N34W20 L= 74)  1759    326        4 ( 970/1535-1260/1624) -30.5 W09-W28 N27-N38
      3  458 1453 (N40E33 L= 22)  2031    351        5 ( 333/1349- 554/1588) -36.3 E55-E24 N31-N53
      4  875 1376 (N26E02 L= 53)   198     42        0 ( 854/1351- 896/1396)  33.7 E03-W00 N24-N26
      5  500 1200 (N23E30 L= 25)   341     49        1 ( 470/1183- 540/1215)   0.0 E32-E26 N21-N23
      6  205 1109 (N23E58 L=357)  1278    130        3 ( 174/1039- 244/1166) -76.0 E62-E53 N18-N26
      7  560 1098 (N15E27 L= 28)   698    115        2 ( 516/1046- 610/1146) -54.5 E29-E23 N11-N18
      8  152  995 (N17E66 L=349)  5334    330       11 (  92/ 861- 229/1116) -46.8 E78-E55 N08-N24
      9 1488  993 (S09W27 L= 81)   470    188        1 (1469/ 885-1512/1062)  56.3 W23-W29 S14-S05
     10 1202  764 (S16W05 L= 60)   486    159        0 (1135/ 715-1258/ 823) -60.9 W02-W07 S20-S11
     11 1775  655 (S37W51 L=105)   922    108        1 (1737/ 611-1808/ 690)  78.7 W45-W55 S40-S34
     12  791  467 (S26E28 L= 26)   441     99        1 ( 776/ 417- 807/ 523)  60.3 E31-E25 S29-S22
     13  422  352 (S27E68 L=347)  1672    122        3 ( 381/ 288- 456/ 405)  45.0 E79-E59 S31-S22
  

    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