Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1082 1793 (N44E17 L= 43)   302     22        1 (1060/1777-1102/1812)  18.4 E19-E15 N42-N46
      2  576 1650 (N22E46 L= 15)   326    101        1 ( 536/1621- 620/1678)   8.1 E47-E40 N20-N24
      3 1170 1624 (N33E05 L= 56)   432     97        1 (1124/1598-1227/1651)  -7.1 E08-W00 N31-N34
      4 1367 1524 (N31W11 L= 71)   936    178        2 (1319/1460-1429/1593) -33.7 W06-W16 N27-N34
      5 1640 1515 (N39W34 L= 94)  1386    129        3 (1601/1462-1673/1582) -69.4 W29-W37 N33-N43
      6  489 1297 (S01E39 L= 22)   347     39        0 ( 463/1270- 517/1324)  45.0 E40-E36 S02-N00
      7 1683 1099 (N13W40 L=100)  1906    505        4 (1638/ 858-1722/1287) -63.4 W33-W45 S01-N22
      8  429 1223 (S06E41 L= 19)   385     84        1 ( 399/1203- 473/1252)   9.5 E43-E37 S07-S04
      9  653 1211 (S03E26 L= 35)   236     56        1 ( 617/1184- 674/1231) -14.0 E27-E23 S04-S01
     10 1866 1063 (N16W58 L=118)  2508    344        8 (1805/ 917-1908/1201) -51.8 W50-W64 N07-N22
     11 1810 1080 (N15W51 L=112)   441     48        1 (1789/1048-1831/1113) -21.8 W48-W53 N13-N16
     12  273  948 (S24E52 L=  9)   455    100        1 ( 255/ 900- 290/ 990)  80.5 E53-E49 S27-S21
     13  389  653 (S42E41 L= 19)   340     88        0 ( 357/ 621- 431/ 680)  29.1 E45-E36 S44-S39
     14 1720  645 (S11W57 L=117)   625     79        2 (1691/ 598-1746/ 678)  90.0 W53-W59 S14-S08
     15 1204  617 (S26W21 L= 81)   311     92        0 (1166/ 585-1246/ 648)  -8.1 W17-W24 S27-S25
     16 1423  536 (S25W39 L= 99)   920    174        3 (1355/ 476-1484/ 591) -15.9 W32-W46 S27-S23
     17 1344  401 (S35W41 L=101)   770    153        0 (1280/ 374-1421/ 439)   8.7 W34-W47 S36-S33
     18 1269  334 (S42W41 L=101)   426     60        0 (1247/ 297-1287/ 366) -20.6 W36-W45 S43-S39
     19 1558  310 (S34W70 L=130)   768     94        2 (1510/ 293-1610/ 331)  29.1 W63-W74 S35-S30
     20 1360  241 (S45W59 L=119)   926     72        1 (1341/ 196-1383/ 280) -19.7 W53-W67 S47-S41
  

    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