Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1558 1695 (N27W61 L=139)   667     58        3 (1527/1663-1586/1723)   5.7 W56-W66 N25-N28
      2 1371 1602 (N27W39 L=117)   621     99        2 (1320/1571-1424/1633) -63.4 W36-W42 N24-N30
      3 1726 1543 (N14W65 L=142)  2826    275       10 (1675/1474-1808/1622) -78.7 W57-W78 N08-N18
      4 1653 1499 (N14W55 L=132)   576     61        2 (1626/1460-1678/1534) -90.0 W52-W57 N11-N16
      5 1463 1462 (N17W38 L=116)   255     95        0 (1426/1444-1505/1488) -18.4 W36-W42 N16-N18
      6 1278 1403 (N18W25 L=102)   839    271        1 (1176/1357-1405/1479) -50.2 W20-W31 N13-N25
      7  784 1402 (N31E05 L= 72)   905    231        2 ( 695/1356- 887/1436) -14.0 E11-W01 N27-N32
      8 1099 1352 (N20W12 L= 90)   800    257        0 ( 981/1275-1188/1398) -53.1 W06-W16 N13-N25
      9 1486 1375 (N12W36 L=114)   316     36        2 (1460/1345-1512/1396)  33.7 W34-W38 N10-N12
     10  829 1232 (N20E06 L= 71)   453    209        2 ( 726/1219- 931/1250) -26.6 E12-W00 N16-N22
     11 1566 1119 (S04W34 L=111)   460    114        1 (1548/1057-1586/1171)  56.3 W32-W36 S07-S01
     12 1863 1000 (S19W57 L=134)  1762    166        6 (1791/ 951-1932/1042)   3.2 W48-W67 S22-S16
     13  776  928 (N04E16 L= 61)   457    201        0 ( 736/ 851- 856/ 968)  26.6 E19-E11 N00-N05
     14 1177  847 (S10W04 L= 82)   396    127        1 (1134/ 807-1203/ 913)  45.0 W01-W07 S11-S06
     15 1873  841 (S29W58 L=135)  1052    160        1 (1809/ 792-1928/ 900)  10.6 W49-W67 S31-S27
     16  768  749 (S06E21 L= 56)   231     64        1 ( 732/ 726- 792/ 773)   0.0 E23-E19 S07-S04
     17  268  714 (N02E58 L= 19)  1651    204        4 ( 187/ 653- 354/ 762) -17.4 E69-E52 S02-N05
     18  783  537 (S18E27 L= 50)  2763    784        8 ( 556/ 408-1033/ 709) -46.3 E35-E13 S28-S03
     19  275  547 (S07E67 L= 11)  4318    313       15 ( 196/ 459- 354/ 642) -53.1 E81-E60 S13-N00
     20  996  616 (S19E12 L= 66)   432    154        0 ( 924/ 596-1061/ 638) -12.5 E16-E07 S20-S17
     21  446  522 (S12E51 L= 27)  1394    285        4 ( 371/ 468- 543/ 619) -38.7 E55-E44 S16-S05
     22  678  570 (S14E32 L= 45)   290     97        0 ( 627/ 554- 705/ 595)   0.0 E35-E29 S14-S12
     23  694  293 (S32E46 L= 31)  4667    348        6 ( 619/ 126- 758/ 431)  29.7 E84-E38 S46-S21
  

    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