Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  400 1530 (N07E56 L=  7)   390     65        1 ( 376/1511- 430/1553)  26.6 E58-E53 N05-N08
      2 1463 1275 (N20W18 L= 81)  1077    301        1 (1438/1128-1492/1409) -70.6 W14-W22 N12-N29
      3 1755 1264 (N30W41 L=103)   433     63        1 (1728/1234-1772/1295)  90.0 W38-W42 N27-N32
      4 1635 1101 (N16W34 L= 97)   772    168        1 (1614/1003-1653/1182) -56.3 W30-W36 N10-N20
      5  180 1131 (S20E62 L=  1)   561     99        3 ( 160/1079- 200/1177) -71.6 E64-E59 S23-S17
      6  277  921 (S31E48 L= 15)  1647    462        3 ( 143/ 891- 407/ 954)   9.1 E61-E36 S33-S27
      7  918  792 (S22W01 L= 63)   507     95        2 ( 874/ 745- 966/ 831)  71.6 E01-W02 S25-S19
      8 1867  747 (N05W68 L=131)   582    164        0 (1846/ 721-1893/ 784)  -5.2 W63-W74 N04-N06
      9  554  669 (S40E21 L= 42)   582    127        1 ( 496/ 640- 610/ 693)  11.3 E25-E15 S41-S37
     10 1091  496 (S34W22 L= 85)  1283    238        3 ( 990/ 435-1198/ 577)  68.2 W17-W24 S40-S25
     11 1434  492 (S23W43 L=106)   826    133        1 (1362/ 457-1496/ 544)  69.4 W39-W45 S26-S18
     12 1663  509 (S14W59 L=122)   567    165        3 (1617/ 480-1700/ 536)  11.3 W53-W63 S15-S12
     13 1576  442 (S20W56 L=119)   606    112        0 (1525/ 400-1629/ 494)  69.4 W54-W57 S24-S16
     14 1331  321 (S36W47 L=110)   518    109        0 (1286/ 298-1374/ 340)  15.9 W43-W51 S37-S33
  

    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