Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1738 1531 (N19W70 L=108)  1682    147        1 (1699/1466-1770/1596)  60.9 W65-W73 N14-N23
      2 1791 1512 (N16W77 L=115)  1367    116        0 (1762/1471-1826/1560) -63.4 W73-W81 N13-N19
      3 1437 1500 (N26W39 L= 77)   377     97        0 (1405/1474-1479/1541) -68.2 W38-W42 N23-N28
      4 1712 1442 (N15W59 L= 97)  1271    247        2 (1633/1358-1801/1535) -66.8 W56-W65 N08-N22
      5  379 1356 (N38E44 L=354)  1232    243        1 ( 303/1277- 481/1422) -32.3 E54-E33 N31-N43
      6  790 1140 (N18E12 L= 26)   662    199        0 ( 721/1071- 838/1219) -63.4 E15-E09 N13-N23
      7 1423 1085 (N02W25 L= 63)   403    140        0 (1394/1041-1473/1136) -63.4 W23-W27 S01-N05
      8 1883 1063 (S11W64 L=102)  2329    187        5 (1830/ 963-1928/1127) -55.3 W58-W71 S18-S05
      9 1822 1023 (S11W55 L= 93)   838     92        1 (1800/ 979-1850/1076)  81.9 W53-W58 S14-S07
     10  146  914 (N12E71 L=327)   779     80        0 ( 117/ 885- 174/ 935) -12.5 E78-E66 N10-N13
     11  355  599 (S09E56 L=342)  5843    741       18 ( 246/ 318- 539/ 876) -90.0 E73-E48 S30-N09
     12 1696  712 (S27W41 L= 78)   431    103        0 (1664/ 671-1732/ 748)  23.2 W37-W44 S29-S25
     13 1288  383 (S40W04 L= 42)   893    142        1 (1246/ 336-1313/ 452)  84.3 W00-W06 S44-S34
     14  897  386 (S31E23 L= 15)  1647    419        3 ( 760/ 283-1069/ 450)  13.1 E39-E09 S36-S27
     15  948  306 (S38E23 L= 15)   685    129        1 ( 907/ 258- 982/ 357)  35.0 E28-E18 S42-S34
  

    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