Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1285 1804 (N51W51 L=170)  1661    229        3 (1174/1753-1381/1848)  -1.8 W35-W67 N48-N52
      2 1534 1693 (N36W62 L=181)   456     57        0 (1512/1672-1565/1710) -36.9 W58-W65 N34-N37
      3 1737 1330 (N10W56 L=175)  1278    311        0 (1617/1282-1870/1404)  -3.0 W44-W82 N08-N11
      4 1555 1346 (N15W41 L=160)   250     87        0 (1516/1324-1581/1371) -53.1 W39-W42 N13-N17
      5  318 1317 (N35E51 L= 68)   483    112        1 ( 293/1269- 351/1359)  56.3 E53-E47 N31-N37
      6  922 1239 (N21E03 L=116)   272    124        0 ( 893/1181- 962/1279)  45.0 E05-W00 N17-N22
      7 1060 1230 (N18W06 L=125)   261    120        0 (1006/1205-1108/1247) -26.6 W02-W08 N15-N19
      8  648 1081 (N16E23 L= 96)   557    196        2 ( 602/1009- 714/1159) -65.6 E25-E18 N10-N21
      9 1836 1046 (S09W58 L=177)  1692    170        3 (1780/ 980-1873/1100) -45.0 W52-W63 S13-S05
     10 1730  995 (S09W46 L=165)  1154    221        3 (1690/ 928-1769/1073) -90.0 W42-W49 S13-S04
     11 1819  963 (S13W55 L=174)   414     81        1 (1777/ 937-1853/ 984) -24.0 W50-W59 S15-S10
     12 1746  845 (S19W46 L=165)   665    124        3 (1723/ 787-1781/ 899)  71.6 W44-W50 S21-S15
     13  819  689 (S10E18 L=101)  1690    434        9 ( 700/ 573- 922/ 875) -71.6 E22-E14 S19-N02
     14 1038  830 (S05E02 L=116)   215     82        0 (1012/ 794-1060/ 870) -78.7 E03-E01 S07-S02
     15 1177  749 (S12W04 L=123)   570    117        2 (1128/ 700-1204/ 813)  60.3 W01-W06 S15-S08
     16  379  536 (S15E56 L= 63)  1720    398        2 ( 319/ 399- 465/ 697)  84.8 E61-E50 S25-S03
     17  926  521 (S23E15 L=103)   419     92        2 ( 900/ 474- 952/ 563)  51.3 E18-E13 S25-S20
     18 1050  429 (S32E10 L=109)   668    102        2 ( 997/ 403-1103/ 457)   6.3 E14-E05 S32-S29
     19  637  403 (S27E40 L= 79)   806     80        3 ( 610/ 355- 672/ 442)  45.0 E43-E37 S30-S23
     20 1299  270 (S52W06 L=125)   781    109        1 (1254/ 243-1342/ 301)  12.5 W01-W10 S54-S49
  

    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