Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1625 (N36E06 L= 83)  1895    477        4 (1158/1420-1329/1821) -47.3 E18-W06 N25-N52
      2 1006 1549 (N24E16 L= 72)  1586    489        2 ( 851/1396-1156/1645) -10.9 E28-E02 N18-N28
      3 1464 1381 (N27W16 L=105)   261     71        0 (1439/1343-1499/1410) -21.8 W14-W19 N25-N29
      4 1567 1300 (N26W25 L=114)   855    214        1 (1497/1256-1611/1378)  63.4 W20-W28 N22-N32
      5 1843 1314 (N38W54 L=142)  1024    117        1 (1811/1263-1888/1345)  29.4 W48-W64 N32-N41
      6  707 1256 (S01E24 L= 64)   587    194        2 ( 654/1205- 780/1310)  39.8 E26-E20 S04-N03
      7  461 1276 (S05E41 L= 48)   237     69        2 ( 433/1255- 494/1306)  63.4 E42-E38 S06-S02
      8 1494 1223 (N19W22 L=110)   345     94        1 (1448/1185-1523/1242)  -9.5 W18-W24 N17-N20
      9  158 1202 (S15E69 L= 19)   814     76        1 ( 132/1174- 182/1233) -23.2 E74-E64 S16-S13
     10  766 1185 (S03E19 L= 70)   253     37        1 ( 744/1160- 782/1213) -56.3 E19-E17 S04-S01
     11  754 1048 (S11E16 L= 73)   374    104        0 ( 711/1002- 790/1090)  74.1 E17-E14 S14-S07
     12 1411  881 (S02W25 L=114)  1009    248        4 (1369/ 772-1461/ 991) -42.0 W21-W31 S06-N03
     13  346  930 (S27E42 L= 46)   407    122        0 ( 307/ 870- 369/ 968) -38.7 E46-E39 S30-S25
     14 1731  718 (S01W54 L=142)   517    153        1 (1719/ 642-1744/ 788) -40.6 W50-W58 S05-N02
     15 1428  472 (S24W44 L=132)   269     71        0 (1395/ 452-1459/ 490)  53.1 W42-W45 S25-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