Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  901 1833 (N64E17 L=  6)   992    137        1 ( 839/1807- 960/1854)  19.7 E24-E09 N60-N66
      2  846 1621 (N43E15 L=  8)   263    102        1 ( 809/1574- 869/1656) -49.4 E19-E12 N39-N46
      3 1357 1553 (N38W27 L= 50)   276     88        0 (1323/1518-1393/1583) -51.3 W24-W29 N35-N40
      4 1377 1411 (N28W25 L= 48)   293     93        0 (1341/1391-1420/1437) -11.3 W22-W28 N26-N29
      5 1038 1324 (N23W01 L= 24)   318    120        0 ( 992/1277-1084/1365) -39.8 E02-W04 N19-N25
      6  330 1286 (N19E52 L=331)   369     80        1 ( 299/1262- 370/1313)  26.6 E54-E48 N17-N20
      7 1838  855 (S09W62 L= 85)   552    113        0 (1822/ 803-1849/ 912)  90.0 W61-W64 S12-S05
      8 1752  854 (S09W52 L= 75)   491     14        1 (1729/ 830-1775/ 879)  71.6 W49-W54 S09-S06
      9 1653  782 (S13W44 L= 66)  1196    292        1 (1583/ 712-1706/ 870)  66.0 W38-W47 S16-S07
     10 1080  700 (S17W03 L= 26)   640    206        1 ( 991/ 662-1167/ 737)  10.3 E02-W09 S19-S14
     11  552  609 (S23E34 L=349)   333     81        2 ( 525/ 582- 583/ 650) -63.4 E36-E31 S25-S20
     12 1554  577 (S26W39 L= 62)  1094    202        2 (1468/ 539-1620/ 641)   4.4 W31-W44 S28-S21
     13  532  489 (S32E39 L=344)  2260    344        5 ( 452/ 412- 633/ 574) -42.3 E44-E31 S38-S25
  

    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