Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  959 1831 (N64E06 L=340)   960    160        0 ( 885/1811-1034/1846)   9.0 E16-W04 N62-N66
      2  435 1379 (N26E44 L=302)  1177    332        5 ( 383/1271- 503/1469) -77.0 E48-E37 N19-N32
      3 1800 1391 (N23W67 L= 53)  1464    227        3 (1708/1339-1858/1458) -34.7 W58-W78 N19-N28
      4 1296 1435 (N29W20 L=  6)   359    150        0 (1220/1423-1368/1446)   0.0 W14-W25 N28-N30
      5  198 1315 (N21E71 L=275)  3959    232        8 ( 161/1225- 233/1426) -77.0 E81-E62 N15-N28
      6 1669 1343 (N22W49 L= 35)   396     85        2 (1639/1311-1696/1381)  33.7 W45-W52 N19-N23
      7  921 1265 (N19E06 L=340)   260     71        1 ( 885/1244- 955/1284)  14.0 E08-E04 N17-N20
      8 1643 1170 (N11W43 L= 29)   417     79        1 (1624/1131-1659/1207) -68.2 W41-W44 N08-N13
      9 1868  829 (S12W67 L= 53)  1930    218        4 (1838/ 741-1896/ 913)  79.7 W62-W73 S17-S06
     10 1748  857 (S09W52 L= 38)   547     56        0 (1723/ 830-1772/ 886)  36.9 W49-W53 S10-S07
     11  212  822 (S09E63 L=283)  1302    109        0 ( 176/ 777- 265/ 851)  19.7 E69-E55 S12-S07
     12 1623  720 (S17W42 L= 28)   931    206        1 (1550/ 668-1705/ 762)  22.6 W36-W48 S20-S14
     13  671  656 (S19E24 L=322)   255     80        0 ( 660/ 617- 682/ 699)  78.7 E25-E23 S21-S16
     14 1038  505 (S30E00 L=346)   818    192        2 ( 999/ 438-1086/ 589)  79.7 E02-W03 S35-S23
  

    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