Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  704 1558 (N42E09 L=284)   396     87        1 ( 674/1520- 734/1588)  31.0 E11-E06 N40-N44
      2 1770 1542 (N14W69 L=  2)  1096    198        6 (1745/1511-1798/1577)  29.7 W65-W74 N12-N16
      3  828 1441 (N31E03 L=290)   296     96        0 ( 770/1425- 877/1453) -18.4 E06-W00 N29-N32
      4 1283 1252 (N10W20 L=313)   844    198        3 (1195/1221-1390/1281) -24.4 W14-W25 N05-N12
      5  870 1193 (N16E05 L=287)  1361    355        1 ( 687/1135-1040/1229) -13.4 E17-W04 N10-N17
      6  958 1096 (N08E02 L=291)   204     99        0 ( 920/1049- 996/1135)  31.0 E05-W00 N06-N09
      7 1618 1018 (S11W36 L=329)   253     91        0 (1604/ 968-1629/1063)  59.0 W34-W37 S13-S08
      8 1750  971 (S17W45 L=338)   813    165        0 (1716/ 885-1778/1046)  48.8 W41-W49 S21-S12
      9  137  992 (N18E65 L=228)  1082    269        2 (  89/ 967- 192/1011) -13.0 E71-E58 N15-N19
     10  382  988 (N14E41 L=252)   315     68        1 ( 349/ 963- 409/1009) -36.9 E43-E38 N11-N15
     11  283  834 (N07E53 L=240)   770     83        2 ( 256/ 800- 314/ 868)  45.0 E56-E49 N04-N08
     12 1217  840 (S12W07 L=300)   254     50        1 (1183/ 814-1246/ 863) -14.0 W05-W09 S13-S10
     13 1357  790 (S18W15 L=307)   362    143        0 (1344/ 717-1384/ 851)  69.4 W12-W17 S22-S14
     14 1216  666 (S22W03 L=296)  1417    349        3 (1151/ 530-1292/ 832)  68.7 E03-W09 S29-S11
     15  597  591 (S13E36 L=257)   385     89        1 ( 572/ 548- 619/ 633)  80.5 E37-E34 S16-S10
     16  419  600 (S09E49 L=244)   502     75        1 ( 393/ 566- 449/ 626)  18.4 E52-E46 S11-S07
     17  318  532 (S12E62 L=231)  2725    404       12 ( 264/ 461- 373/ 604) -73.3 E67-E56 S16-S06
     18  680  554 (S17E32 L=261)   455     90        2 ( 647/ 506- 707/ 588)  80.5 E34-E29 S20-S14
     19  431  525 (S14E51 L=242)   316     67        1 ( 407/ 502- 458/ 553) -33.7 E53-E48 S15-S11
     20  617  479 (S20E39 L=254)   848    246        3 ( 566/ 392- 658/ 529)  30.3 E46-E34 S25-S17
     21 1082  325 (S42E16 L=277)   549    142        3 (1056/ 278-1105/ 376)  77.5 E18-E13 S46-S37
     22  774  257 (S39E41 L=252)   365     70        1 ( 752/ 232- 791/ 278)  53.1 E43-E38 S41-S37
     23 1002  197 (S51E30 L=263)   871    181        2 ( 977/ 157-1027/ 244)  48.4 E34-E25 S55-S46
  

    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