Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  953 1774 (N54W28 L=276)   478     77        1 ( 920/1731- 978/1798)  66.8 W24-W32 N50-N57
      2 1305 1764 (N39W51 L=300)   591     63        1 (1275/1731-1340/1787)  -8.1 W48-W55 N37-N41
      3 1374 1762 (N37W57 L=305)   470     57        2 (1352/1733-1397/1785)  12.5 W52-W61 N35-N38
      4  900 1747 (N54W21 L=270)   496     56        1 ( 880/1712- 927/1780)  32.0 W17-W25 N51-N57
      5 1508 1727 (N30W64 L=313)   426     60        1 (1479/1697-1536/1746) -56.3 W61-W66 N27-N31
      6 1466 1520 (N20W44 L=292)   288     83        2 (1441/1491-1488/1559)  78.7 W42-W45 N18-N23
      7 1619 1483 (N13W53 L=302)   835    134        2 (1557/1449-1684/1524) -53.1 W48-W57 N09-N17
      8 1544 1431 (N13W44 L=293)   694    123        1 (1515/1380-1569/1484)  39.8 W41-W47 N10-N15
      9  527 1328 (N37E25 L=224)  1339    310        2 ( 371/1302- 662/1353) -19.8 E39-E14 N31-N40
     10  732 1078 (N17E15 L=233)   516    237        2 ( 628/1061- 843/1112) -11.3 E22-E07 N14-N19
     11  944 1032 (N09E04 L=245)   308     90        0 ( 897/ 997- 988/1071) -59.0 E06-E02 N06-N11
     12  362 1000 (N21E43 L=205)  1060    320        3 ( 231/ 917- 489/1047)   4.6 E57-E32 N17-N22
     13  139  935 (N21E71 L=177)   760    115        0 (  96/ 901- 184/ 976) -17.4 E81-E64 N18-N23
     14  419  922 (N15E40 L=208)   329    116        0 ( 367/ 910- 476/ 934) -18.4 E44-E35 N13-N16
     15 1815  826 (S29W50 L=298)  1572    232        1 (1748/ 761-1857/ 933)  36.0 W41-W55 S32-S23
     16  683  815 (N03E25 L=224)   227     86        1 ( 651/ 782- 708/ 852)  21.8 E27-E22 N01-N04
     17 1675  731 (S30W34 L=283)   323     53        1 (1652/ 710-1710/ 749)   0.0 W32-W37 S31-S28
     18 1474  424 (S45W13 L=261)  1509    305        2 (1338/ 333-1578/ 506)   7.4 W00-W23 S48-S41
     19  481  363 (S20E60 L=188)   540     67        0 ( 463/ 330- 501/ 401)  56.3 E63-E56 S22-S16
     20 1240  287 (S47E11 L=238)   392     59        1 (1205/ 271-1272/ 301) -11.3 E13-E08 S48-S45
     21 1000  140 (S52E44 L=205)   857     91        1 ( 959/ 117-1047/ 160) -45.0 E51-E37 S54-S48
  

    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