logo kso logo uni graz

20130701 - Filament data for 10 UTC
Available data for 20130701: »05 UTC   »06 UTC   »07 UTC   »08 UTC   »09 UTC   »10 UTC   »11 UTC   »12 UTC   »13 UTC   »14 UTC  
Click on image to open sensitive map!
 
  Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  384 1512 (N31E56 L= 37)   512     72        1 ( 344/1494- 427/1526)  -5.2 E61-E50 N29-N31
      2  709 1379 (N24E23 L= 70)   533    177        1 ( 628/1350- 793/1408)  -4.4 E29-E16 N22-N25
      3  488 1267 (N16E38 L= 55)   350     90        0 ( 452/1232- 529/1290)  31.0 E40-E34 N13-N17
      4 1290 1195 (N14W16 L=109)   265     86        1 (1250/1173-1333/1217) -18.4 W13-W19 N12-N15
      5  721  715 (S18E19 L= 74)   229     86        0 ( 683/ 702- 766/ 728)   9.5 E21-E15 S18-S16
      6  875  499 (S32E09 L= 84)   452    136        1 ( 849/ 447- 918/ 564) -76.0 E10-E05 S35-S27
      7 1476  508 (S30W36 L=129)   419     81        1 (1439/ 478-1512/ 540)  45.0 W33-W38 S31-S27
      8  947  384 (S41E04 L= 89)   292     62        0 ( 930/ 353- 969/ 411)  78.7 E05-E01 S43-S38
  
Download Binary data for this image

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