Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  992 1842 (N59W37 L=287)   942    134        3 ( 929/1794-1036/1890)   7.4 W26-W50 N56-N62
      2 1433 1747 (N36W59 L=308)  1023    146        1 (1378/1721-1506/1771) -26.6 W52-W66 N32-N37
      3 1335 1734 (N38W50 L=299)   368     54        0 (1314/1703-1359/1758)  23.2 W46-W53 N36-N39
      4 1676 1395 (N09W53 L=302)   400     74        0 (1635/1379-1714/1411) -26.6 W49-W55 N07-N10
      5 1822 1234 (S04W59 L=308)  1164    168        0 (1805/1142-1846/1308)  45.0 W54-W64 S08-N00
      6  902 1262 (N23E01 L=248)   334     80        0 ( 863/1230- 935/1299) -71.6 E02-W00 N20-N26
      7  884 1176 (N19E04 L=245)   486    216        1 ( 785/1134- 972/1201)  -4.8 E11-W01 N17-N20
      8  910  990 (N08E07 L=242)   180    149        0 ( 881/ 926- 940/1056)  35.5 E10-E03 N05-N10
      9 1703  902 (S18W39 L=288)   347     63        0 (1680/ 869-1723/ 942)  36.9 W37-W41 S19-S16
     10  188  865 (N15E65 L=185)   641     98        1 ( 168/ 821- 216/ 911) -51.3 E66-E61 N11-N17
     11 1774  814 (S26W45 L=294)   680    105        0 (1723/ 783-1820/ 851)   0.0 W39-W50 S27-S24
     12  169  772 (N09E70 L=179)  1168    110        2 ( 134/ 718- 201/ 813) -90.0 E76-E65 N05-N11
     13  345  505 (S09E62 L=187)   765     99        0 ( 316/ 454- 368/ 552)  74.1 E65-E59 S12-S05
     14 1290  356 (S42E02 L=247)  2899    639        4 (1060/ 219-1535/ 518)   9.0 E24-W20 S47-S36
     15  692  492 (S16E34 L=215)   400     65        1 ( 660/ 467- 725/ 517) -36.9 E36-E32 S18-S14
     16 1042  468 (S26E14 L=235)   440     91        0 (1004/ 429-1081/ 511) -81.9 E15-E12 S29-S22
     17  500  437 (S16E51 L=198)  1874    289        3 ( 409/ 374- 575/ 500) -52.1 E57-E46 S21-S11
     18  649  396 (S21E42 L=207)   691    151        1 ( 595/ 359- 680/ 457)  33.7 E46-E37 S23-S17
     19  484  365 (S21E59 L=191)   658    116        2 ( 442/ 313- 521/ 406)  66.8 E62-E55 S24-S17
  

    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