Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  926 1846 (N45E33 L= 41)   404     43        0 ( 905/1823- 943/1869) -68.2 E36-E30 N42-N47
      2 1149 1618 (N32E06 L= 69)  1655    289        3 (1075/1504-1242/1725) -36.9 E14-W02 N26-N38
      3 1612 1607 (N46W32 L=107)   417     80        1 (1597/1565-1631/1650)  69.4 W30-W35 N41-N49
      4  673 1601 (N21E36 L= 39)   364     75        1 ( 640/1566- 704/1636) -33.7 E38-E32 N18-N23
      5 1479 1547 (N36W19 L= 94)   924    146        3 (1428/1490-1530/1612) -49.4 W15-W23 N32-N40
      6  295 1285 (S04E54 L= 20)   580    114        0 ( 267/1234- 330/1338)  66.8 E56-E52 S07-N00
      7 1698 1200 (N19W40 L=114)  1281    269        2 (1620/1084-1748/1273) -31.6 W32-W45 N12-N22
      8 1510 1044 (N05W28 L=103)   919    319        2 (1484/ 924-1544/1204) -76.0 W26-W32 S02-N14
      9 1762 1169 (N19W46 L=120)   483     46        1 (1739/1138-1788/1198)  76.0 W43-W48 N16-N20
     10  206 1120 (S15E60 L= 14)   633     88        0 ( 188/1075- 224/1164)  90.0 E62-E58 S17-S11
     11 1654 1038 (N08W38 L=113)   277     65        0 (1628/1010-1681/1062) -11.3 W36-W41 N07-N09
     12  148  934 (S26E68 L=  6)  1300    155        3 ( 117/ 869- 185/ 994)  35.0 E74-E62 S29-S22
     13  299  684 (S41E52 L= 23)   640    147        0 ( 258/ 624- 356/ 724)  28.1 E60-E44 S45-S37
     14 1570  651 (S15W44 L=118)   633    211        0 (1533/ 569-1633/ 719) -84.3 W42-W47 S20-S10
     15 1762  610 (S12W63 L=138)  2091    201        6 (1711/ 537-1825/ 680)  59.0 W56-W71 S17-S07
     16 1309  584 (S26W29 L=103)   471    144        1 (1252/ 531-1355/ 628) -10.3 W23-W34 S27-S24
     17 1705  457 (S22W69 L=144)  1616    140        3 (1647/ 416-1764/ 491)  28.6 W63-W78 S24-S18
     18 1228  456 (S35W29 L=104)   280     81        0 (1190/ 444-1276/ 469)  26.6 W26-W32 S36-S33
     19 1456  360 (S35W53 L=128)  1485    256        1 (1343/ 311-1561/ 424)  55.3 W46-W58 S40-S27
     20 1264  298 (S44W43 L=118)   387     73        0 (1232/ 278-1286/ 324)  26.6 W40-W46 S45-S42
  

    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