Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1481 1546 (N41W24 L=302)   314     38        0 (1457/1524-1504/1569) -21.8 W21-W26 N39-N42
      2  337 1401 (N10E55 L=223)  1303    249        1 ( 315/1289- 381/1515) -71.6 E59-E51 N02-N17
      3 1039 1430 (N24E07 L=272)   729    193        1 ( 979/1335-1079/1493) -48.4 E11-E03 N17-N27
      4  704 1416 (N17E27 L=251)   644    151        1 ( 672/1358- 730/1492) -71.6 E29-E26 N12-N21
      5  518 1388 (N12E40 L=239)   481    121        1 ( 486/1352- 555/1424) -38.7 E42-E36 N09-N13
      6  627 1372 (N13E31 L=247)   247     67        1 ( 585/1355- 660/1384)  21.8 E34-E29 N11-N13
      7  694 1314 (N10E25 L=253)   830    165        3 ( 643/1266- 766/1349)  54.5 E28-E20 N06-N13
      8  705 1224 (N05E23 L=256)   246    105        1 ( 671/1184- 742/1244)  53.1 E24-E20 N02-N06
      9  494  986 (S12E33 L=246)  1278    338        1 ( 444/ 852- 571/1136)  77.5 E35-E29 S20-S02
     10  857  818 (S16E06 L=272)   992    436        3 ( 680/ 756-1011/ 881)  14.0 E17-W03 S22-S12
     11 1615  799 (S04W42 L=320)   626    161        0 (1575/ 731-1641/ 856) -54.5 W37-W44 S07-N00
     12  804  592 (S31E06 L=272)   263     54        0 ( 775/ 574- 828/ 611)  36.9 E08-E04 S32-S29
     13  486  389 (S55E38 L=240)   402     67        0 ( 453/ 364- 516/ 415) -14.0 E42-E34 S56-S52
  

    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