Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  947 1702 (N51E03 L= 54)   436     83        1 ( 928/1661- 970/1735)  80.5 E05-W00 N48-N54
      2 1145 1557 (N39W12 L= 70)   717    237        2 (1076/1506-1243/1617) -36.9 W07-W19 N34-N43
      3  293 1427 (N31E62 L=355)  1162    155        2 ( 277/1349- 320/1503) -42.3 E68-E56 N26-N36
      4 1385 1484 (N32W29 L= 87)   439    103        1 (1331/1470-1441/1497)   0.0 W25-W34 N30-N32
      5 1602 1382 (N23W45 L=102)   473    149        0 (1549/1330-1648/1436) -58.0 W41-W47 N19-N27
      6 1818 1349 (N19W67 L=125)  2654    183        5 (1771/1249-1867/1429)  50.7 W60-W77 N12-N23
      7  970 1378 (N27E02 L= 55)   345    124        0 ( 920/1345-1023/1397)  18.4 E05-W01 N24-N28
      8 1768 1296 (N16W58 L=115)   400     70        0 (1743/1271-1803/1320) -31.0 W55-W61 N14-N17
      9  619 1075 (N09E26 L= 31)   341     81        1 ( 599/1032- 634/1117)  78.7 E27-E24 N06-N11
     10 1673  782 (S15W44 L=102)  1894    345        2 (1581/ 632-1739/ 920)  62.1 W38-W49 S23-S06
     11 1822  823 (S14W60 L=117)   542     98        2 (1793/ 794-1842/ 863)  63.4 W56-W62 S15-S11
     12  967  766 (S11E05 L= 53)   281     95        1 ( 923/ 736-1007/ 791)  21.8 E07-E02 S13-S09
     13 1304  683 (S18W17 L= 74)   272     53        1 (1279/ 658-1325/ 710)  71.6 W15-W18 S20-S16
     14 1078  543 (S27W01 L= 59)   510    178        1 (1002/ 520-1163/ 568)  11.3 E03-W07 S28-S25
     15 1171  164 (S65W13 L= 70)   690     65        1 (1139/ 143-1204/ 186) -11.3 W07-W17 S68-S60
  

    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