logo kso logo uni graz

20130613 - Filament data for 12 UTC
Available data for 20130613: »04 UTC   »05 UTC   »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  575 1592 (N31E43 L=286)   903    143        1 ( 543/1532- 620/1652) -66.0 E45-E39 N26-N35
      2 1579 1396 (N31W36 L=  6)   449    119        0 (1535/1346-1615/1439) -50.2 W32-W39 N27-N33
      3  706 1260 (N11E23 L=307)   685    180        0 ( 684/1191- 744/1344) -56.3 E25-E19 N07-N16
      4 1109 1201 (N13W03 L=333)   704    261        0 (1059/1094-1141/1319) -65.2 E01-W06 N06-N19
      5 1415 1118 (N11W24 L=353)   642    233        1 (1373/1029-1474/1218)  71.6 W21-W27 N05-N17
      6  265  944 (S13E54 L=276)  1536    251        1 ( 222/ 838- 300/1046)  63.4 E59-E50 S20-S06
      7 1526  544 (S23W43 L= 12)  3329    591        4 (1301/ 439-1774/ 659)  25.9 W28-W63 S33-S13
  
Download Binary data for this image

» All Filament Data of 20130613 ...
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