Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1611 (N42W18 L=329)   612     79        2 ( 962/1573-1017/1648)  78.7 W14-W20 N39-N44
      2 1444 1617 (N27W48 L=360)   475     95        0 (1397/1598-1498/1632) -11.3 W43-W53 N25-N28
      3 1089 1592 (N37W23 L=335)   697     83        3 (1039/1562-1134/1623) -14.0 W19-W27 N35-N39
      4 1493 1504 (N19W44 L=356)   333     47        1 (1461/1483-1520/1521) -53.1 W42-W46 N17-N21
      5  989 1363 (N27W08 L=319)  1286    254        5 ( 879/1303-1087/1398) -12.1 W00-W14 N22-N29
      6  688 1307 (N32E13 L=298)   345    114        0 ( 627/1286- 739/1325)  -7.1 E17-E09 N30-N32
      7 1725 1066 (S11W44 L=356)  1699    335        2 (1673/ 957-1758/1223)  42.7 W37-W51 S15-S03
      8  616 1086 (N20E23 L=289)  1230    276        1 ( 494/1056- 751/1117) -16.4 E31-E14 N16-N22
      9 1872 1054 (S17W59 L= 11)  1527    151        5 (1815/1003-1929/1095) -26.6 W52-W69 S20-S12
     10  402  886 (N14E42 L=269)  1916    347        2 ( 358/ 730- 468/1022)  80.5 E45-E39 N03-N21
     11 1336  839 (S12W13 L=324)   572    179        1 (1272/ 788-1397/ 886)  12.5 W07-W17 S14-S10
     12 1485  747 (S21W20 L=331)  1000    318        2 (1430/ 596-1548/ 864)  49.4 W13-W26 S29-S15
     13  266  732 (N07E59 L=252)   805    106        1 ( 232/ 685- 305/ 774) -68.2 E62-E55 N04-N09
     14  207  694 (N05E68 L=243)   847    112        1 ( 192/ 644- 230/ 753)  49.4 E73-E64 N02-N09
     15  923  492 (S21E21 L=291)   526     83        2 ( 892/ 452- 956/ 526)  18.4 E24-E18 S22-S18
     16  609  448 (S16E43 L=269)   456     95        0 ( 589/ 394- 631/ 485)  50.2 E46-E40 S19-S13
     17  496  441 (S14E52 L=259)  1302    211        2 ( 441/ 387- 582/ 478)   0.0 E58-E44 S18-S11
     18  878  412 (S25E27 L=284)   244     36        0 ( 860/ 391- 897/ 432) -71.6 E28-E25 S26-S23
     19  537  338 (S22E56 L=255)  1809    200        5 ( 477/ 287- 604/ 380)   3.8 E63-E47 S26-S18
     20 1575  358 (S55W24 L=335)   948    153        2 (1505/ 332-1626/ 380) -25.3 W14-W33 S60-S50
     21  830  184 (S41E48 L=263)  1530    153        3 ( 790/ 120- 866/ 262)  24.0 E64-E37 S47-S35
  

    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