Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1300 1720 (N43W44 L=251)  1111    246        1 (1191/1686-1407/1745)  -7.8 W32-W54 N39-N46
      2 1005 1674 (N48W17 L=224)   310     69        0 ( 983/1640-1037/1699)  26.6 W14-W20 N45-N49
      3  817 1592 (N47E02 L=206)   288     43        1 ( 793/1567- 845/1619)  45.0 E04-W00 N44-N48
      4  660 1545 (N47E17 L=191)  1286    196        4 ( 582/1498- 757/1578)   0.0 E24-E07 N44-N48
      5 1564 1362 (N15W42 L=250)   627    184        0 (1490/1291-1612/1419) -68.2 W39-W43 N09-N19
      6  499 1343 (N36E31 L=176)   394     81        1 ( 457/1313- 534/1365) -29.7 E35-E28 N33-N37
      7  881 1132 (N16E07 L=201)  1024    331        0 ( 802/1001- 964/1271) -77.5 E09-E03 N07-N25
      8  592 1229 (N27E24 L=183)   369    106        0 ( 545/1216- 650/1242)   0.0 E27-E19 N25-N27
      9  207  973 (N16E61 L=147)   713     95        2 ( 187/ 924- 234/1022) -80.5 E63-E57 N13-N19
     10 1489  988 (S05W27 L=234)   265     49        0 (1467/ 964-1513/1014) -63.4 W25-W28 S06-S02
     11 1562  868 (S13W30 L=238)   250     52        1 (1537/ 840-1585/ 897)  33.7 W28-W32 S14-S12
     12  298  767 (N03E55 L=153)   583     85        0 ( 271/ 732- 326/ 807) -68.2 E56-E52 N00-N05
     13 1589  750 (S21W31 L=238)   314     60        0 (1569/ 716-1605/ 779)  76.0 W29-W32 S23-S19
     14  983  759 (S08E07 L=200)   210     85        0 ( 935/ 739-1008/ 773) -26.6 E10-E06 S09-S06
     15  702  727 (S05E25 L=182)   252     69        0 ( 687/ 695- 715/ 769)  53.1 E26-E23 S06-S02
     16 1662  710 (S26W37 L=244)   725    141        0 (1608/ 679-1716/ 756)  12.5 W32-W41 S27-S24
     17 1759  531 (S44W53 L=260)   795     57        1 (1727/ 506-1791/ 558) -21.8 W46-W61 S46-S40
     18 1590  435 (S45W32 L=240)  2534    389        4 (1419/ 344-1739/ 522)   3.2 W14-W50 S49-S41
     19  357  434 (S19E66 L=141)  5102    276        6 ( 274/ 367- 447/ 520) -50.7 E79-E56 S24-S12
     20  456  481 (S17E52 L=156)   457     68        1 ( 434/ 449- 479/ 512) -90.0 E53-E50 S19-S14
     21  596  407 (S24E44 L=164)  1341    216        1 ( 566/ 310- 623/ 497)  54.5 E50-E37 S31-S17
     22 1035  388 (S33E14 L=194)   374     96        0 (1020/ 331-1065/ 419)  45.0 E16-E10 S37-S30
  

    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