Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  758 1845 (N37E52 L=129)   571     53        1 ( 741/1816- 779/1879) -24.4 E59-E48 N34-N39
      2  834 1823 (N37E44 L=138)   655     68        0 ( 798/1799- 867/1850) -11.3 E49-E39 N35-N38
      3  786 1753 (N31E41 L=140)   617     74        1 ( 750/1718- 820/1778)  45.0 E44-E37 N28-N33
      4  948 1585 (N24E21 L=160)   496    166        0 ( 919/1504- 990/1655) -35.0 E25-E15 N20-N28
      5  569 1538 (N11E43 L=138)   681    110        2 ( 516/1509- 622/1562)   7.1 E47-E39 N09-N13
      6 1279 1471 (N27W02 L=183)   597    166        0 (1256/1399-1329/1522) -84.3 W00-W04 N21-N31
      7  480 1410 (N02E44 L=138)   832    261        0 ( 445/1307- 505/1500) -59.0 E48-E40 S03-N07
      8  236 1335 (S07E63 L=118)  1722    267        3 ( 192/1220- 276/1434) -36.9 E76-E55 S13-S01
      9 1368 1192 (N13W14 L=196)   511    186        0 (1341/1095-1387/1261) -73.3 W11-W16 N06-N16
     10  264 1082 (S21E53 L=129)   629    117        1 ( 238/1023- 296/1132) -35.5 E55-E48 S24-S18
     11  204 1087 (S22E60 L=122)   367     69        2 ( 181/1058- 230/1116)  45.0 E62-E56 S23-S19
     12  584 1018 (S17E25 L=156)  1199    286        1 ( 471/ 919- 683/1104)  56.3 E31-E21 S25-S10
     13 1831  903 (N12W56 L=238)   991    202        2 (1810/ 810-1851/ 990) -68.2 W53-W60 N06-N16
     14 1761  867 (N08W50 L=232)   315     46        0 (1748/ 837-1773/ 899) -45.0 W48-W52 N06-N09
     15  840  804 (S23E04 L=177)  1480    353        3 ( 676/ 759-1006/ 852)  32.9 E14-W04 S29-S16
     16  445  720 (S39E31 L=150)   906    154        1 ( 377/ 690- 529/ 754)  23.2 E37-E23 S42-S35
     17 1527  652 (S11W41 L=222)   524    146        0 (1481/ 586-1565/ 719) -83.7 W39-W42 S15-S06
     18 1308  544 (S24W32 L=214)   471    129        0 (1256/ 521-1381/ 562)  45.0 W29-W36 S26-S20
     19 1708  489 (S13W66 L=248)  1325    144        4 (1673/ 434-1750/ 551) -76.0 W62-W71 S16-S08
     20 1237  441 (S32W34 L=215)   322     79        0 (1204/ 422-1277/ 469)  -8.1 W30-W37 S32-S30
     21 1096  246 (S49W41 L=222)  2093    324        2 ( 963/ 181-1214/ 330)   1.6 W23-W58 S50-S45
  

    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