Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  592 1668 (N60E14 L= 53)  1915    457        2 ( 444/1597- 786/1758)  -2.6 E36-W10 N57-N63
      2  606 1438 (N42E16 L= 51)   728    219        1 ( 572/1348- 664/1535) -78.7 E18-E13 N34-N49
      3  973 1354 (N26W06 L= 74)   556    182        1 ( 866/1335-1047/1368) -31.0 W00-W10 N23-N29
      4 1129 1262 (N17W12 L= 80)   322    159        1 (1081/1186-1174/1303) -82.9 W10-W13 N11-N19
      5  618 1186 (N26E20 L= 47)   754    120        4 ( 567/1129- 660/1241)  71.6 E23-E17 N22-N28
      6  696 1167 (N23E16 L= 52)   383    122        2 ( 663/1122- 726/1202)  78.7 E17-E13 N19-N24
      7  790 1079 (N15E12 L= 55)   897    294        4 ( 737/ 988- 865/1199) -90.0 E14-E08 N08-N22
      8  468 1026 (N20E34 L= 33)   486    146        0 ( 407/ 986- 538/1053) -33.7 E38-E29 N16-N22
      9  658  977 (N13E22 L= 45)   250     61        0 ( 643/ 938- 673/1010)  76.0 E23-E21 N10-N14
     10 1651  824 (S23W33 L=101)  1279    422        1 (1495/ 733-1775/ 967)  12.3 W21-W46 S26-S18
     11 1419  723 (S22W15 L= 82)   549    218        0 (1357/ 651-1486/ 801)  22.6 W09-W21 S24-S18
     12 1401  565 (S31W10 L= 77)   248     89        0 (1359/ 542-1437/ 592)   0.0 W07-W13 S31-S30
     13  927  500 (S21E21 L= 46)   676    130        1 ( 870/ 456- 978/ 537)   7.1 E25-E17 S22-S19
     14  390  471 (S11E61 L=  6)   452     62        0 ( 375/ 439- 406/ 501)  78.7 E62-E58 S13-S08
     15  792  307 (S30E39 L= 28)   329    107        0 ( 741/ 289- 836/ 337)   5.7 E44-E34 S31-S29
  

    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