Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1241 1707 (N37W38 L=138)   363     82        0 (1208/1691-1285/1721) -45.0 W34-W40 N35-N38
      2 1707 1638 (N19W73 L=173)  1078    103        1 (1686/1586-1725/1691)  14.7 W66-W86 N16-N21
      3 1355 1594 (N27W38 L=139)   668    153        1 (1295/1537-1413/1624)   5.2 W31-W43 N25-N28
      4 1508 1467 (N16W42 L=142)   446     86        1 (1476/1430-1538/1506) -78.7 W40-W43 N13-N18
      5 1073 1474 (N28W15 L=116)   240     69        1 (1035/1458-1114/1489) -45.0 W13-W17 N25-N29
      6 1438 1432 (N16W36 L=136)   239     77        0 (1407/1402-1458/1471) -90.0 W34-W36 N13-N18
      7 1174 1366 (N19W17 L=118)   282     92        1 (1141/1322-1202/1406) -80.5 W16-W18 N15-N21
      8  906 1291 (N21E00 L=100)   829    249        2 ( 845/1211-1011/1377) -72.9 E02-W03 N14-N27
      9 1774 1251 (S03W54 L=154)  1364    197        2 (1716/1155-1814/1312) -73.3 W49-W56 S09-N01
     10  470 1272 (N31E30 L= 71)   856    198        1 ( 394/1236- 568/1305)  -8.1 E36-E22 N28-N32
     11  741 1207 (N21E12 L= 89)  1126    314        3 ( 602/1097- 843/1268) -51.8 E20-E07 N12-N27
     12 1770 1044 (S14W48 L=148)   701    142        0 (1738/ 983-1790/1116)  40.6 W43-W51 S16-S10
     13  519 1095 (N19E29 L= 72)   235    111        0 ( 468/1085- 576/1107) -26.6 E32-E24 N17-N21
     14 1405 1047 (S04W22 L=122)   218    108        0 (1362/1009-1427/1089) -80.5 W20-W22 S06-N00
     15 1613  880 (S19W32 L=133)  1148    215        3 (1523/ 822-1716/ 933)   0.0 W24-W40 S21-S16
     16 1863  867 (S28W56 L=157)  2419    233        3 (1765/ 805-1949/ 930)   0.0 W44-W71 S30-S24
     17  411  807 (N05E43 L= 58)   520    101        0 ( 377/ 766- 442/ 841)  23.2 E46-E39 N03-N07
     18  799  736 (S07E20 L= 81)   389    137        0 ( 763/ 689- 821/ 793)  51.3 E22-E17 S09-S03
     19  308  657 (S01E56 L= 44)   551     70        2 ( 282/ 630- 338/ 690) -26.6 E59-E53 S02-N00
     20  404  551 (S09E53 L= 48)  2942    285       11 ( 331/ 446- 461/ 680)  57.3 E61-E44 S15-S01
     21  370  646 (S03E51 L= 49)   447     79        2 ( 338/ 612- 394/ 674) -63.4 E53-E48 S04-N00
     22  469  607 (S07E45 L= 56)   459     61        1 ( 447/ 570- 487/ 647)  51.3 E46-E42 S09-S04
     23  484  461 (S16E51 L= 50)   549     90        3 ( 452/ 431- 524/ 493)  14.0 E54-E46 S18-S14
     24  691  358 (S27E41 L= 59)   335     87        0 ( 653/ 329- 719/ 389)  12.5 E46-E37 S28-S25
     25  620  329 (S27E49 L= 52)   506     42        1 ( 589/ 307- 649/ 348) -76.0 E51-E45 S29-S25
  

    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