Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  935 1733 (N56W09 L=106)   355    119        0 ( 881/1706- 984/1759)   8.7 W02-W15 N54-N57
      2 1468 1366 (N19W35 L=132)   555    232        0 (1409/1318-1535/1398) -40.6 W31-W39 N15-N21
      3  165 1050 (N17E68 L= 29)   565     56        1 ( 148/1018- 190/1079) -76.0 E71-E64 N14-N18
      4 1726  950 (S10W46 L=143)   508     50        1 (1707/ 920-1750/ 984) -76.0 W44-W48 S12-S08
      5  161  907 (N08E70 L= 27)   639     89        1 ( 138/ 885- 192/ 952) -63.4 E73-E64 N06-N10
      6 1398  758 (S16W19 L=116)   217    109        0 (1364/ 714-1413/ 797) -90.0 W17-W20 S18-S12
      7 1194  660 (S19W05 L=102)   636    200        3 (1132/ 587-1253/ 741)  41.6 W00-W09 S22-S14
      8 1728  658 (S30W47 L=144)   513    121        0 (1681/ 634-1781/ 700)   5.2 W42-W53 S30-S28
      9 1421  567 (S29W20 L=117)  1019    379        1 (1292/ 451-1543/ 687)  28.8 W09-W29 S35-S23
     10  418  552 (S16E51 L= 46)   459     79        0 ( 398/ 517- 446/ 584)  29.7 E54-E47 S18-S13
     11  819  489 (S24E23 L= 74)   524    126        0 ( 765/ 451- 865/ 535)  29.1 E27-E18 S26-S21
     12  943  433 (S30E16 L= 81)  1004    229        4 ( 850/ 378-1047/ 494)  17.4 E23-E07 S33-S27
     13 1414  451 (S38W19 L=116)   387    112        1 (1358/ 424-1453/ 486)  23.2 W14-W22 S39-S35
     14  517  409 (S27E50 L= 47)   695     76        1 ( 491/ 376- 548/ 444) -90.0 E52-E47 S29-S24
  

    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