Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1404 1656 (N42W10 L= 12)   660     92        0 (1362/1621-1453/1684)  -6.3 W05-W14 N40-N44
      2 1119 1644 (N33E10 L=352)   299     57        0 (1093/1617-1148/1671) -31.0 E12-E07 N31-N34
      3 1508 1604 (N42W19 L= 21)   580     87        1 (1484/1572-1530/1642) -68.2 W16-W21 N39-N44
      4  731 1523 (N16E30 L=333)   471    149        0 ( 711/1452- 750/1581) -53.1 E32-E26 N11-N19
      5 1586 1521 (N38W26 L= 29)   615     85        2 (1559/1487-1612/1562) -80.5 W24-W28 N35-N41
      6 1171 1328 (N13W01 L=  4)   211     66        0 (1146/1299-1188/1367) -76.0 W00-W02 N11-N15
      7 1341 1275 (N14W13 L= 15)   416    158        0 (1320/1191-1366/1351) -66.0 W10-W15 N10-N19
      8  372 1060 (S18E42 L=320)   665    192        1 ( 346/ 955- 395/1141) -74.7 E45-E40 S24-S13
      9  892  977 (S13E07 L=356)   818    200        0 ( 801/ 881- 959/1069)  69.0 E10-E03 S19-S06
     10 1596 1039 (N08W34 L= 36)   231     52        1 (1566/1024-1625/1051)  26.6 W31-W35 N06-N08
     11 1505  823 (S07W33 L= 36)  1312    370        2 (1357/ 680-1633/ 969)  67.8 W28-W38 S18-N04
     12 1179  677 (S23W18 L= 20)   919    221        2 (1099/ 646-1279/ 741)  -4.4 W11-W24 S24-S20
     13 1686  670 (S10W52 L= 54)   516    113        0 (1641/ 615-1716/ 719)  74.1 W50-W53 S13-S06
  

    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