logo kso logo uni graz

20130620 - Filament data for 13 UTC
Available data for 20130620: »06 UTC   »07 UTC   »08 UTC   »09 UTC   »10 UTC   »11 UTC   »12 UTC   »13 UTC   »14 UTC   »15 UTC   »16 UTC  
Click on image to open sensitive map!
 
  Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  414 1575 (N31E58 L=178)  1479    135        2 ( 366/1518- 460/1625) -17.5 E70-E50 N27-N33
      2 1697 1434 (N33W52 L=288)  1149    154        2 (1661/1360-1721/1504)  68.2 W48-W55 N28-N38
      3  455 1221 (N09E40 L=196)   299     73        1 ( 417/1209- 503/1232)   9.5 E42-E36 N07-N09
      4  136  862 (S17E74 L=162)  1102    102        2 ( 116/ 807- 150/ 902)  63.4 E80-E71 S20-S14
      5  621  812 (S15E24 L=212)   651    249        0 ( 521/ 761- 729/ 848) -14.9 E31-E16 S17-S13
      6 1676  767 (S09W48 L=284)   712    128        0 (1633/ 728-1697/ 827)  90.0 W44-W49 S11-S05
      7 1193  580 (S25W15 L=252)   228     92        0 (1149/ 567-1233/ 598)   0.0 W12-W18 S25-S23
      8 1391  513 (S28W32 L=268)   319     55        0 (1357/ 494-1420/ 532)  36.9 W29-W33 S29-S26
      9  408  446 (S44E52 L=184)   949     97        2 ( 386/ 400- 438/ 491)  29.4 E62-E46 S48-S39
  
Download Binary data for this image

» All Filament Data of 20130620 ...
IDL code for reading binary data:
    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
to get the area of a filament:
  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 
be careful: y-origin is upper left! you can transpose the data:
  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y