Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  461 1661 (N26E62 L=228)  4722    271        6 ( 419/1543- 514/1764) -29.7 E80-E51 N17-N33
      2  708 1622 (N28E37 L=252)   292     70        0 ( 679/1599- 737/1642)  -9.5 E39-E33 N26-N29
      3 1351 1576 (N40W10 L=300)   312    118        0 (1303/1534-1388/1600) -20.6 W05-W13 N38-N42
      4 1669 1526 (N46W43 L=332)   575     91        0 (1625/1495-1709/1545) -12.5 W37-W48 N44-N47
      5 1498 1396 (N31W24 L=313)   568    189        1 (1443/1318-1558/1460) -35.0 W19-W29 N27-N34
      6 1319 1415 (N28W10 L=300)   801    277        1 (1199/1349-1424/1451)  -3.4 W01-W18 N26-N30
      7  589 1014 (S11E26 L=263)   298     72        1 ( 550/ 997- 625/1035)  36.9 E28-E24 S12-S09
      8 1860  956 (N12W63 L=352)   782    103        0 (1824/ 907-1884/ 998) -39.8 W57-W66 N09-N14
      9  282  763 (S33E52 L=238)   688    160        0 ( 218/ 720- 339/ 814)  24.0 E62-E44 S37-S28
     10 1528  664 (S12W41 L=330)   425    103        0 (1479/ 644-1579/ 679)  14.0 W37-W45 S13-S10
     11 1529  475 (S23W50 L=340)  1365    184        1 (1491/ 395-1578/ 548) -55.0 W47-W56 S28-S17
     12  566  506 (S45E23 L=266)   483     85        1 ( 538/ 463- 597/ 536)  60.3 E26-E20 S48-S41
     13 1027  478 (S35W14 L=303)   543    181        0 ( 952/ 458-1109/ 507)  26.6 W08-W18 S37-S31
     14  349  471 (S54E56 L=233)   877    105        1 ( 309/ 434- 387/ 506)  12.9 E80-E45 S58-S50
  

    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