Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  736 1722 (N60E11 L= 23)   384     44        2 ( 712/1697- 757/1746)  18.4 E14-E08 N57-N62
      2  644 1688 (N59E23 L= 11)   822     80        3 ( 613/1643- 679/1718)  90.0 E29-E18 N54-N61
      3  548 1647 (N57E35 L=359)  1150    120        3 ( 507/1595- 600/1688)  50.2 E42-E28 N52-N60
      4  988 1600 (N44W10 L= 44)   636    147        1 ( 923/1576-1058/1622) -33.7 W04-W14 N40-N46
      5 1205 1580 (N38W26 L= 60)   626    140        2 (1146/1558-1278/1599) -11.3 W21-W31 N36-N39
      6  315 1293 (N33E51 L=343)   509    102        2 ( 277/1256- 356/1318) -11.3 E56-E46 N30-N34
      7  945 1180 (N17E02 L= 32)   314    108        0 ( 909/1130- 974/1218) -74.1 E04-W00 N13-N20
      8  307 1033 (N17E50 L=344)   293     40        1 ( 285/1013- 332/1049)   0.0 E52-E47 N15-N17
      9 1726  928 (S13W46 L= 80)   292     88        0 (1706/ 897-1747/ 976)  45.0 W43-W48 S14-S10
     10 1882  851 (S22W65 L= 99)   650    114        0 (1853/ 797-1907/ 893)  26.6 W60-W69 S24-S20
     11 1344  645 (S22W14 L= 48)  1424    305        6 (1282/ 538-1417/ 775) -80.5 W10-W18 S31-S13
     12 1724  664 (S30W46 L= 80)   938    178        1 (1660/ 615-1795/ 723)  12.1 W39-W53 S32-S27
     13 1566  631 (S28W31 L= 65)   299     79        0 (1540/ 603-1593/ 667)  45.0 W28-W32 S30-S26
  

    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