Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1879 (N59E24 L=271)   502     43        1 (1212/1858-1249/1900) -54.5 E28-E20 N55-N62
      2 1019 1517 (N21E15 L=280)   401    167        1 ( 935/1470-1056/1544)   7.1 E19-E11 N18-N22
      3  299 1429 (S01E61 L=233)   596     82        0 ( 272/1399- 332/1463) -12.5 E66-E56 S02-N00
      4 1777 1275 (N32W44 L=339)  1870    386        1 (1751/1092-1814/1428) -77.2 W41-W48 N20-N42
      5 1708 1208 (N25W38 L=333)  1237    278        3 (1661/1077-1754/1301) -47.7 W33-W44 N18-N29
      6 1538 1201 (N18W25 L=320)   326     94        0 (1511/1150-1566/1242)  81.9 W24-W26 N14-N21
      7  224  970 (S29E57 L=238)  2115    333        5 ( 100/ 922- 379/ 992)   7.0 E81-E40 S33-S25
      8 1791  773 (N04W58 L=353)   697    100        0 (1744/ 754-1842/ 791)  26.6 W53-W63 N01-N06
      9  812  747 (S28E04 L=290)   383     89        0 ( 769/ 715- 838/ 784)  59.0 E06-E02 S30-S25
     10 1256  572 (S24W28 L=323)   556    198        0 (1161/ 549-1351/ 594)  35.0 W23-W33 S27-S20
     11 1506  451 (S22W52 L=347)  1330    269        2 (1410/ 396-1589/ 524)  71.6 W46-W56 S28-S16
     12 1513  387 (S25W58 L=353)   441     87        0 (1476/ 362-1549/ 412)  63.4 W55-W59 S27-S22
     13  749  320 (S59W08 L=303)   305     47        0 ( 716/ 309- 778/ 334)  38.7 W05-W11 S61-S57
  

    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