Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1349 1776 (N56E03 L=245)   751     74        1 (1312/1748-1389/1797)  54.5 E05-W00 N52-N60
      2  627 1649 (N22E46 L=202)   724    233        2 ( 577/1618- 719/1718)   4.4 E53-E38 N19-N25
      3  408 1656 (N17E67 L=181)  1027    108        1 ( 382/1601- 424/1692) -45.0 E75-E62 N13-N20
      4  361 1508 (N07E60 L=188)  3086    254       12 ( 285/1424- 447/1587)  61.4 E68-E53 N01-N13
      5  328 1268 (S08E52 L=196)   305     47        0 ( 306/1254- 355/1284)   0.0 E54-E49 S08-S06
      6  156 1017 (S26E67 L=181)   860     85        1 ( 124/ 995- 199/1044)  -4.8 E73-E60 S26-S23
      7  421  904 (S27E36 L=212)   451    117        1 ( 363/ 884- 471/ 927)  11.3 E41-E31 S28-S24
      8 1908  857 (N12W71 L=320)  1298    117        2 (1884/ 802-1929/ 912)  81.9 W68-W75 N08-N15
      9  355  640 (S46E42 L=206)   452     68        2 ( 334/ 608- 379/ 670) -31.0 E44-E39 S47-S43
     10 1621  561 (S13W53 L=302)   308     84        0 (1597/ 521-1636/ 606) -59.0 W51-W55 S15-S10
     11 1448  500 (S21W44 L=292)   394    108        1 (1435/ 441-1467/ 548) -45.0 W41-W47 S24-S18
     12  870  470 (S42W08 L=256)   487    114        1 ( 841/ 431- 909/ 524) -18.4 W03-W12 S43-S38
     13 1493  440 (S23W51 L=299)   401     33        1 (1465/ 422-1517/ 463)  56.3 W49-W53 S24-S21
  

    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