Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1679 1585 (N20W68 L= 32)  1641    242        3 (1644/1494-1708/1695)  26.6 W58-W81 N16-N26
      2 1523 1617 (N27W55 L= 19)  1414    165        1 (1451/1556-1587/1667) -68.2 W51-W57 N22-N32
      3 1373 1456 (N23W34 L=358)   489    116        1 (1335/1404-1406/1503)  29.7 W31-W38 N19-N24
      4 1228 1451 (N27W24 L=348)   376    106        2 (1182/1405-1263/1482) -80.5 W22-W25 N23-N29
      5 1525 1431 (N17W43 L=  7)   790    207        0 (1433/1370-1599/1471) -51.3 W38-W47 N12-N22
      6  697 1388 (N36E13 L=311)   447     80        2 ( 664/1365- 738/1409) -31.0 E15-E10 N34-N38
      7 1158 1323 (N21W15 L=339)   237    110        1 (1121/1294-1187/1354)  21.8 W12-W17 N19-N22
      8 1623 1083 (S04W38 L=  2)   299     72        1 (1598/1045-1647/1114)  31.0 W35-W40 S06-S02
      9  180 1029 (N23E65 L=259)  2421    275        4 ( 110/ 939- 276/1094)   8.1 E80-E52 N17-N26
     10  948  859 (S01E08 L=316)   287     54        1 ( 923/ 827- 968/ 881)  33.7 E09-E06 S02-N01
     11 1567  795 (S20W28 L=352)   764    238        1 (1453/ 759-1629/ 855)  -4.4 W20-W33 S21-S16
     12 1736  786 (S26W43 L=  7)  1186    201        0 (1660/ 737-1823/ 845)   0.0 W35-W53 S27-S24
     13  882  755 (S05E14 L=310)   246     36        1 ( 863/ 733- 904/ 780) -71.6 E15-E13 S06-S03
     14  897  300 (S36E30 L=294)  2540    464        6 ( 820/ 151-1000/ 524)  35.1 E50-E13 S49-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