Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1591 (N43W21 L=116)   373     65        0 (1327/1573-1394/1610)   9.5 W17-W23 N41-N44
      2 1569 1454 (N34W37 L=133)   822    293        0 (1466/1373-1662/1533) -31.0 W28-W45 N29-N39
      3 1168 1374 (N25W06 L=101)   953    452        0 (1046/1242-1304/1491) -35.8 E03-W15 N17-N31
      4  282 1456 (N19E66 L= 29)   484     57        2 ( 259/1436- 311/1476)  -5.7 E71-E61 N18-N20
      5 1298 1303 (N21W15 L=110)   296     82        0 (1267/1282-1335/1327) -11.3 W12-W17 N19-N22
      6 1096 1242 (N15W02 L= 98)   234    113        1 (1080/1193-1115/1298)  90.0 W01-W03 N12-N18
      7  617 1013 (S04E25 L= 70)   219    119        0 ( 583/ 991- 644/1074)  59.0 E27-E24 S05-N00
      8 1012  726 (S17W02 L= 98)   512    131        2 ( 961/ 692-1080/ 759)  26.6 W00-W06 S19-S15
      9 1517  615 (S19W39 L=134)   358    106        1 (1472/ 590-1569/ 629)  15.9 W35-W42 S21-S17
     10 1774  598 (S18W66 L=162)   515     88        0 (1742/ 576-1802/ 626)  38.7 W62-W69 S19-S15
     11  328  560 (S37E56 L= 40)  1240    169        1 ( 264/ 518- 400/ 599)  12.5 E72-E45 S41-S33
     12 1527  366 (S37W54 L=149)   449     49        1 (1501/ 347-1559/ 386)  36.9 W50-W56 S38-S34
     13 1035  208 (S58W17 L=113)   577    103        0 (1020/ 160-1053/ 264) -50.2 W13-W23 S64-S52
  

    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