Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  499 1577 (N41E43 L=324)   750    122        3 ( 442/1550- 545/1604)   6.3 E47-E38 N39-N43
      2  322 1478 (N34E56 L=311)  1554    349        5 ( 277/1399- 369/1553) -39.8 E64-E49 N28-N38
      3 1453 1506 (N33W34 L= 41)   301     82        0 (1410/1487-1497/1524) -26.6 W31-W37 N31-N34
      4  788 1474 (N34E16 L=351)   265     44        0 ( 770/1449- 805/1500)  76.0 E17-E14 N31-N35
      5  875 1455 (N32E09 L=358)   350    106        0 ( 825/1437- 928/1469) -14.0 E13-E05 N30-N33
      6  655 1284 (N21E24 L=343)  2362    653        7 ( 421/1065- 821/1426) -36.3 E43-E12 N07-N30
      7 1201 1395 (N27W13 L= 20)   766    261        2 (1079/1350-1330/1420)   6.3 W04-W22 N24-N28
      8  224 1203 (N15E60 L=307)  1491    266        5 ( 196/1122- 264/1302) -84.8 E63-E55 N10-N21
      9 1530 1186 (N12W34 L= 41)   554    187        0 (1453/1114-1598/1248) -45.0 W29-W38 N07-N16
     10  266 1109 (N10E55 L=312)   387     66        1 ( 252/1072- 278/1147) -68.2 E55-E53 N07-N12
     11  608  613 (S21E30 L=337)  1412    539        3 ( 445/ 488- 771/ 763)  32.3 E46-E16 S30-S11
     12 1360  741 (S15W21 L= 28)   223     46        0 (1334/ 725-1384/ 761)  18.4 W19-W22 S15-S13
     13 1735  631 (S25W53 L= 60)   377     74        1 (1711/ 614-1758/ 656) -21.8 W50-W55 S26-S23
     14  890  510 (S29E11 L=356)   895    191        3 ( 807/ 444- 978/ 560)  31.6 E18-E04 S33-S25
  

    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